Ich benötige nochmal Eure Hilfe.
Ich habe auf einer UserForm eine Listbox in welcher ich bestimmte Werte per Kontrollkästchen auswählen kann. Den Code habe ich mir aus anderen Makros zusammenkopiert - please don't shoot --> VBA nur mit Recorder! :)
Private Sub UserForm_Initialize()
Dim lngZeile As Long
lngZeile = Range("A:A").Find(what:="SYSTEM").Row
With Worksheets("Tabelle1")
Do
ListBox2.AddItem .Cells(lngZeile, 1)
lngZeile = lngZeile + 1
Loop While .Cells(lngZeile, 1) ""
End With
With ListBox2
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
End With
End Sub
Das scheint zu funktionieren.
Jetzt würde ich aber gerne, dass er mir alle ausgewählten Werte in der Listbox in die Tabelle 2 ab Zeile E12 untereinander auflistet --> also E12, E13, E14 etc. Zusätzlich müsste er aber die Zeilen ab E13, 14 etc. einfügen, da in der Spalte E schon Werte stehen die nicht überschrieben werden sollen.
Geht sowas?
Bin für jede Hilfe dankbar!
Schönes Wochenende noch!