wie könnte über VBA folgendes aussehen:
Finde in Spalte "D" alle leere Zellen und schreibe
bis zur letzten gefüllten Zeile (Spalte "A") das Wort "Test" hinein.
Mit der Bitte um Hilfe!!
M.f.G.
Günter
Sub test()
Dim lastrow As Long
Dim i As Long
lastrow = Worksheets("Tabelle1").Range("a65536").End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 2) = "" Then
Cells(i, 2) = "Test"
End If
Next i
End Sub
Gruß Harald
Sub test()
Dim lastrow As Long
Dim i As Long
lastrow = Worksheets("Tabelle1").Range("a65536").End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 4) = "" Then
Cells(i, 4) = "Test"
End If
Next i
End Sub
Sub Fill()
Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks) _
= "Test"
End Sub
GreetZ Renée