Hallo Sabina
- Ich nutze die ListBox aus der Toolsammlung für die UserForms.
- Die UserForm ist in dem UserForm
- Unten Siehst du den Code welchen Ich für die Füllung der ListBox verwende beim Starten des UserForms.
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Zellennummer = 1
Zellenbuchstabe1 = "A"
Zellenbuchstabe2 = "B"
Zellenbuchstabe3 = "C"
Anfang3:
Dim Zelle1 As String, Zelle2 As String, Zelle3 As String
Zelle1 = Zellenbuchstabe1 + CStr(Zellennummer)
Zelle2 = Zellenbuchstabe2 + CStr(Zellennummer)
Zelle3 = Zellenbuchstabe3 + CStr(Zellennummer)
If Range(Zelle1).Value = "" And Range(Zelle2).Value = "" And Range(Zelle3).Value = "" Then
ListBox1.RowSource = "Tabelle1!A1:C" & Zellennummer
Else
Zellennummer = Zellennummer + 1
GoTo Anfang3
End If
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Falls du noch Fragen hast, frag ruig.
Vielen Dank für deine Unterstützung Gruss
Rim
|