ListBox - Zeile kopieren und einfügen
26.04.2021 12:07:35
David
in meiner Excel Liste habe ich ein Formular mit einer ListBox.
Aktuell ist es so das alle ausgewählten Einträgen ab Zeile "30" in meine Tabelle eingetragen werden.
zb.: Ich wähle "Toast" "Butter" "Käse" aus.
Dann wird in Tabelle X :
In Zeile 30 "Toast" eingefügt
In Zeile 31 "Butter
In Zeile 32 "Käse".
Jetzt würde ich gerne das er Zeile "6" als Muster nimmt und diese unten darunter eine Neue Zeile kopiert und die auswahl einfügt.
zb.: Ich wähle "Toast" "Butter" "Käse" aus.
In Zeile 30 wird "Toast" eingefügt
Zeile 30 wird kopiert und unten drunter eine neue Zeile mit "Butter" eingefügt
Zeile 30 wird kopiert und unten drunter eine neue Zeile mit "Käse" eingefügt
Ich hoffe das war soweit verständlich, anbei mein Code:
'Sondereinbauten/-anbauten aus ListBox
Dim i As Long
Dim j As Long
Dim blnOk As Boolean
j = 30
For i = 0 To ListBox_SchrankeSonder.ListCount - 1
If ListBox_SchrankeSonder.Selected(i) Then
ActiveSheet.Cells(j, 3) = _
ListBox_SchrankeSonder.List(i, 0)
j = j + 1
blnOk = True
End If
Next
If Not blnOk Then ActiveSheet.Rows("27:34").Hidden = True
Gruß David
Anzeige