letzte freie Zeile freigeben zur Bearbeitung

Hallo zusammen
ich bräuchte mal einen Denkanstoß.
Ich habe ein Sheet, auf dem in vorgegebenen Spalten untereinander weg Eintragungen in 5 Spalten gemacht werden müssen. Dabei darf es jedoch nicht passieren, dass Zeilen eingefügt oder gelöscht werden.
Ich möchte auf irgendeinem Weg den Benutzer dazu zwingen, IMMER in die nächste freie Zeile zu schreiben und auch NUR in die nächste freie Zeile. Alles andere darf nicht möglich sein.
Mein erster Gedanke dazu war - richte einen Blattschutz ein und sperre alle Zeilen außer die letzte freie Zeile. Das würde aber bedeuten, dass sobald wieder eine Zeile bearbeitet wurde, die nächste Zeile zur Bearbeitung frei geschaltet werden muss.
Sicherlich geht das auch, mir ist nur erstens noch nicht ganz klar wie und zweitens klingt das auch recht aufwendig.
Bessere Ideen dazu? Falls nein bräuchte ich auch noch einen Schubs in die richtige Richtung wie ich den Blattschutz zeilenweise wieder aufheben kann....
Danke!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) With Intersect(Target(1).EntireRow, Range("A:E")) If WorksheetFunction.CountA(.Cells) = 5 Then Me.Unprotect .Locked = True .Offset(1, 0).Locked = False Me.Protect End If End With End Sub

Hallo Daniel
jetzt muss ich meine Frage nochmal Ganz anders stellen, ich hatte nämlich noch eine Idee die aber ein Folgeproblem aufwirt. Nun also
Ich habe die Liste um die es geht jetzt als Tabelle - wie sagt man - formatiert? (Register Entwurf).
Das hat den Vorteil, dass mir automatisch Formeln, die in den 5 Spalten RECHTS NEBEN den 5 Spalten die bearbeitet werden müssen, ergänzt.
Nun funktioniert aber die Geschichte oben mit dem Blattschutz natürlich nicht mehr (by the way - mein Problem, dass 1 Eintrag in der Zeile genügt hatte ich schon gelöst).
Es würde reichen, wenn das gesamte Blatt geschützt wird, nur aber die Tabelle zur Bearbeitung frei wird. Dazu dann natürlich auch die erste Zeile UNTERHALB der Tabelle, weil man sonst ja die Tabelle gar nicht um weitere Zeilen "verlängern" kann.
Ich habe versucht, die Locked-Eigenschaft in der Tabelle irgendwie per Makrorecorder festzustellen, damit ich rausfinde wie das gehen könnte. Die Option habe ich aber nicht gefunden. Das führt mich zu der Frage - geht das überhaupt?
Sorry wenn das jetzt in eine ganz andere Richtung geht, aber die Tabellenformatierung hat für mich entscheidende Vorteile. Bin ich aber auch erst heute drauf gekommen.
Ideen?

Beliebteste Forumthreads (12 Monate)

letzte freie Zeile freigeben zur Bearbeitung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread