ich habe mir auf einer UserForm eine ComboBox erstellt die als Inhalt die Spaltenüberschriften meiner Tabelle beinhaltet. Diese Überschriften dienen als Filterkriterium zum suchen. Über eine TextBox gebe ich dann den Suchbegriff ein und die Filterung wird dann in einem Listenfeld angezeigt. Funktioniert super....
Die Überschriften als Filterkriterium werden mit dieser For Schleife eingelesen:
With ComboBox1 ' die Combobox mit den Spalten-Überschriften füllen
.Clear
.Style = 2
For iSpalte = 1 To 9
WkSh.Cells(1, iSpalte).Value = Replace(WkSh.Cells(1, iSpalte).Value, vbLf, "")
.AddItem Replace(WkSh.Cells(1, iSpalte).Value, "-", "")
Next iSpalte
End With
So wie es jetzt ist werden neun Überschriften A bis I in die ComboBox über die For Schleife eingelesen, dabei sind z.B. Gebäude, Raum, Telefon als Kriterium mit dabei, die als Filter unnötig sind.
Gerne würde ich nur die relevanten Filterkriterien in der ComboBox anzeigen lassen die aber z.B. in den Spalten A, B, H und I stehen.
Kann ich die For iSpalte = ("A" & iSpalte & "B" & iSpalte & "H" & iSpalte & "I" & iSpalte) etwa in so schreiben? Hab's versucht aber es funktioniert nicht :/
Es funktioniert sonst einwandfrei, ist nur etwas Kosmetik.....
Für Tipps bin ich Euch dankbar.
Gruß
Thomas