Hier zum auslesen der Listbox von Excel.
Dim caid As Integer
caid = 2
While Sheets("Daten").Cells(caid, 9) ""
ListBox2.AddItem Sheets("Daten").Cells(caid, 9)
caid = caid + 1
Wend
hätte das jetzt so gelöst:
Private Sub ComboBox7_Change()
If ComboBox7.Value = "Pay" Then
End If
End Sub
Nur leider fehlt mir da der Ansatz
Vielen dank schonmal
Chriss