Clever-Excel-Forum - Change Ereignis auslösen wenn Spalte eingefügt

Hallo zusammen,

wie der Titel schon sagt, suche ich nach einer Möglichkeit, dass Change Ereignis auszulösen, sobald ich in einem Tabellenblatt in einem definierten Bereich (Spalte AE-EC) eine neue Spalte hinzufüge.

Kann mir jemand auf die Sprünge helfen?

Danke und Gruß
Sebbo

Das Change-Ereignis wird immer ausgelöst, wenn du eine Spalte einfügst, da musst du nichts besonderes tun.

Wenn du wissen willst, WO die Spalte eingefügt wurde: Checke das Target.

Eine sichere Abgrenzung von "Einfügen ganzer Spalten" und "Änderung aller Zellwerte in einer Spalte" ist allerdings nur sehr schwer möglich, leicht kann man sich aber annähern, wenn man letzteren Fall ignoriert:

Code:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("AE:EC")) Is Nothing Then

  If Target.Address = Target.EntireColumn.Address Then

      MsgBox "ganze Spalte eingefügt"

  End If

End If

End Sub

Hallo EarlFred,

vielen Dank für deine Erläuterung und den Beispiel-Code.
Du hast mir sehr geholfen.

Viele Grüße
Sebbo