Change Ereignis auslösen wenn Spalte eingefügt

[Sebbo]

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

[26865]

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

[Sebbo]

Hallo EarlFred,

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

Viele Grüße
Sebbo