Zeile einfügen wenn Datum in Spalte A

Bild

Betrifft: Zeile einfügen wenn Datum in Spalte A
von: ewald
Geschrieben am: 11.11.2003 10:22:39

Hallo zusammen,
wie kann ich erreichen, dass bei einer Datum Eingabe in Spalte A
ab Zeile 4, automatisch eine leere Zeile(unterhalb) eingefügt wird?

Ich habe in der Recherche nachgeschaut finde nix.

Kann mir jemand helfen?

Vielen Dank im Voraus.

Grüße

Bild


Betrifft: AW: Zeile einfügen wenn Datum in Spalte A
von: Mac4
Geschrieben am: 11.11.2003 11:33:14

Hallo Ewald,

probiers mal hiermit:


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


Marc


Bild


Betrifft: AW: Vielen Dank es funktioniert
von: ewald
Geschrieben am: 11.11.2003 13:14:57

Hallo Marc,

das ist dass was ich brauche.

Vielen Dank.

Grüße


Bild

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