Hallo Zusammen
Ich habe ein Excel Workbook mit einer Userform1, einer ComboBox1, einer Listbox1 und 2 Buttons. Wenn das Dokument geöffnet wird, startet die Userform1. Der User wählt dann im Dropdown seinen Betrieb aus.
Je nach dieser Auswahl soll dann die Listbox1 mit Dokumenten gefüllt werden.
Im meinem Excel habe ich eine Tabelle, welche in diversen Spalten die Dokumente für jeden Betrieb auflistet. Diese kann erweiter werden.
Nun habe ich das Problem wie ich diese Schleife/Bedingung gestalte.
Die Titel der Spalten lauten immer "Dokumente Bio", "Dokumente Mono" etc. Momentan erstelle ich aus diesen Einträgen in der Titelzeile ein Array. Dieses Array durchlaufe ich in einer Schleife und prüfe mit einer If-Bedingung in der Schleife immer ob der Eintrag mit dem gewählten Betrieb aus der ComboBox1 übereinstimmt.
Das Problem ist der Inhalt der If-Bedingung. Wenn die Bedingung zutrifft muss ich ja sagen können, füge die Dokumente aus der Spalte in der "Bio" steht in die Listbox1 ein. Wie kann ich denn jetzt die korrekte Spalte ansteuern?
Hier mal mein Code:
'strArrayDoks für Dokumente
Dim iDoks As Long
For iDoks = 2 To range("Z10").End(xlToRight).Column
If Sheet3.Cells(1, iDoks) <> "" Then
stringToAdd = Sheet3.Cells(10, iDoks)
stringToAdd = Replace(stringToAdd, "Dokumente ", "")
strArrayDoks = strArrayDoks & stringToAdd & " "
Else: GoTo Finish
End If
Next iDoks
Finish:
Dokumente = Split(strArrayDoks)
For Each dok In Dokumente
If UserForm1.ComboBox1.value = dok Then
'?????
Else
End If
Next
Wär echt froh um ein wenig Hilfe.. Komm grat nicht mehr weiter :(
|