AW: Userform mit 3 Listboxen
17.03.2017 10:27:34
Piet
Hallo joachim
mit dem unteren neuen Code für 'Datensatz löschen' sollte es klappen, habe es gerade getestet.
Zu weiteren Fragen, wenn ich sie sehe gehe ich darauf ein, bin aber nicht jeden Tag im Forum!
Mache im Sommer (als Rentner) für unbestimmte Zeit Pause, weil ich dann die Familie besuche.
Ansonsten ist das kein Problem.
mfg Piet
Private Sub CommandButton3_Click()
Dim AFT3 As Variant, j As Integer
'Datensatz löshen
With Worksheets("Tabelle2")
Indx3 = ListBox3.ListIndex
AFT3 = ListBox3.List(Indx3, 2)
ListBox3.RemoveItem Indx3
ListBox3.ListIndex = -1
'Wert aus ListBox3 unten anhaengen + sortieren
.Cells(lz, "D") = AFT3
'Spalte D neu sortieren
.Range("D2:D" & lz + 1).Sort Key1:=.Range("D2"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
'UserForm neu Initialisieren
UserForm_Initialize
End With
End Sub