Hallo Liebe Community,
ich hoffe Ihr könnt mir helfen.
In einem Userform ist eine Multilistbox, in der ich bereits die 16-Werte/ Auswahlmöglichkeiten einfügen konnte.
Diese gleichen 16 Werte stehen auch in B7:Q7.
Bei der Bestätigung im Userform soll die Auswahl in der Listbox geprüft werden und mit dem normalen Excelsheet auf Übereinstimmung (B7:Q7)geprüft werden. Falls eine Übereinstimmung ist soll ein "x" in die die nächste freie Zeile eingetragen werden. Fall keine Übereinstimmung dann soll da nicht stehen. Ich denke das geht nur mit einer for to next schleife. Aber sicher bin ich mir nicht
Bsp. Die Multilistbox-Auswahl ist gleich mit B7 und Q7 - also soll in B10 und Q10 , welches die beiden nächsten Freie Zeilen sind, ein "x" stehen.
Den Code für die nächste freien Zeile habe ich schon geschrieben.
Dim lngZeile As Long
lngZeile = 10
While Cells(lngZeile, 1).Value ""
lngZeile = lngZeile + 1
Wend
Cells(lngZeile, 1).Select
Leider komme ich aber jetzt nicht weiter. Könnt Ihr mir helfen?
Ich würde mich sehr freuen.
Viele Grüße und Danke für die schnelle Antwort.