habe eine UserForm gefunden und möchte mir diese nun erweitern.
Leider funktioniert alles nur mit Text. Meine Erweiterung soll jedoch mit einer Zahlenreihe sein.
For iRow = 0 To lstSelect.ListCount - 1
Columns(WorksheetFunction.Match(lstSelect.List(iRow), Rows(9), 0)).Hidden = False
Next iRow
Zudem kann meine Zahlenreihe "Bewertung" (im Beispiel Spalte D9-J9) Ziffern doppelt haben.Insofern wäre jede Ziffer nur einmal und abwärts ideal.
Gruß Rainer
https://www.herber.de/bbs/user/79607.xls