Dropdown-Liste mit VBA springe zu Zelle

[sheffield]

Hallo Profis,
vielleicht kann jemand mir mit VBA weiter helfen:

In einer Excel Datei sind zwei Tabellen enthalten: „T1“ und „Data“.
Ich habe in T1 eine „Dropdown-Liste“ eingefügt mit dem Inhalt aus „Data“.
Nur versuche ich via Auswahl aus der List zu Zelle springen und bekomme die Fehlermeldung:
 
Laufzeitfehler 1004

hier der Code in "T1"

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B1").Address Then
    Select Case Target.Value
        Case Is = Range("D01, Test in xxx")
        Application.Goto Range("A5"), Scroll:=True
        Case Is = Range("D03, Test in ccc")
        Application.Goto Range("A111"), Scroll:=True
 
    End Select
End If
End Sub
 
hat jemand eine Idee?
Grüsse
T

[Rabe]

Case Is = Range("D01, Test in xxx")
Application.Goto Range("A5"), Scroll:=True

Was soll das machen?
Wenn, dann:
Case Is = Range("DO1")

Das heißt: springe zu A5, wenn B1= Inhalt von DO1

[sheffield]

Was soll das machen?
Wenn, dann:
Case Is = Range("DO1")

Das heißt: springe zu A5, wenn B1= Inhalt von DO1

wenn aus Dropdown-Liste zB. "D01, Test in xxx" ausgewählt wird, sollte es auf Zelle A5 springen und den Wert zeigen.

[Rabe]

Hi,
dann lasse mal das Range und die Klammern weg.

[sheffield]

Hi,
dann lasse mal das Range und die Klammern weg.

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B1").Address Then
    Select Case Target.Value
        Case Is = "D01, Test in xxx"
        Application.Goto Range("A5"), Scroll:=True
        Case Is = "D03, Test in ccc"
        Application.Goto Range("A111"), Scroll:=True
 
    End Select
End If
End Sub

aber so funktioniert auch nicht

[Rabe]

Hi,
steht dann tatsächlich dieser Text in B1 drin?

"funktioniert nicht" ist nicht besonders exakt.

Steht der Dropdown in B1?
Lasse testweise .Adress weg.
Lade doch mal die Exceldatei hoch (kein Bild).

[sheffield]

Hi,
steht dann tatsächlich dieser Text in B1 drin?

"funktioniert nicht" ist nicht besonders exakt.

Steht der Dropdown in B1?
Lasse testweise .Adress weg.
Lade doch mal die Exceldatei hoch (kein Bild).

Entschuldigung, es war eine leere Taste

jetzt funktioiert es... besten dank für die Hilfe

Dir & Familie frohes feiertage

merry christmas

[sheffield]

lass mich hier eine zweite Frage stellen:
in Spalte A, sagen wir zwischen A4 bis A1000 existieren Zellen, die das Symbol „@“ o.ä als Wert haben.
Kann ich den mit dem Symbol „@“ Zellen ein Makro zuweisen?

danke

[Wastl]

hi,
was soll das werden?