[VBA] Nur einmalige Eingabe in Bereich erlaubt

Hallo,

angenommen, du möchtest in Spalte C nur einmalige Einträge machen.

Dann selektiere in Spalte C die Zellen => Zellen formatieren => Schutz und deaktiviere dort "Gesperrt".

Dann probiere es mit folgendem Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub

With Sheets("Tabelle1")
.Unprotect
Target.Locked = True
.Protect
End With
End Sub

Falls das nicht hilft, beschreibe mal genauer, was du in welchem Bereich schützen möchtest.

Claus

Guten Morgen Claus,

Deine Annahme war richtig. Ich wollte in einer Spalte nur eine einmalige Eingabe zulassen.

Und vorab. Wie mir Deine Antwort aufzeigte, waren meine Code-Beispiele auch nicht falsch. Was mir fehlte, war Deine Einleitung: Spalte bzw. Zellen selektieren -> Reiter "Schutz" -> "Gesperrt" deaktivieren. Dann funktioniert es. Ohne diesem funktionierte
auch Dein Code bei mir nicht. Die Ursache lag also in Excel selbst.

Vielen Dank.

lediglich die Auswahl aller Blätter gleichzeitig soll unterbunden werden.

Das kann man leider nicht unterbinden, aber man kann eine Eingabe mit VBA abfangen wenn Blätter gruppiert sind.

Kopiere diesen Code in das Codemodul "DieseArbeitsmappe":

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

  If ActiveWindow.SelectedSheets.Count > 1 Then

    MsgBox "Gruppierte Blätter sind nicht erlaubt, mache Eingabe rückgängig!", vbExclamation

    Application.EnableEvents = False

    Application.Undo

    Sh.Select

    Application.EnableEvents = True

  End If

End Sub

Die Datei muss als XLSM gespeichert werden und bei allen Usern muss die Ausführung von Makros erlaubt sein.

Andreas.

Hallo Peter,



warum musst du nach einem anderen Weg suchen? Ist bei dir VBA nicht erlaubt? Falls doch, dann poste hier einfach in welchen Bereichen die Datumswerte und in welchen die Umsätze stehen. Sind alle Blätter gleich? Also Datum von Vorjahr ist in der gleichen
Zelle wie Datum aktuelles Jahr? Sollen die Kommentare fest in jeder Zelle sein, oder immer nur in dem heutigen Datum? Wenn das alles abgeklärt ist, kann man dir auch eine Lösung zukommen lassen.



Mit feundlichen Grüßen

Claus

Hallo,

wie werden die neuen Blätter erzeugt? Über ein Makro oder wird ein neues Blatt von Hand eingefügt?

Vergib dem Tabellenblatt einen dynamischen Bereichsnamen, damit passt dich der Bereich immer dem Datenbestand an:

=BEREICH.VERSCHIEBEN($A$1;;;ANZAHL2($A:$A);ANZAHL2($1:$1))

Wozu werden die nachträglich eingefügten Spalten benötigt? Falls zur Auswertung, sollte man mal überlegen, ob man dazu nicht eine Pivot-Tabelle nutzen könnte.

Ist VBA bei euch erlaubt?

Claus