Office: (Office 2010) TAB springen

Guten Morgen,

ich habe ein Problem.

Ich habe eine Excel liste mit jeweils 4x mal die gleiche Tabelle auf einer Seite.

Ich bin schon soweit das ich mit der TAB taste nur das anspringen will was ich auch benötige, mit Blattschutz.

Jetzt ist das problem ich möchte aber erst die eine LISTE / Tabelle mit den TAB anspringen und dann erste in die nächste Taballe kommen.

So sollte es sein

B1 / D1 / B2 / A3 / A4 / B5 / A6 / B6 --> Das ist die eine tabelle nach B& sollte es mit H1 / J1 / H2 / G3 / G4 / H5 / G6 / H6 weiter gehen.

GLaube es geht nur mit den VBH Coder oder? Bloß damit kenne nich mich nicht aus.

Ich hoffe einer kann mir helfen ;)

Grüße

 

Hallo,

schau mal ob dir dieser Code von rogstar weiterhilft:

http://www.office-loesung.de/ftopic563975_0_0_asc.php

Die Anpassung auf deine Zellen dürfte dann nicht das Problem sein.

 

Danke versuche ich eben mal.

Das CODE programm öffne ich mit ALT + F11..

Kopiere ich den einfach dort rein? Und wie speichere ist das ab?

Grüße

 

Hallo,

der Code muss in das Modul des entsprechenden Tabellenblattes:

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

Sollte es sich bei der Datei um eine xlsx-Datei handeln dann musst du die Datei jetzt als xlsm-Datei speichern da ansonsten der VBA-Code von XL beim Speichern automatisch entfernt wird - wundere dich deswegen nicht wenn da beim erstmaligen Speichern der Datei nach dem Einfügen des Codes ein entsprechender Hinweis kommt.

 

Also ich hab nun alles eingtippt, Code ist drin.. Dann geh ich auf speichern, dann kommt die meldung VB - Projekt.

Das heist bestimmt ich soll die Datei ändern. Aber iwie kann ich die Datein nicht in xlsm umwandeln / abspeichern. Es kommt nur Speicher. NIcht z.b. Speichern unter.

Grüße

 

Hallo,

öffne zunächst die Datei in der du arbeiten willst und dann mit Alt-F11 den VBA-Editor.

Bei mir sieht das im Projekt-Explorer dann z.B. so aus wie auf dem angehängten JPEG und da sollte jetzt zumindest eine Überschrift mit VBAProject stehen.

Dann das entsprechende Tabellenblatt wählen und du kannst den Code eingeben.

Die andere Alternative:

Öffne die Datei - klicke auf das entsprechende Tabellenblattregister mit der rechten Maus und gehe dann über 'Code anzeigen'. Dann bist du ebenfalls im richtigen Modul.

Wenn du den Code eingegeben hast dann beendest du den VBA-Editor z.B. über das Schließkreuz oder über Alt+Q. Hier kommt dann noch keine Abfrage bzgl. der XLSM-Datei.

Diese Abfrage kommt erst dann wenn du die Datei ganz normal über Excel speicherst und wenn es sich um eine XLSX-Datei handelt. Sollte die Datei als XLS-Datei bereits gespeichert sein dann dürfte eigentlich auch keine entsprechende Abfrage kommen.

Bei dieser Abfrage klickst du auf Nein und dann wählst du unterhalb des entsprechenden Fensters bei Dateityp die xlsm-Datei aus.

 

Danke.. Es klappt wirklich alles bis zum schluss, nur wenn die Meldung kommt zwecks speichern, kann ich bei Dateityp die xlsm-Datei auswählen, die wird mir nicht vorgeschlagen... Wie kann des denn sein?!

Grüße

 

Hallo,

das ist bei mir der zweite Punkt wenn ich auf Dateityp gehe.

Warum das bei dir nicht auftaucht kann ich im Moment nicht sagen. Hast du denn die Möglichkeit die Datei mit dem Dateityp Excel 97-2003-Arbeitsmappe zu speichern?

 

Guten Morgen,

also das speichern ist kein Porblem mehr. Aber leider klappt das mit Code nicht Alles eingegeben, klappt iwie einfach nicht

Das ist der CODE, falsch geschrieben? Gehört da was weg oder so? Batt ist geschütz und einige felder ja gesperrt

Von G3 auf G4 zu I4 zu H4 klappt, aber der rest iwie nicht ?!

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static strA As String
Application.EnableEvents = False
Select Case strA
Case "$B$1"
Range("D1").Activate
Case "$B$2"
Range("A3").Activate
Case "$A$4"
Range("C4").Activate
Case "$B$5"
Range("A6").Activate
Case "$B$6"
Range("H1").Activate
Case "$J$1"
Range("H2").Activate
Case "$G$3"
Range("G4").Activate
Case "$I$4"
Range("H5").Activate
Case "$G$6"
Range("H6").Activate
Case "$B$9"
Range("D9").Activate
Case "$B$10"
Range("A11").Activate
Case "$A$12"
Range("C12").Activate
Case "$B$13"
Range("A14").Activate
Case "$H$9"
Range("J9").Activate
Case "$H$10"
Range("G11").Activate
Case "$G$12"
Range("I12").Activate
Case "$H$13"
Range("G14").Activate
Case "$H$14"
End Select
Application.EnableEvents = True
strA = ActiveCell.Address
End Sub

 

Hallo,

das sind jetzt aber andere Zellen wie im Ausgangsposting.

Teste mal diesen Code (wobei ich mich mit den Zelladressen jetzt an das Ausgangsposting gehalten habe):

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static strA As String
Application.EnableEvents = False
Select Case strA
Case "$B$1" 'Start in B1
Range("D1").Activate 'Sprung nach D1
Case "$D$1"
Range("B2").Activate
Case "$B$2"
Range("A3").Activate
Case "$A$3"
Range("A4").Activate
Case "$A$4"
Range("B5").Activate
Case "$B$5"
Range("A6").Activate
Case "$A$6"
Range("B6").Activate
Case "$B$6"
Range("H1").Activate
Case "$H$1"
Range("J1").Activate
Case "$J$1"
Range("H2").Activate
Case "$H$2"
Range("G3").Activate
Case "$G$3"
Range("G4").Activate
Case "$G$4"
Range("H5").Activate
Case "$G$G"
Range("H6").Activate
End Select
Application.EnableEvents = True
strA = ActiveCell.Address
End Sub

 

Guten Morge,

ein Traum.. Es geht :) :) Danke danke..

Ein Problem gibt es aber iwie immer noch. Wenn ich mit der Maus in irgendeiner Zeile klicke, springt er nicht in diese sonder in irgendeine andere einfach. Es sieht so aus aus würde er iwie hängen. Komm erst nach gefühlte 100 klicks in die ausgewählte Zeile. Mit und ohne Blattschutz macht er das oO.

Iwie das Problem zufällig bekannt?!

Grüße

 

Hallo,

auch bei einem Mausklick wird der Code durchlaufen, d.h. er müsste nicht in irgendeine Zelle sondern in die nächste im Code folgende Zelle springen.

Aber an dieser Stelle ist für mich leider Schluss - ich habe keine große Ahnung von VBA und kann dir an dieser Stelle leider nicht mehr weiterhelfen

 

Hallo Junk1987,

Deinen Code schau ich mir garnicht erst näher an, da sind viel zuviele Lücken im Ablauf.
Ohne konkrete Beispieldatei von Dir ist mir das zu aufwendig.

In dem Code von Peter ist folgender Schreibfehler: Case "$G$G".
Das müsste "$H$5" lauten.
Dann darf als nächstes nicht auf H6 geprüft werden, sondern muss auf G6 geprüft werden.
Und danach fehlt dann eigentlich noch die Prüfung auf H6. Wo soll dann hingesprungen werden? Wieder zum Anfang, also B1?
Und vor allem fehlt eine Prüfung auf einen leeren String. Wenn der Code das erste Mal durchlaufen wird, ist die Variable noch ohne Wert. In genau diesem Moment müsste eigentlich B1 aktiviert und als Zelladresse in der Variablen gepseichert werden. (so würde ich es machen)

So auf die Schnelle würde ich sagen, so könnts gehen:

Code:

Option Explicit

Dim strA As String


Private Sub Worksheet_Activate()

    strA = "$B$1"
    Me.Range("B1").Activate
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo ErrHandler

    Application.EnableEvents = False
    
    With Me
        Select Case strA
            Case ""
                .Range("B1").Activate
            Case "$B$1"
                .Range("D1").Activate
            Case "$D$1"
                .Range("B2").Activate
            Case "$B$2"
                .Range("A3").Activate
            Case "$A$3"
                .Range("A4").Activate
            Case "$A$4"
                .Range("B5").Activate
            Case "$B$5"
                .Range("A6").Activate
            Case "$A$6"
                .Range("B6").Activate
            Case "$B$6"
                .Range("H1").Activate
            Case "$H$1"
                .Range("J1").Activate
            Case "$J$1"
                .Range("H2").Activate
            Case "$H$2"
                .Range("G3").Activate
            Case "$G$3"
                .Range("G4").Activate
            Case "$G$4"
                .Range("H5").Activate
            Case "$H$5"
                .Range("G6").Activate
            Case "$G$6"
                .Range("H6").Activate
            Case "$H$6"
                .Range("B1").Activate
        End Select
        
    End With

ErrHandler:
    Application.EnableEvents = True
    strA = ActiveCell.Address

End Sub

Übrigens, am Anfang hast Du danach gefragt, mit der TAB-Taste weiter zu springen.
Wenn Du nun davon abweichst, und mit der Maus völlig unvorhersehbar in den Tabellen herumspringst, ist die Fragestellung eine ganz andere.
Was möchtest Du also genau?

 

Guten Morgen,

auch dir danke fette Elfe, aber es hat durch Peters Code schon geklappt, bzw musste nur n kleinigkeit änder.

Mit Maus und TAB meinte ich :
Das ich nur mit der TAB Taste springen möchte, wenn ich z.b. mit dem Maus klicken möchte, springt er genauso weiter wie mit der TAB taste, möchte aber nur das er mit TAB springt und das, wenn ich mich verschrieben habe und schon weiter geklickt habe mit der Maus zurück ins Fehlerhafte feld klicken kann. Weil so muss ich jetzt erstmal alles überspringen, bis ich wider ins fehlerhafte feld komme.

Grüße