Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel VBA CommandButton - Frage/Problem
#1
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!
Antwortento top
#2
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?
Eine Menge reden, aber nichts sagen können viele...
Antwortento top
#3
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
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
[-] Folgende(r) 1 Benutzer sagt Danke an Klaus-Dieter für diesen Beitrag:
  • Wanderfalke
Antwortento top
#4
Hallo,
Private Sub CommandButton1_Click()
Application.Goto Sheets("Tabelle_02").Range("B1:B1000").Find(What:="Ziel_02_B5")
End Sub
Gruß Uwe
[-] Folgende(r) 2 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Frogger1986, Wanderfalke
Antwortento top
#5
Hallo,

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

Gruß
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste