Hi Reinhard
bei deinem Code komm ich auch nicht ganz raus, an welcher stelle was gemacht wird.
/t/vba-wert-aus-listbox-in-tabelle-suchen/4476370
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)
Dim Z1 As Long, Z2 As Long, ws1 As Worksheet
Set ws1 = Worksheets("Rechnung")
Z1 = Application.WorksheetFunction.Match(ListBox1, ws1.Range("A:A"), 0)
ws1.Range("A1").Select
With Worksheets("Kundenliste")
Z2 = IIf(.Cells(1, 1) = "", 1, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
ws1.Rows(Z1).Copy Destination:=.Cells(Z2, 1)
End With
End Sub
wenn ich den so dann aufrufe:
auswahlfinden
kommt die fehlermeldung: Argument ist nicht optional.
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?
grüße uschi