HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Uduuh
05.05.2026 13:23:17
AW: Tab Reihenfolge festlegen
Hallo,
der Code gehört in eine
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


End Sub

ansonsten wird er ignoriert.
Gruß aus'm Pott
Udo
Als Antwort auf diesen Beitrag
Edmund
05.05.2026 12:38:04
Tab Reihenfolge festlegen
Hallo, ich brauche mal wieder ein geübtes Auge, dass über meinen Code fliegt und mir meinen Fehler anzeigt :-)

Ich möchte in meinem geschützten Tabellenblatt " Eingabe " die Reihenfolge der Felder die mit Enter zu erreichen sind festlegen.
Die zu erreichenden Felder sind natürlich nicht geschützt.
D7, D8 und D9 werden korrekt angegangen, danach springt die Eingabe leider auf H14 usw. und nicht wie vorgeschrieben auf D10 usw.
Ich habe nachfolgenden Code in einem Forum gefunden und auf meine Belange abgeändert, wobei ich wahrscheinlich einen Fehler gemacht habe.
Den Code habe ich natürlich in Tabelle1"Eingabe" geschrieben

Sicherlich findet jemand den Fehler

vorerst einmal vielen Dank

Edmund


Private Sub Sheets_Eingabe(ByVal Target As Range)
Dim tabArray As Variant
Dim i As Long
tabArray = Array("D7", "D8", "D9", "D10", "D11", "D12", "D13", "D19", "D20", "D21")
Application.ScreenUpdating = False
For i = LBound(tabArray) To UBound(tabArray)
If tabArray(i) = Target.Address(0, 0) Then
If i = UBound(tabArray) Then
Me.Range(tabArray(LBound(tabArray))).Select
Else
Me.Range(tabArray(i + 1)).Select
End If
End If
Next i
Application.ScreenUpdating = True
End Sub
Folgenachrichten
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen

Bitte einen Nachrichtentext eingeben.