AW: Daten aus Tabellenblatt in Listbox
24.08.2017 23:12:03
fcs
Hallo THomas,
ich hab es jetzt nochmal nachgebaut. Hier die erforderlichen Anpassungen für eine Listbox, die anderen musst du analog ändern.
Beispiel Anpassung für in Sub UserForm_Initialize()
With Sheets("Versuchseinrichtungen")
lngLast = .Cells(.Rows.Count, 1).End(xlUp).Row
varList = .Range("A1:A" & lngLast)
ListBox1.List = varList
For varList = 1 To lngLast
Me.ListBox1.Selected(varList - 1) = .Cells(varList, 2)
Next
End With
Beispiel für Anpassung in Sub cmdOK_Click()
With Sheets("Versuchseinrichtungen")
For lngI = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lngI) Then
If rng1 Is Nothing Then
Set rng1 = .Cells(lngI + 1, 1)
Else
Set rng1 = Union(rng1, .Cells(lngI + 1, 1))
End If
End If
.Cells(lngI + 1, 2).Value = Me.ListBox1.Selected(lngI) 'neue Zeile
Next
End With
An geigneten Stellen, z.B. am Ende des Druken - Makros msst du dann noch den Befehl zum Speichern der Mappe einbauen.
ThisWorkbook.Save
Gruß
Franz
Gruß
FRanz