Gruppe
Ereignis
Problem
Bei der Auswahl eines Gültigkeitsfeldes in Spalte G soll an der Position der aktiven Zelle eine neue Zeile eingefügt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "Neue Zeile" Then
Rows(ActiveCell.Row).Insert
Target.ClearContents
End If
End Sub