Ausfüllen anpassen
10.06.2020 11:29:23
Norbert
kann mir jemand das nachfolgende Makro so anpassen, dass es sich nicht auf die Spalte "A" bezieht, sondern über jene Spalte, welche ich vorher markiert habe? Dies kann von Spalte A-Z über unterschiedliche Anzahl von Zeilen handeln.
Hier das Makro:
Sub Ausfuellen()
Dim i As Long
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
If Range("A" & i).Value = "" Then 'hier Spalte eingeben, welche auszufü _
llen sind
Range("A" & i).Value = Range("A" & i - 1).Value 'hier Spalte eingeben, _
welche auszufüllen sind
End If
Next i
End Sub
Danke für die Lösung
Gruss Norbert
Anzeige