Als Antwort auf diesen Beitrag
Hallo,
bei den Ereignisprozeduren gilt das Prinzip "es kann nur einen geben".
Leider ist das Projekt geschützt.
Meine Version:
In ein Modul:
Option Explicit
Public pObjSelD As Object
Sub Init_pObjSel()
Dim tabArray, i As Integer
Set pObjSelD = CreateObject("scripting.dictionary")
tabArray = Split("D7 D8 D9 D10 D11 D12 D13 D19 D20 D21 D7")
For i = 0 To UBound(tabArray) - 1
pObjSelD(tabArray(i)) = tabArray(i + 1)
Next i
End Sub
Im Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If pObjSelD Is Nothing Then Call Init_pObjSel
s = Target.Address(0, 0)
If pObjSelD.exists(s) Then Range(pObjSelD(s)).Select
'hier weiterer Code
End Sub
Gruß aus'm Pott
Udo