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
Leider für diese Tabellen Sub nun immerzu Zeilen ein.Wie müsste das Marko aussehen, wenn nur eine Zeile eingefügt werden soll?
Danke im Voraus.
Annette