Makro für Plausibilitätsprüfung

Question

Hallo,
ich möchte in Excel eine Plausibilitätsprüfung machen. In verschiedenen Zellen der Spalte A stehen Fragen und in der jeweils dazugehörenden Zelle der Spalte C die Antwortmöglichkeit. Zwischen den Werten in jeder Spalte ist eine beliebige Anzahl von leeren Zellen, so dass eine Matrix-Formel nicht funktionieren würde.
Wie kann ich in einer Msgbox den Wert von allen Zellen der Spalte A ausgeben, wenn in Spalte C eine bestimmte Antwort steht?
Dabei sollen drei Fälle zu unterscheiden sein:
1. In Spalte C ist die Antwort „ja“, dann soll direkt zu Tabelle2 gewechselt werden.
2. In Spalte C ist die Antwort bei einer Frage „nein“, dann soll eine Msgbox mit dem Hinweis auf die entsprechende Frage in der entsprechenden Zelle in Spalte A erscheinen.
3. In Spalte C ist mehr als eine Frage mit „nein“ beantwortet, dann soll eine MsgBox mit dem Hinweis auf alle entsprechenden Fragen in den Zellen der Spalte A erscheinen.
Mein Lösungsansatz war:
1. Berechnung der Anzahl der falschen Antworten ("nein") in Spalte C
2. Mit einer Schleife jeder falschen Antwort der Spalte C die entsprechende(n) Frage(n) der Spalte A zuzuweisen.
Bis zur Berechnung der Anzahl der falschen Antworten habe ich es (glaube ich) noch geschafft. Die Schleife(n) zu konstruieren, mit denen die Frage(n) in einer Msg-Box ausgegeben werden, kriege ich leider nicht hin.
Eine Beispieldatei habe ich hier hochgeladen:
www.file-upload.net/download-3710460/Fragen.xlsm.html
Ich wäre Euch für entsprechende Hinweise sehr dankbar!
Gruß
Max

Answer 1

Hi Max,

Sub Pruefung()
Dim rngZelle As Range
Dim strFalsch As String
Select Case Application.CountIf(Columns(3), "Nein")
Case 0
Worksheets("Tabelle2").Activate
Case Else
For Each rngZelle In Columns(3).SpecialCells(xlCellTypeConstants)
If rngZelle = "Nein" Then strFalsch = strFalsch & vbLf & rngZelle.Offset(0, -2)
Next rngZelle
MsgBox strFalsch
End Select
End Sub

Bis später,
karin

Answer 2

Hallo Karin,

vielen Dank für die schnelle Hilfe, es funktioniert einwandfrei!

Gruß
Max