Auffüllen vom leerenZellen
02.03.2018 11:22:52
Berni
Bevor ich mich auf den Weg mache und die Tabelle manuell fülle, habe ich mir gedacht, ich schreib mal einen Code, um die Arbeit zu erleichtern.
Also: ich habe in einer Tabelle in der Spalte D Summen stehen, die sich auf die Bezeichnung der Spalte A beziehen. Die Details stehen in der Spalte C. Um nun die Tabelle für eine Pivot-Auswertung vorzubereiten. sollte in der Spalte A bzw. B keine leere Zeile sein. Das Problem ist nur, dass einmal nur eine Leerzeile ist, dann wieder, je nach Partnerobjekt mehrere Leerzeilen. Dazu habe ich nun einmal einen Code geschrieben.
Sub CopyCells()
Dim iRow As Integer
iRow = 2
Do Until Cells(iRow, 1).Value = "585519"
If IsEmpty(Cells(iRow, 1)) Then
Cells(iRow, 1).Value = Cells(iRow + 1, 1).Value
End If
iRow = iRow + 1
Loop
End Sub
Allerdings werden hier nicht alle Zeilen befüllt, da ich immer nur mit Cells(iRow+1,1).value nur die folgende Zelle erwische. Wie kann ich den Code abändern, dass er, je nach Leerzeilen, alle Zellen befüllt?Füge euch einen Ausschnitt aus der Tabelle ein, damit ihr mein Problem nachvollziehen könnt.
https://www.herber.de/bbs/user/120162.xlsm
Danke vorerst
Berni