UserForm
Thomas
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!
Anzeige