Office: Seite wechseln mit VBA

Hallo meine Lieben!

Ich hab folgendes Problem:
Ich habe eine Mappe mit mehreren Arbeitsblättern, auf dem ersten Blatt ist ein Inhaltsverzeichnis das über eine DropDown Auswahlliste (in Zelle A3) verfügt.
Nun wollte ich über VBA ein Makro erstellen das bei einer Auswahl in der Dropdownliste zu der jeweiligen Seite springt.
aber irgendwie bekomme ich den Code nicht richtig hin.
Hier mal der Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If A3 = M1 Then Worksheets(Worksheets("Tabelle1").Range("b3").Value).Activate
End Sub

Da sagt er mir immer ich soll debuggen und markiert mir diese Zeile:
(Worksheets("Tabelle1").Range("b3").Value).Activate

Wär super wenn mir einer helfen könnte.

MFG
adpar

 

Hallo,

Falls A3 bzw. M1 Arbeitsblattzellen bezeichnen, muss der Code umgestellt werden auf:

Ferner muss in Zelle B3 des Arbeitsblattes 'Tabelle1' der Name eines Arbeitsblattes stehen.

 

Hay!
Danke erst mal für deine schnelle Antwort.
Ich hab den Code nun so umgestellt wie du es mir gesagt hast, aber er sagt mir immer noch debuggen (index außerhalb gültigen Bereichs):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A3] = [M1] Then Worksheets(Worksheets("Tabelle2").Range("N1").Value).Activate
End Sub

Tabelle2 ist das Inhaltsverzeichnis und in Zelle N1 hab ich Tabelle1!B3 reingeschrieben, da er ja dahin springen soll wenn Zelle A3 = Zelle M1 entspricht.
Aber irgendwas stimmt da nicht oder ich stell mich einfach nicht schlau genug an.

mfg
adpar

 

Hallo!

Mit "Activate" aktivierst du das Blatt (Tabelle1), nicht aber eine Zelle (Tabelle1!B3).
Also erst das Blatt anwählen mit "Activate", dann die Zelle ansteuern mit "Select".

 

hay!
hab den Code nun so geändert, allerdings sagt er mir immer noch das gleiche mit dem Index außerhalb des gültigen Bereichs:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A3] = [M1] Then Worksheets(Worksheets("Tabelle2").Range("N1").Value).Activate.Select (b3)
End Sub

Markieren tut er mir immer noch den letzten Teil:
Worksheets(Worksheets("Tabelle2").Range("N1").Value).Activate.Select (b3)

kann man den letzten Teil nicht einfacher gestalten, ihm irgendwie sagen
wenn A3=m1 dann spring nach Tabelle1 Zelle b3.

mfg
adpar

 

Hallo!

Logisch, denn Tabelle1!B3 ist ja auch kein Blattname!!
Also erst Tabelle1 ansteuern und erst danach die Zelle wählen mit
ActiveSheet.Range("B3").Select

 

hay!
hab es nun soweit geändert wie ich es verstanden hab, aber nun macht er gar nichts mehr:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A3] = [M1] Then Worksheets(Worksheets("Tabelle2").Range("N1").Value).Activate.ActiveSheet.Range("B3").Select
End Sub

und wenn ich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A3] = [M1] Then Worksheets(Worksheets("Tabelle2").Range("N1").Value).Activate
ActiveSheet.Range("B3").Select
End Sub

es so schreibe dann bleibt er mit der Markierung nur auf Zelle B3 in Tabelle2.
Den Rest scheint er zu ignorieren. (in Zelle N1 steht Tabelle1, also der Name des Blattes wo er normalerweise hin soll.)

mfg
adpar

 

Hallo!

Ist denn A3=M1 ???

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A3] = [M1] Then
Worksheets(Worksheets("Tabelle2").Range("N1").Value).Activate
ActiveSheet.Range("B3").Select
End If
End Sub

 

manchmal!
Ich hab in A3 eine DropDown-Liste erstellt mit den jeweiligen Blattnamen und wollte es so machen dass wenn man ein Name aussucht er automatisch in das Blatt reinspringt.
Also in diesem Fall nach Tabelle1.
Einfachheitshalber wollte ich ihm dann auch gleich sagen zu welcher Zelle in dem Blatt er springen soll um die optimale "leseposition" zu haben.

mfg
adpar

Nachtrag:
Bei deinem Lösungsvorschlag sagt er mir immer noch index außerhalb gültigen Bereichs.
er markiert immer noch das gleiche:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A3] = [M2] Then
Worksheets(Worksheets("Tabelle2").Range("N1").Value).Activate
ActiveSheet.Range("B3").Select
End If
End Sub

 

Hallo,

Du darfst in Zelle Tabelle2!N1 nur den Namen des Arbeitsblattes eingeben, in das Du springen willst, und sonst darfst Du absolut nichts anderes in diese Zelle eingeben:
Also wenn Du in das Arbeitsblatt 'Tabelle3' springen willst und zwar in die Zelle B3 (sobald die Bedingung [A3]=[M2] erfüllt ist), so darfst Du in die Zelle Tabelle2!N1 nur das Wort 'Tabelle3' (ohne Hochkommas) eingeben und sonst nichts.
Der Index-Fehler wird zwingend dadurch ausgelöst, weil Du in Tabelle2!N1 etwas anderes stehen hast als (bloß) den Namen eines existierenden Arbeitsblattes. Sobald Du in diese Zelle 'Tabelle3!B3' oder ähnliches eingibst, wird zwingend ein Indexfehler ausgelöst - natürlich immer vorausgesetzt, der Programmcode wird so beibehalten, wie Du ihn zuletzt gepostet hast.

Anmerkung: Ich gab Dir bereits in meiner 1. Antwort diese Information!!

 

hay!
Ich habe in der Tabelle2, Zelle N1 NUR den Namen der Tabelle zu stehen wo er hin springen soll. In diesem Fall

Tabelle1

Mehr steht da nicht drin und dennoch sagt er mir immer noch
index außerhalb gültigen bereich.

Ich weiß nicht mehr weiter.

Vielleicht hilft das: ich arbeite mit excel 2000.
Kann es sein dass diese alte Version irgendein Code noch nicht kennt?

mfg
adpar

 

Hallo,

und steht da hinter dem Wort 'Tabelle1' vielleicht noch ein (nicht sichtbares) Leerzeichen, sodass da in Wahrheit 'Tabelle1 ' dort steht?

 

nein!Nichts!
Nur
Tabelle1

Kein Leerzeichen oder irgendwas anderes.

Kann man den Code denn irgendwie anders schreiben dass man den Ort wo er hin springen soll direkt in das Makro einfügen kann? Sprich also nicht den Umweg über eine Zelle gehen?

mfg
adpar

 

Hallo,

ein Index-Fehler in einer Auflistung weist normalerweise darauf hin, dass der verwendete Schlüsselbegriff für einen Listeneintrag (Nummer bzw. Name) in dieser Liste nicht existiert.
Die Auflistung ist in diesem Fall die Liste der Arbeitsblattobjekte und ein einzelnes Arbeitsblattobjekt kann man mit seiner Nummer oder mit seinem Namen (=Bezeichnung im Tabulator des Arbeitsblattes) identifizieren.
Da dieser simple Mechanismus bei Dir fehlschlägt, kann ich Dir nicht mehr weiterhelfen - ich weiß nicht, warum der fehlschlagen sollte.

Du brauchst dazu nur folgende Codepassage

Code:

Worksheets("Tabelle2").Range("N1").Value

ersetzen durch den Namen des Ziel-Arbeitsblattes, also zB. durch 'Tabelle1', sodass der gesamte Code so aussieht:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
  If [A3] = [M2] Then 
    Worksheets("Tabelle1").Activate 
    ActiveSheet.Range("B3").Select 
  End If 
End Sub

In diesem Fall springt die aktive Zelle nach Tabelle1!B3, sobald die Bedingung [A3] = [M2] erfüllt ist und ein SelectionChange-Ereignis (=Änderung der Auswahl) im aktuellen Arbeitsblatt (=im Arb.Blatt, in dessen Codemodul dieses Makro gespeichert wurde) stattfindet.

Anmerkung: Da diese Ereignisbehandlungsroutine für ein Arbeitsblattereignis ("Worksheet_...") geschrieben wurde, nehme ich an, dass Du sie in das Klassencodemodul des korrekten Arbeitsblattes gespeichert hast.

 

hay!
Danke für deine Hilfe.
Leider funktioniert die direkte Schreibweise auch nicht.
Da sagt er mir das gleiche.
Index außerhalb gültigen Bereichs

Ich hab das mal mit einem anderen Tabellenblatt versucht (Tabelle10) aber da ist es das Gleiche.

Den Code hab ich bei Tabelle2, also beim Inhaltsverzeichnis rein geschrieben.

mfg
adpar


P.s.:ich hab den Code nun mal mit einer leeren Arbeitsmappe versucht und dort funktioniert er einwandfrei.
Es muss irgendwas in der Arbeitsmappe sein das er nicht haben will.
Ich werde mal weiter experimentieren. Vielleicht liegt es ja an der Dropdown-Liste.