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
Synology DS416play (1 Seagate IronWolf ST8000VN0022) + DVBLogic TVButler DVB-C/T/T2 (100tc) Stick, Synology RT1900AC Router, Samsung UE60F6370 + UE50ES5700 + UE48H6470, Panasonic TX-L32E5E + TX-24CSW504, Windows 10 PC, Samsung Galaxy Tab S3, Samsung Galaxy S8+
Antwortento 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
Antwortento top
#3
danke sehr, funktioniert
Synology DS416play (1 Seagate IronWolf ST8000VN0022) + DVBLogic TVButler DVB-C/T/T2 (100tc) Stick, Synology RT1900AC Router, Samsung UE60F6370 + UE50ES5700 + UE48H6470, Panasonic TX-L32E5E + TX-24CSW504, Windows 10 PC, Samsung Galaxy Tab S3, Samsung Galaxy S8+
Antwortento top


Gehe zu:


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