VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Gültigkeitsfeldauswahl Zeile einfügen

Gruppe

Ereignis

Bereich

Change

Thema

Bei Gültigkeitsfeldauswahl Zeile einfügen

Problem

Bei der Auswahl eines Gültigkeitsfeldes in Spalte G soll an der Position der aktiven Zelle eine neue Zeile eingefügt werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change