ich möchte alle Werte der Spalte A bis zur nächsten ausgefüllten Zelle runterkopieren. Das geht irgendwie mit F5 (gehe zu) oder per Makro. Nur das kriege ich nicht hin
Könnt Ihr mir bitte helfen?
Danke
Peter
Sub Kopieren()
Dim lzeile As Long
Dim sWert As String
For lzeile = 1 To Range("A65536").End(xlUp).Row
If Not IsEmpty(Range("A" & lzeile).Value) Then
sWert = Range("A" & lzeile).Value
Else
Range("A" & lzeile).Value = sWert
End If
Next lzeile
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.