also ich hab Excel 2003. Wie geht das mit der Drop-Down Liste?
Das wär ja genau was ich will. Z.B. 5 eingeben, dann erscheint
Apfel und ich mit Link in die richtige Zelle des richtigen
Tabellenblattes springen würde.
Hi Tina,
es gibt mehrere Wege das anzugehen, die Datei:
http://www.hostarea.de/server-04/April-9ee40b9401.xls
sieht in Blatt 1 so aus. A1 und D1 sind Gültigkeitsfelder (Daten–Gültigkeit-Liste, die Liste sieht so aus:
Apfel;Birne;Banane)
Vorher wurden in Blatt 2 die unten nach der Tabelle stehenden 3 namen für 3 zellen vergeben (Einfügen–Namen–Definieren)
In A1 kannst du auswählen wohin du springen willst. Gehst du mit der tastatur rein erscheint der Auswahlpfeil gleich, mit der Maus,mußt du die Maus länger gedrückt halten bis du den Pfeil anklicken kannst.
Durch Auswahl wird in A1 ein Hyperlink eingefügt und du wirst auch sofort zu dessen Ziel gebeamt.
D1 ist anders, da kannst du mit maus und Tastatur auswählen wie du willst, zur gewählten Zelle kommst du erst wenn du auf D2 klickst, da dort immer der Hyperlink aktualisiert wird je nach Auswahl in D1.
Die Variante in D1 geht auch ohne Vba und ich hatte auch eine reine Excellösung gebastelt. aber die Lösung ist irgendwie verschollen.
Vba beruht auf diesem Code in Tabelle1-Modul:
Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Range)
'On Error GoTo Fehler
If Not Intersect(Target, Range("A1", "D1")) Is Nothing Then
If Target.Cells.Count \> 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Address(0, 0)
Case "A1"
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:= \_
"Tabelle2!" & Range("A1")
Application.Goto Reference:=Target.Value
Case "D1"
ActiveSheet.Hyperlinks.Add Anchor:=Range("D2"), Address:="", SubAddress:= \_
"Tabelle2!" & Range("D1"), TextToDisplay:=Range("D1").Value
Application.Goto Reference:=Target.Value
Case Else
'nix tun
End Select
End If
Fehler:
Application.EnableEvents = True
End Sub
Gruß
Reinhard
Tabellenblatt: H:\[t.xls]!Tabelle1
│ A │ B │ C │ D │
──┼───────┼───┼───┼────────┤
1 │ Apfel │ │ │ Banane │
──┼───────┼───┼───┼────────┤
2 │ │ │ │ Banane │
──┴───────┴───┴───┴────────┘
Festgelegte Namen:
Apfel : =Tabelle2!$A$1
Banane: =Tabelle2!$E$1
Birne : =Tabelle2!$C$2
Tabellendarstellung erreicht mit dem Code in FAQ:2363