Hi Uschi,
bei deinem Code komm ich auch nicht ganz raus, an welcher
stelle was gemacht wird.
/t/vba-wert-aus-listbox-in-tabelle-suchen/4476370
doch, kommt schon raus, es steht ja immer an der Stelle *smile*
Ich hab den jetzt einfach mal so kopiert und für mich
angepasst. danach sieht er so aus:Sub auswahlfinden(ByVal Button As Integer, ByVal
Shift As Integer, ByVal X As Single, ByVal Y As Single)
wenn ich den so dann aufrufe:
auswahlfinden
kommt die fehlermeldung: Argument ist nicht optional.
Ist korrekt, wenns denn Sinn machen würde müßtest du ihn so aufrufen:
call auswahl(2,3,4,7)
Der Debugger bemängelt das Fehlen der Arumente „2,3,4,7“.
Aber sinnvoll ist ihn so zu benutzen:
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
und in das Modul der Userform mit der Listbox zu schreiben.
Außerdem stellt sich mir die Frage, warum Z1 definiert wird
(Z1 = Application.WorksheetFunction.Match(ListBox1,
ws1.Range(„A:A“), 0)) aber später nicht nochmal verwendet wird?
Z1 wird doch verwendet!?
ws1.Rows(Z1).Copy Destination:=.Cells(Z2, 1)
Gruß
Reinhard