Zeile einfügen, wenn sich Auwahlfeld ändert
Annette
Wenn sich die Auswahl einer Zelle zu "ABC" ändert, soll eine Zeile eingefügt werden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H10:H50")) Is Nothing Then
If ActiveCell.Value = "ABC" Then
Rows(Target.Row + 1).Insert
End If
End If
End Sub
Wie müsste das Marko aussehen, wenn nur eine Zeile eingefügt werden soll?
Danke im Voraus.
Annette
Anzeige