Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tab reihenfolge der Zellen bestimme

Forumthread: Tab reihenfolge der Zellen bestimme

Tab reihenfolge der Zellen bestimme
22.05.2006 13:25:42
Horst
Hey !
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
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tab reihenfolge der Zellen bestimme
22.05.2006 14:21:44
Mag
Hi,
z.B. über Blattschutz. Erst Format/Zellen/Schutz Gesperrt aufheben für Eingabezellen, dann Extras/Blatt/Blatt schützen.
Gruss
AW: Tab reihenfolge der Zellen bestimme
22.05.2006 15:28:35
Horst
Hi mag !
Nein das meinte ich nicht. Die variante hatte ich auch schon gedacht, aber:
Beispiel:
Ich habe eine eine eingabe die sich in der reihenfolge von
A1 - E1 und dann fortsetzt von A6 - E6
naechste eingabe reihenfolge
A2 - E2 und dann von A7 - E7
usw.
Ich moechte also gerne ein paar zeilen runterspringen um dann wieder hochspringen zu koennen !
usw.
Mit zellen schuetzen bekomme ich das nicht hin, da der tabulator saemtlichen geschuetzten zellen durch huehnert, also
A1-E1
dann
A2-E2
usw.
Also der gewollte sprung fehlt !
Andere idee?
Anzeige
AW: Tab reihenfolge der Zellen bestimme
22.05.2006 15:42:46
Reinhard
Hi 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

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Tab reihenfolge der Zellen bestimme
22.05.2006 16:46:15
Horst
Hi reinhard !
Gut danke !
Blos mit einem fehler behaftet:
Wende ich das einmal durchtabbe, die inhalte makiere und vorne wieder anfange (a1) zu überschreiben und wieder zu tabben, kommt"anwendungs oder objekt...laufzeitfehler 1004" nach der ersten zeile in dem sheet
in code zeile
Target.Offset(-4, -4).Select
bleibt er dann haengen
mmh
ne idee?
Anzeige
AW: Tab reihenfolge der Zellen bestimme
22.05.2006 18:07:12
Reinhard
Hi Horst,
Ideen schon aber jetzt keine Zeit mehr deshalb Frage noch offen gestellt.
Nachfrage es geht immer nur um den Bereich A1:E10? Oder kommt dann A11:E20 usw?
Gruß
Reinhard
AW: Tab reihenfolge der Zellen bestimme
22.05.2006 18:14:01
Reinhard
Hi orst,
im erste Fall ginge es so:
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

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Tab reihenfolge der Zellen bestimme
23.05.2006 09:40:21
Horst
Hallo reinhard !
Also das muesste gehen, sieht zumindest gut aus beim testen:
-----------------------

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

----------------------------------
Ich lass die frage aber noch einmal offen !
Gruss horst
Anzeige
AW: Tab reihenfolge der Zellen bestimme
26.05.2006 19:05:15
schauan
Hallo,
statt select ginge auch (Zitat Hilfe)
Application.Goto Reference:=Worksheets("Sheet1").Range("A154"), _
scroll:=True
AW: Tab reihenfolge der Zellen bestimme
29.05.2006 13:38:05
Horst
jawohl du hast geholfen, danke
;
Anzeige

Infobox / Tutorial

Tab-Reihenfolge in Excel festlegen


Schritt-für-Schritt-Anleitung

Um die Tab-Reihenfolge in Excel festzulegen, kannst du VBA verwenden. Folge diesen Schritten:

  1. Öffne dein Excel-Dokument und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle im Projektfenster das entsprechende Blatt aus (z.B. „Tabelle1“).

  3. 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
  4. Schließe den VBA-Editor und teste die Tabulator-Reihenfolge in deinem Excel-Dokument.


Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Dieser Fehler kann auftreten, wenn du versuchst, auf eine Zelle zuzugreifen, die nicht existiert. Stelle sicher, dass die Zielzellen im Bereich liegen, den du bearbeitest.
  • Tabulator springt nicht wie gewünscht: Überprüfe, ob der richtige Bereich im Code angegeben ist. Manchmal ist es nötig, die Bedingungen anzupassen, um die gewünschte Reihenfolge zu erreichen.

Alternative Methoden

Wenn du die Excel Tabulator-Reihenfolge nicht über VBA festlegen möchtest, kannst du auch eine Kombination aus Blattschutz und benutzerdefinierten Eingabefeldern verwenden:

  1. Wähle die Zellen aus, die bearbeitet werden dürfen, und hebe den Blattschutz für diese Zellen auf.
  2. Schütze das gesamte Blatt, um die restlichen Zellen zu sperren.
  3. Setze die Eingabereihenfolge manuell, indem du die Zellen so anordnest, dass sie den gewünschten Eingabefluss unterstützen.

Praktische Beispiele

  • 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

Tipps für Profis

  • 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.


FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige