Auffüllen bis zur nächsten vollen Zelle
05.02.2007 18:18:24
Stefan
Kopiert werden soll die erste Zelle.
Aufgefüllt werden soll bis zur nächsten vollen Zelle.
Dann geht es mit dieser weiter.
Zu kompiziert? hier ist ein Beispiel:
C07 = Eimer
C08-C15 = (leer)
C16 = Bürste
C17-C19 =(leer)
C20 = Schwamm
usw.
Nun sollen die Zellen C8 bis C15 mit dem Wort "Eimer" gefüllt werden.
Dann sollen die Zellen C17 bis C19 mit dem Wort "Bürste" gefüllt werden.
usw.
Natürlich soll das ganze variabel sein, d.h. ich weiß nicht vorher welche
Zellen leer sind.
Begonnen habe ich hiermit:
For i = 7 To 280
If Cells(i, 3) " " Then
Cells(i + 1, 3) = Cells(i, 3)
End If
Next i
Irgendwie muss VBA erkennen, dass die nächste Zelle nicht leer ist, sonst
wird sie überschrieben.
Bitte helft mir.