Zellinhalt wiederholen
Mat
ich verwende den folgenden Code für Spalte A und bekomme es nicht gebacken ihn für Spalte B zu ändern
Sub verteile_namen()
Dim i As Long
Dim lastrow As Long
Dim vname As String
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Cells(1, 1).Value = vname
For i = 1 To lastrow
If Cells(i, 1).Value = Empty Then
Cells(i, 1).Value = vname
Else:
vname = Cells(i, 1).Value
End If
Next i
End Sub
Gruß Mat
Anzeige