Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen

01.02.2007 17:15:35

chris

Hi
Ich habe eine Tabelle, wo in Spalte in unregelmäßigen Abständen das Wort Konto vorkommt. Überal, wo das Wort in Spalte A vorkommt, soll darüber automatisch eine Leerzeile eingefügt werden. Wie kann ich das machen? Danke
Chris

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen einfügen

01.02.2007 17:30:02

haw
1000 Dank

01.02.2007 17:46:13

chris

AW: Zeilen einfügen

01.02.2007 17:30:02

haw

Hallo Chris,


Sub ZeilenEinfügen()
Dim lz&, i&
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 1 Step -1
If Cells(i, 1).Value = "Konto" Then _
Cells(i, 1).EntireRow.Insert
Next i
End Sub

Gruß Heinz

1000 Dank

01.02.2007 17:46:13

chris

o.T.

Forumthread: Zeilen einfügen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread