ich habe ein kleines Problem. In einer InputBox kann der User eine Antwort geben. Diese Antwort soll mit allen Zellen im selektierten Bereich geprüft werden. Vorher wird noch geprüft, wie viele Antwortmöglichkeiten - sprich gefüllte Zellen - vorhanden sind.
Wie kann ich die Antwort mit jeder Zelle im ausgewählten Zellbereich prüfen?
Hier mein Code-Vorschlag:
Dim rng As Range
Set Zelle = Selection.Cells
AnzahlAntworten = Application.CountA(Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 7))) - 1
Set rng = Range(Cells(Zelle.Row, 2), Cells(Zelle.Row, AnzahlAntworten + 1))
... weiter komme ich nicht. :-( Noch zur Info: Es kann sein, dass es nur eine Antwort gibt.
Vielen Dank im Voraus.
Gruß
Uni