Hallo zusammen
ich arbeite gerade an einer Tabelle, bei der ich gerne über eine Combobox mit Auswahl 1 bis 5 entsprechend in einer Listbox 5 verschiedene Tabellen bereiche dargestellt haben möchte
Bisher habe ich es "nur" geschaftt, die Listbox so lange zu füllen, wie die Do While Bedingung erfüllt war und meine zugegeben Anfängerkenntnisse sind dafür nicht gut genug.
Ich würde gerne die Schleife unterbrechen mit If Me.Combobox.Value = "1" dann starte in Zeile 4, wenn der Value = "2" dann erst in Zeile 18 etc.
Meine Versuche, diesen If Befehl einzubauen, sind gänzlich gescheitert.
Wie unterbreche ich mit oben genannten Bedingungen - da bin ich für jede Hilfe dankbar
Hier der Quellcode, der alles in die Listbox einliest.
ich arbeite gerade an einer Tabelle, bei der ich gerne über eine Combobox mit Auswahl 1 bis 5 entsprechend in einer Listbox 5 verschiedene Tabellen bereiche dargestellt haben möchte
Bisher habe ich es "nur" geschaftt, die Listbox so lange zu füllen, wie die Do While Bedingung erfüllt war und meine zugegeben Anfängerkenntnisse sind dafür nicht gut genug.
Ich würde gerne die Schleife unterbrechen mit If Me.Combobox.Value = "1" dann starte in Zeile 4, wenn der Value = "2" dann erst in Zeile 18 etc.
Meine Versuche, diesen If Befehl einzubauen, sind gänzlich gescheitert.
Wie unterbreche ich mit oben genannten Bedingungen - da bin ich für jede Hilfe dankbar
Hier der Quellcode, der alles in die Listbox einliest.
Visual Basic-Quellcode
- Private Sub UserForm_Initialize()
- Dim lZeile As Long
- ListBox2.Clear 'Zuerst einmal die Liste leeren
- lZeile = 4 'Start in Zeile 4, Zeile 1-3 sind anders belegt
- 'Schleife solange etwas in der ersten Spalte in Tabelle 3 drin steht
- Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) <> ""
- 'Aktuelle Zeile in die ListBox eintragen
- ListBox2.AddItem Trim(CStr(Tabelle3.Cells(lZeile, 1).Value))
- lZeile = lZeile + 1 'Nächste Zeile bearbeiten
- Loop
- End Sub