ich habe ein geschütztes Blatt zur Datenerfassung mit einigen nicht geschützten Zellen.
mit der Tabulatortaste möchte ich nun in einer vorgegebenen Reihenfolge durch die Zellen springen können.
Das Ganze ist zusätzlich noch abhängig von dem Wert in Zelle S50, den ich durch klick auf 4 verschiedene Grafiken steuere (schreibe Wert 1 bis 4).
Meine Lösung:
(in einem Modul, wird aufgerufen im worksheet_activate)
Sub TabOrder()
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Tabulatorreihenfolge - im ws_activate aufgerufen _
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxx in der Zelle S50 (Datenerfassung) wird bei Klick auf die Grafiken ein Kenner _
gesetzt xxxxxxxx
'Tabulatorreihenfolge in Abhängigkeit vom ausgewählten Eingabebereich
Dim arr
intIndex = intIndex + 1
Select Case Sheets("Datenerfassung").Range("S50").Value
'Reihenfolge 1
Case 1
arr = Array("Y7", "Y9", "Y11", "Y13", "X17", "Y19", "X21", "X23", "Y25", "AC17", "AD19", "AC21", _
"AC23", "AD25")
Range(arr(intIndex)).Select
If intIndex = 14 Then intIndex = 0
'Reihenfolge 2
Case 2
arr = Array("AL9:AM9", "AL11:AM11", "AQ9", "AQ11", "AL17", "AL19", "AL21", "AL26", "AM26", " _
AN26", "AQ26", "AS26", "AL27", "AM27", "AN27", "AQ27", "AS27", "AL28", "AM28", "AN28", "AQ28", "AS28", "AL29", "AM29", "AN29", "AQ29", "AS29", "AL30", "AM30", "AN30", "AQ30", "AS30")
Range(arr(intIndex)).Select
If intIndex = 32 Then intIndex = 0
'Reihenfolge 3
Case 3
arr = Array("AL9:AM9", "AL11:AM11", "AQ9:AR9", "AQ11:AR11", "AL17", "AL19", "AL21", "AL26", " _
AM26", "AN26", "AQ26", "AS26", "AL27", "AM27", "AN27", "AQ27", "AS27", "AL28", "AM28", "AN28", "AQ28", "AS28", "AL29", "AM29", "AN29", "AQ29", "AS29", "AL30", "AM30", "AN30", "AQ30", "AS30")
Range(arr(intIndex)).Select
If intIndex = 32 Then intIndex = 0
'Reihenfolge 4
Case 4
arr = Array("BB9", "BB11", "BB13", "BB15", "BB17", "BB19", "BB21", "BB23", "BB25", "BF9", "BF11" _
, "BF14", "BG25")
Range(arr(intIndex)).Select
If intIndex = 13 Then intIndex = 0
End Select
End Sub
Leider funktioniert das nicht wie gewünscht. Im Verdacht als Problemverursacher hatte ich die verbundenen Zellen, siehe Case 2 und 3, war ursprünglich definiert mit AL9, AL11, .... Hat aber ebenfalls nicht geholfen.Habt Ihr Ideen dazu? Eine Beispielmappe könnte ich mit etwas Fummelei noch hochladen wenn gewünscht.