Zeile einfügen

Forumthread: Zeile einfügen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeile einfügen

Zeile einfügen

31.10.2008 09:36:00

Jens

Hallo Excelfreunde,
ich habe folgende Aufgabenstellung welche ich mit einem Makro lösen will.
Wenn in Spalte B steht soll eine Zeile eingefügt werden falls der Begriff in Spalte K wechselt.
z.B.
Spalte B Spalte K
Rohstoff 500
Rohstoff 500
jetzt Zeile einfügen da der nächste Begriff in Spalte K 501 ist
Rohstoff 501
etc.
Wer kann mir dafür ein Makro schreiben?
Besten Dank im voraus für Hilfe.
Jens

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile einfügen

31.10.2008 10:04:30

Rudi
AW: Zeile einfügen

31.10.2008 11:17:00

Jens

AW: Zeile einfügen

31.10.2008 10:04:30

Rudi

Hallo,
ungetestet:


Sub tt()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
If Cells(i, 2) = "Rohstoff" _
And Cells(i, 11)  Cells(i - 1, 11) _
Then Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Rudi