|
Hallo!
Ich habe gerade ein kleines Problem, bei dem ich nicht weiterkomme:
Ich versuche ein Makro zu schreiben, was mir in einem variablen Bereich meiner Tabelle Zeilen löscht. Das einzige, was fest ist, ist die Start-Zeile (Zeile 6).
Wenn ich nun über ein Userform Daten eingebe, fügt dieses dann jeweil eine neue zeile ein. diese möchte ich dann gern später wieder gelöscht bekommen.
(Ja, einfach nicht speichern ginge auch, dann würde aber etwas anderes nicht funktionieren).
Ich habe mir jetzt so gedacht, dass ich den Bereich bis zur 6. Zeile von unten an durchsuche, ob sie beschrieben ist und dann den Wert x als Reichweite für das Löschen der Zeilen eingebe
'Beschriebene Zeilen finden
Dim i%, lz%, x%
lz = Cells(Rows.Count, 2).End(xlUp).Row
For i = 6 To lz
If Cells(i, 2) <> "" Then
x = x + 1 'x soll soll die Anzahl der beschriebenen Zellen beschreiben.
End If
Next
'Zeilen von 6 zu x löschen
Rows("6:x").Select 'hier soll von der 6. Zeile bis zu Zeile x ausgewählt werden
Selection.Delete Shift:=xlUp
End Sub
Das funktioniert natürlich noch nicht, da ich noch wenig Kenntnisse habe. Ich hoffe mal, dass Ihr mir helfen könnt. =)
Vielen Dank schonmal.
|