Hallo liebe Experten,
wie kann man einen Bereich, bei mir A13:A38 mit Daten füllen, so dass es geprüft wird, ob die oberste Zelle nicht leer ist? Wenn diese nicht leer ist, soll die nächste zeile genommen werden, wenn die nächste nicht leer ist, soll die nächste Zeile genommen werden usw.
habe folgendes geschrieben, aber dabei wird der ganze Bereich mit gleichen Daten gefüllt, also mit der selben:
b=13
For Each d In WsZiel.Range("A13:A38")
If d "" Then
b = b + 1
WsZiel.Cells(b, 2) = wksZ.Cells(a, 1)
WsZiel.Cells(b, 3) = wksZ.Cells(a, 2)
Else
WsZiel.Cells(b, 2) = wksZ.Cells(a, 1)
WsZiel.Cells(b, 3) = wksZ.Cells(a, 2)
End If
Next