Zeile per Makro einfügen
25.07.2007 09:15:00
Salim
Hallo zusammen,
ich versuche folgendes Makro ohne Erfolg zum Laufen zu bringen: Kann mir jemand dabei helfen?
Vielen Dank
Gruss
Salim
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Rows("4:4").Select
Selection.Rows.Ungroup
Selection.EntireRow.Hidden = False
Dim iRow%, r%
iRow = Cells(Rows.Count, 1).End(xlUp).Row
For r = iRow To 1 Step -1
If Cells(r, 1) = "Gesamt" Then Rows("4:4").Copy Cells(r - 2, 1).EntireRow.Insert
Next
Application.CutCopyMode = False
Rows("4:4").Select
Selection.Rows.Group
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub