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.

Bezug falsch
#1
Hallo!

Ich habe eine UserForm mit einer ComboBox1 im Tabellenblatt "Top30". Hier wähle ich nun einen Wert aus, dieser steht im gleichen Tabellenblatt in der Spalte "Q" bzw. im Tabellenblatt "Auszahlungen", auch unter "Q". Nun möchte ich aber, dass wenn ich einen Wert auswähle, dass mir dann in einer MessageBox vom Tabellenblatt "Auszahlungen" der Wert aus der Spalte "U" ausgelesen wird, aber in Bezug auf die Spalte "Q" im Tabellenblatt "Auszahlungen". Leider macht er mir das nicht. Er zeigt mir dann immer den Wert vom Tabellenblatt "Top30" an.
Ich hoffe, dass mir jemand helfen kann. Anbei mein Code:

Code:
Private Sub ComboBox2_Change()

Set suche2 = ThisWorkbook.Worksheets("Auszahlungen").Columns("Q").Find(what:=ComboBox2.Value, lookat:=xlWhole)

       MsgBox "Detailinformationen zum Panel """ & ComboBox2.Value & """:" & String(2, vbNewLine) & _
       Cells(suche2.Row, "U") & String(1, vbNewLine)
   
End Sub
Excel Version 2016
Antworten Top
#2
Ungetestet

Code:
Private Sub ComboBox2_Change()

Set suche2 = ThisWorkbook.Worksheets("Auszahlungen").Columns("Q").Find(what:=ComboBox2.Value, lookat:=xlWhole)

      MsgBox "Detailinformationen zum Panel """ & ComboBox2.Value & """:" & String(2, vbNewLine) & _
      Worksheets("Auszahlungen").Cells(suche2.Row, "U") & String(1, vbNewLine)
 
End Sub
Schöne Grüße
Berni
Antworten Top
#3
danke sehr, funktioniert
Excel Version 2016
Antworten Top


Gehe zu:


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