Office: (Office 2010) Dropdownfeld

Guten Tag.

Ich bin ein bisschen in Eile und müsste wissen wie man es schafft, dass wenn man ein Dropdownfeld erstellt und auf ein Wort klickt das drin steht man in eine andere Tabelle spring.

Z.B. :

Dropdownfeld ist in Tabelle 1
Ich öffne das Feld es steht Tabelle 2, Tabelle 3 und Tabelle 4 drin
Ich klicke auf Tabelle 4 und springe automatisch zu Tabelle 4.

MfG und vielen Dank

 

Hi,

das kann man z.B. mit folgendem Code im Codemodul des Tabellenblattes realisieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1).Address(False, False) = "B10" Then
        If Target <> "" Then Application.Goto reference:=Worksheets(Target.Value).Range("A1")
    End If
End Sub

Es wird nicht geprüft, ob das betreffende Tabellenblatt vorhanden ist.

Bis später,
Karin

 

Danke für die Antwort nur bin ich echt nicht gut in Excel und kenne mich mit Code etc nicht aus.

Habe mal was gemacht was mir auch reichen würde. Leider zeigt der mir auch die ganze Zeit ein Fehler an.


Danke schon mal

 

Hola,

benutze bitte den Upload hier im Forum - bei dem Hoster verschwindet die Datei irgendwann und der Thread macht keinen Sinn mehr.

Gruß,
steve1da

 

Wenn ich dem Link folge, soll ich eine exe-Datei herunterladen - das mache ich nicht. Außerdem kannst du hier im Forum die Mappe hochladen: Schalter "Erweitert" unterhalb des Antwortfensters -> Anhänge -> Anhänge verwalten.

Schau dir das angehängte Beispiel an. Um den Code zu finden: Rechstklick auf den Tabellenreiter -> Code anzeigen.

Bis später,
Karin

 

Vielen vielen dank Karin!!! Du hast mir sehr geholfen! Ist genau das was ich brauch.

Sorry hab das anhängen der Datei hier im Forum nicht gefunden. Nächstes mal mach ich es so.

Schönes Weihnachtsfest und danke nochmal.

Lg

 

Ok eine Frage noch. Was muss ich ändern wenn ich mehrere Dropdownfelder auf einer Seite habe? Habe eine Zweite gemacht und nun kommt nämlich der Fehler:

Fehler beim Kompilieren:

Mehrdeutiger Name:Worksheet_Change

Entschuldigung bin aber echt kein Expert.

 

In diesem Fall muss man des etwas anders lösen, denn es gibt nur ein einziges Worksheet_Change-Ereignis. Um welche Zellen handelt es sich denn?

Bis spärer,
Karin

 

Ich hab mal ein Beispiel dran gehangen wie ich mir das wünsche bzw was für mich die beste Lösung wäre.

Hoffe es gibt eine Möglichkeit.

Lg und viele Dank für deine Geduld und deine Hilfe

 

Ich nehme an, in I3 und M3 soll sich auch eine Gültigkeitszelle befinden?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Cells(1).Address(False, False)
        Case "A3", "E3", "I3", "M3"  '<==  hier alle Adressen der Gültigkeitszellen auflisten
            If Target <> "" Then Application.Goto reference:=Worksheets(Target.Value).Range("A1")
    End Select
End Sub

Bis später,
Karin

 

Ja genau das ist genau das Richtige.

Vielen vielen Dank!