Office: Tab Reihenfolge festlegen

Guten Tag zusammen

In meinem Excel-Dokument möchte ich gerne die Tab-Reihenfolge wie folgt festlegen:

D4, D5, D6, D7, D8, D9, D10, D11, D12, D15, D16, D17, D18, F4, F5, F6, F7, F8, F9, F10, F11, 12

Trotz intensiver Suche im Web konnte ich die Lösung nirgends finden.

Kann mir jemand mit dem Makro-Code helfen?


Vielen Dank und schöne Grüsse, Matthias

:)

 

Hallo Matthias,

gebe den Tabellen den nmanen D04 und nicht D4, dann kannst Du mit einem Makro sortieren.
Tabele sortieren

Ich hätte den Tabellen keinen Namen gegeben der wie eine Zellbezeichnung aussieht, mal nur so vom Gefühl.

 

Hallo Hajo

Vielen Dank für deine Antwort.

Leider vestehe ich nicht ganz, wie ich den Code auf meine Tabelle anpassen kann? Ich habe dir mal einen Auszug aus der Datei beigelegt.

Kannst du mir nochmals auf die Sprünge helfen?

Herzlichen Dank und Grüsse, Matthias

 

die Datei sehe ich nicht. Einfach das Makro sortieren ausführen.
Register Ansicht, Befehlsgruppe Makros, Makro.

 

Hallo Matthias,

versuche mal folgenden Code.

Mit TAB gehts vorwärts, mit Shift+TAB rückwärts.

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Activate()
Application.OnKey "{TAB}", "'TAB_action 1'"
Application.OnKey "+{TAB}", "'TAB_action -1'"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "{TAB}"
Application.OnKey "+{TAB}"
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Const strRange As String = "D4, D5, D6, D7, D8, D9, D10, D11, D12, D15, D16, D17, D18, F4, F5, F6, F7, F8, F9, F10, F11"
Private lngIndex As Long

Sub TAB_action(direction As Integer)

lngIndex = lngIndex + direction
If lngIndex > UBound(Split(strRange, ",")) Then lngIndex = 0
If lngIndex < 0 Then lngIndex = UBound(Split(strRange, ","))
Application.Goto Sheets("Tabelle1").Range(Split(strRange, ",")(lngIndex))
End Sub





« Gruß Sepp »

 

Hallo Sepp

Vielen Dank deinen Code.

Leider bekomme ich beim Ausführen immer eine Fehlermeldung. Es heisst, das Makro könne nicht ausgeführt werden. Was mache ich falsch?

Könntest du mir nochmals helfen; allenfalls bei der eingefügten Datei (siehe erste Anfrage meinerseits)?

Vielen, herzlichen Dank. Beste Grüsse, Matthias

 

Hallo Matthias,

hier der Code in deiner Datei.




« Gruß Sepp »

 

Hallo Sepp

Einmal mehr ganz herzlichen Dank für deine Hilfe! Das Ganze funktioniert hervorragend!

Beste Grüsse, Matthias