Zeile einfügen wenn Datum in Spalte A und Format

Bild

Betrifft: Zeile einfügen wenn Datum in Spalte A und Format
von: ewald
Geschrieben am: 08.12.2003 15:41:03

Hallo zusammen,

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
Bild


Betrifft: AW: Zeile einfügen wenn Datum in Spalte A und Format
von: K.Rola
Geschrieben am: 08.12.2003 15:59:49

Hallo,

Target.Row hast du, die eingefügte Zeile auch, kopier einfach
die Formate.

Gruß K.Rola


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeile einfügen wenn Datum in Spalte A und Format"