Hallo Zusammen,
Ich habe folgendes Problem: Ich möchte in einer MultiSelect Listbox(1) mehrere Einträge bzw. genauer Zeilen auswählen und in die identische Zeile auf einem Excelblatt per ComboBox Inhalte einfügen. Da ich zum ersten Mal mit einer MultiSelect ListBox arbeite, weiss ich nicht genau wie ich es umsetzen kann. Ich denke mal man müsste mehrere For n=ListBox.Select Schleifen einsetzen, jedoch scheitere ich wiederholt und hoffe Ihr habt eine passende Lösung für mich. Hier der Code:
Private Sub Ensave() 'Speichervorgang = Übertragen aller Eingaben in die Excel-Datei
Dim lzeile As Long
Dim n As Long
Dim FirstIndexNo As Integer
Dim i As Integer
FirstIndexNo = -1
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
FirstIndexNo = i
Exit For
End If
Next i
End With
If FirstIndexNo -1 Then
lzeile = FirstIndexNo 'hier soll er mir quasi die Zeilen durchzählen, ich denke es fehlt eine weitere Abhängigkeit (n), wo ich nicht weiss wie ich Sie einfügen kann
End If
'alle ComboBoxen übertragen ins Excelsheet
'Buchung quittieren
Sheet2.Cells(lzeile, 10) = ComboBox2.Text 'hier müsste ne auch ne Aufzählen stattfinden, weiss nur nicht wie ich das machen soll
Sheet2.Cells(lzeile, 11) = Format(Date, "dd.mm.yy")
Worksheets("Aktionsbutton").Select
'Refresh der Userform, damit Zeilennummern in ListBox stimmen (ohne das kommt es zu fehlern in der Sufu!)
Unload UserForm3
UserForm3.Show
Exit Sub
Ich hoffe Ihr könnt mir weiterhelfen! Vielen Dank im Voraus
Lieben Gruß