ich habe eine Combobox auf einer UF wenn ich ein Stück(Lied) auswähle, möchte
ich diesen aus der Datenbank löschen, so rufe ich die Uf auf:
Sheets("Musikstücke").Select
Dim z As Long
Range("P3").Select
z = Range("P3").End(xlDown).Row
ActiveSheet.Range(Cells(3, 16), Cells(z, 16)).Select
Selection.Sort Key1:=Range("P3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dim i As Long
For i = 3 To Tabelle1.[P65536].End(xlUp).Row
UserForm3.ComboBox1.AddItem Tabelle1.Cells(i, 16)
Next i
UserForm3.ComboBox1.ListIndex = -1 '0 ' ersten Wert anzeigen '1.Zeile auswählen
UserForm3.Show
gruß kurti