Zeile einfügen wenn Datum in Spalte A und Format
08.12.2003 15:41:03
ewald
im folgenden Klassenmodul wird eine Zeile eingefügt
wenn in SpalteA ab Zeile 4 Datum eingegeben wird.
Leider werden die Formate der oberen Zeile nicht mitübernommen.
Wie kann man das erreichen, dass die Formate (Rahmen, Fett)
auch in der eingefügten Zeile übernommen werden?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4:A1000")) Is Nothing Then
Else
If IsDate(Target.Value) Then
Target.Offset(1, 0).EntireRow.Insert shift:=xlDown
End If
End If
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus
Grüße
Anzeige