Excel VBA CommandButton - Frage/Problem

[Wanderfalke]

Hallo,

ich möchte in Tabelle 1 einen Commandbutton verwenden, um eine bestimmte Zelle in Tabelle 2 zu aktivieren.
Hierbei soll die Zelle in Tabelle 2 anhand eines Suchkriterium (eindeutiger Text = ID = "Ziel_Tabelle_02_Zelle_B5") in einer definierten Spalte (bspw. Spalte B) vorher gefunden werden.
Folgender Code führt nicht zum Erfolg, da die Fehlermeldung 'Typen unverträglich erscheint':

Private Sub CommandButton1_Click()
 Sheets("Tabelle_02").Activate
 With ActiveSheet.Range("B1:B1000") 'Such-Range setzen
  Set c = .Find(What:="Ziel_02_B5")
 End With
 MsgBox c.Row
 ActiveSheet.Cells(c.Row, ("B")).Select  'Typen unverträglich
End Sub

Woran könnte das liegen bzw. läßt sich der Code noch verbessern?

Danke für eure Unterstützung!

[Frogger1986]

Bitte zeige deine Beispieldatei, deine Programmierung scheint etwas kurios! Ich vermute, du möchtest einen Wert in einem anderen sheet suchen und dort hin springen, oder?

[Klaus-Dieter]

Hallo,

versuche es mal so:

Code:

Private Sub CommandButton1_Click()
   
    With Sheets("Tabelle_02").Range("B1:B1000") 'Such-Range setzen
        Set c = .Find(What:="Ziel_02_B5")
    End With
    ' MsgBox c.Row
    With Sheets("Tabelle_02") '
        .Activate
        .Cells(c.Row, 2).Select 'Typen unvertr?glich
    End With
End Sub

[Kuwer]

Hallo,

Private Sub CommandButton1_Click()

  Application.Goto Sheets("Tabelle_02").Range("B1:B1000").Find(What:="Ziel_02_B5")

End Sub

Gruß Uwe

[Wanderfalke]

Hallo,

vielen Dank für die Tipps. Works like a charme.  :28: 

Gruß