Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen

09.03.2004 10:06:06

marc

Hallo!
Wer kann mir helfen? Ich suche ein Makro das mir eine Leerzeile einfügt wenn die Spalte B das Zeichen "+" enthält. Die Leerzeile muß über der Zeile mit dem "+" eingefügt werden und die Spalte B enthält auch andere Daten. Das ganze sieht dann so aus: EAL_0012+
Gruß Marc

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen einfügen

09.03.2004 10:25:13

Mac4
AW: Zeilen einfügen

09.03.2004 10:33:08

marc

AW: Zeilen einfügen

09.03.2004 10:25:13

Mac4

Hallo Marc,
versuchs mal hiermit:


Sub test()
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If InStr(1, Cells(i, 2), "+", 1) Then
Rows(i).Insert shift:=xlUp
End If
Next
End Sub

Marc

AW: Zeilen einfügen

09.03.2004 10:33:08

marc

Danke!!!
Makro funktioniert einwandfrei.

Forumthread: Zeilen einfügen

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread