Zeile einfügen und Format ändern
28.05.2018 10:45:22
Marion
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
Anzeige