ich versuche mir ein Makro zu basteln, dass eine Spalte nach sortierten Werten durchsucht und bei Antreffen unterschiedlicher Werte, zwischen diesen beiden eine Leerzeile einfügt.
Konkret: In Range("C7") abwärts stehen Länder. Findet er unterhalb von 'Deutschland' 'China', dann soll er dazwischen eine Leerzeile einfügen, ansonsten weitersuchen.
Das Makro sieht folgendermassen aus:
Sub test()
ActiveSheet.Select
Range("C8").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Nun gibt Excel mir aber einen Errorcode aus. Es heisst:
"Compile Error - Loop without Do"
Ich habe doch "Do". Warum geht das nicht?
Gruss