Clever-Excel-Forum

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!

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?

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

Hallo,

Private Sub CommandButton1_Click()

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

End Sub

Gruß Uwe

Hallo,

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

Gruß

Wanderfalke

Frogger1986

Klaus-Dieter

Kuwer

Wanderfalke