ich habe folgendes Makro geschrieben, nur leider bekomm ich es nicht hin das die eingefügte Zeile die Hindergrundfarbe RGB(217, 217, 217) haben sollte
Kann mir hier jemand weiterhelfen?
Sub Leerzeilen_Einfügen_Entireg()
Application.ScreenUpdating = False
Dim lngI As Long
With ActiveSheet
For lngI = .Range("E65536").End(xlUp).Row To 1 Step -1
If .Cells(lngI, 5).Value = "Entriegelungselement" Then
.Rows(lngI + 1 & ":" & lngI + 1).Insert Shift:=xlUp
End If
Next lngI
Application.ScreenUpdating = True
End With
End Sub
Vielen lieben Dank im Vorraus!
Liebe Grüße, Marion