PDA

Vollständige Version anzeigen : Makro


TanjaZa
11.04.2001, 15:13
Ich habe eine Datei, die aufgebaut ist wie das kleine Beispiel.

a 1
a 2
a 3
b 3
b 4
b 7
c 8
c 8
c 8

Jedesmal wenn in der folgenden Zeile in Spalte A ein anderer Buchstabe auftaucht, soll oberhalb eine
Leerzeile eingefügt werden.
könnt ihr helfen? DANKE!!!!!!!!!!!

Klaus-Dieter
11.04.2001, 21:44
Hallo Tanja,
hier das Makro:

Sub Leerzeilen()
z = 2
Do While Cells(z, 1) <> ""
If Left(Cells(z, 1), 1) <> Left(Cells(z - 1, 1), 1) Then
Rows(z).Select
Selection.Insert Shift:=xlDown
z = z + 1
End If
z = z + 1
Loop
Cells(z, 1).Select
End Sub

TanjaZa
12.04.2001, 09:24
VIELEN DANK!!!!
Du hast mich gerettet!

Frohe Ostern, Tanja