Registriert seit: 18.03.2020
Version(en): 2010
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
Registriert seit: 24.08.2022
Version(en): 365, 2019
19.03.2024, 11:30
(Dieser Beitrag wurde zuletzt bearbeitet: 19.03.2024, 11:33 von EarlFred.)
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
Hat Dir mein Beitrag geholfen? Dann hilf auch Du - mit einer Spende an Wikipedia, die Tafeln oder aktion-deutschland-hilft.de
Registriert seit: 18.03.2020
Version(en): 2010
Hallo EarlFred,
vielen Dank für deine Erläuterung und den Beispiel-Code.
Du hast mir sehr geholfen.
Viele Grüße
Sebbo