Sagt mal kann ich per vba oder sonstiges die tab-reihenfolge in meinem excel-sheet festlegen?
Also z.b
A1
B1
C3,C4,C5,C6
D2
und dann wieder normal
Gruss
horst
Modul1:
Option Explicit
Public richtung As Boolean
Tabelle1:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If richtung = False Then
Target.Offset(5, -4).Select
Else
Target.Offset(-4, -4).Select
End If
richtung = Not richtung
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Select Case Target.Row
Case 10
Range("A1").Select
Case Is <= 5
Target.Offset(5, -4).Select
Case Else
Target.Offset(-5, -4).Select
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Select Case Target.Row
Case Is >= 10
MsgBox "case 10"
Range("A11").Select
Case Is <= 5
Target.Offset(5, -4).Select
Case Is > 5
Target.Offset(-4, -4).Select
Case Else
Target.Offset(-5, -4).Select
End Select
End Sub
Um die Tab-Reihenfolge in Excel festzulegen, kannst du VBA verwenden. Folge diesen Schritten:
Öffne dein Excel-Dokument und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Wähle im Projektfenster das entsprechende Blatt aus (z.B. „Tabelle1“).
Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Select Case Target.Row
Case 10
Range("A1").Select
Case Is <= 5
Target.Offset(5, -4).Select
Case Else
Target.Offset(-5, -4).Select
End Select
End Sub
Schließe den VBA-Editor und teste die Tabulator-Reihenfolge in deinem Excel-Dokument.
Wenn du die Excel Tabulator-Reihenfolge nicht über VBA festlegen möchtest, kannst du auch eine Kombination aus Blattschutz und benutzerdefinierten Eingabefeldern verwenden:
Beispiel 1: Du möchtest die Tab-Reihenfolge von A1
zu E1
und dann zu A6
zu E6
festlegen. Der VBA-Code könnte so aussehen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Row = 1 Then
Range("A6").Select
ElseIf Target.Row = 6 Then
Range("A1").Select
End If
End Sub
Beispiel 2: Um zwischen verschiedenen Bereichen zu springen, kann die folgende Struktur hilfreich sein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Row = 5 Then
Range("A10").Select
ElseIf Target.Row = 10 Then
Range("A1").Select
End If
End If
End Sub
Nutze Application.Goto
, um direkt zu einer bestimmten Zelle zu springen, anstatt Select
zu verwenden. Das kann die Performance verbessern und den Code lesbarer machen:
Application.Goto Reference:=Worksheets("Sheet1").Range("A154"), Scroll:=True
Halte deinen Code modular und gut kommentiert, um die Wartbarkeit zu erhöhen.
1. Kann ich die Tab-Reihenfolge auch ohne VBA festlegen?
Ja, du kannst die Tabulator-Reihenfolge mithilfe von Blattschutz und benutzerdefinierten Eingabefeldern anpassen.
2. Welche Excel-Version benötige ich für diese Funktionen?
Die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und neuer.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen