Hallo Leute,
folgendes Problem: Ich habe 10 Zeilen Excel Tabelle, von denen nur etwa 3 belegt sind mit Werten. Ich möchte diese 3 mit Werten belegten nach Oben schieben, und Leere Zeilen nach unten verschieben (nicht löschen, werden gebraucht). Ich muss erlich sagen, ich verzweifle an diesem banalen Problem. Hat jmd eine Idee? Hab mir auch schon mal gedanken gemacht.. Aber mein Code funktioniert nicht so wirklich:
Dim iNextRow As Integer
Dim booEmptyRow As Boolean
For intZaehler = 4 To lastCell
If Cells(intZaehler, 1).Value <> Empty Then
iNextRow = (intZaehler + 1)
Do
If Cells(iNextRow, 1).Value <> Empty Then
iNextRow = iNextRow + 1
booEmptyRow = True
Else:
Sheets("Bearbeitung").Rows(iNextRow).Cut
Sheets("Bearbeitung").Rows(intZaehler).Insert
booEmptyRow = False
End If
If iNextRow = lastCell Then
booEmptyRow = False
End If
Loop While booEmptyRow = True
End If
Next intZaehler
Bin über jegliche Hilfe dankbar!
Lg GreenBayPacker
|