ich möchte eine Liste wie folgt sortieren.
a
a
a
(leerzeile per vba eingefügt)
b
b
b
(leerzeile per vba eingefügt)
c
c
c
Kann mir jemand helfen.
Danke und Gruss
Pilgrim
Sub test()
Dim wbk As Workbook
Dim wsh As Worksheet
Set wbk = ThisWorkbook
Set wsh = wbk.Worksheets("Sheet1")
zeile = 1
Do Until Cells(zeile, 1).Value = ""
If Cells(zeile, 1) Cells(zeile + 1, 1) Then
Rows(zeile + 1).Select
Selection.Insert Shift:=xlDown
zeile = zeile + 1
End If
zeile = zeile + 1
Loop
End Sub
Sub SortierenUndLeerzeile()
Dim Zeile As Long
Range("A1").Sort Key1:=Range("A1")
For Zeile = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(Zeile, "A") Cells(Zeile + 1, "A") Then Rows(Zeile + 1).EntireRow.Insert
Next
End Sub
Das Makro bezieht sich auf Werte in Spalte A ab A1 !!
Gruß, NoNet