habe ein kleines Problem mit dem Code hier.
Ich möchte mit Hilfe der "While" Schleife die Spalte A durchsuchen bis der Wert "Gesamt" gefunden wird. Die Schleife funktioniert.
Wenn der Wert "Gesamt" gefunden ist, dann soll eine Zeile darunter 10 Zeilen hinzugefügt werden, z.B. Der Wert "Gesamt" befindet sich in A37, dann sollen die Zeilen A38 bis A47 neue Zeilen hinzugefügt werden.
Danke+Gruß
lee
Sub Zeile_einfügen()
SuchZeile = 1
While Sheets("FEST").Cells(SuchZeile, 1) "Gesamt"
SuchZeile = SuchZeile + 1
Wend
If SuchZeile = "Gesamt" Then
SuchZeile = SuchZeile + 1
Selection.Insert Shift:=xlDown
End If
End Sub