VBA ODER-Abfrage
Erik
ich will mit VBA eine doppelte Or-abfrage machen aber es hängt ein wenig. Er soll schauen ob in den Zellen "n.b." steht oder ein Zahlenwert. In zwei Zellen soll er aber wenn eine davon n.b. enthält annehmen das ein Zahlenwert vorliegt.
Das Ziel soll sein, alle Zellen zu prüfen um dann ein Kreuzchen zu setzten bei Vollständig, Unvollständig oder Teilweise. Ich hoffe es ist verständlich.
Meine Idee:
If Sheets("EA").Cells(18, 5).Value = "n.b." And _
Sheets("EA").Cells(19, 5).Value = "n.b." And _
Sheets("EA").Cells(21, 5).Value = "n.b." And _
Sheets("EA").Cells(22, 5).Value = "n.b." And _
Sheets("EA").Cells(23, 5).Value = "n.b." And _
Sheets("EA").Cells(24, 5).Value = "n.b." And _
Sheets("EA").Cells(25, 5).Value = "n.b." Then
Sheets("Übersichtsblatt").Cells(21, 3).Value = "x"
End If
If Sheets("Übersichtsblatt").Cells(21, 3).Value = "" Then
If Sheets("EA").Cells(18, 5).Value = "n.b." Or _
Sheets("EA").Cells(19, 5).Value = "n.b." Or _
Sheets("EA").Cells(21, 5).Value = "n.b." Or _
Sheets("EA").Cells(24, 5).Value = "n.b." Or _
Sheets("EA").Cells(25, 5).Value = "n.b." Or _
Sheets("EA").Cells(22, 5).Value = "n.b." And Sheets("EA").Cells(23, 5).Value = numeric Or _
Sheets("EA").Cells(22, 5).Value = numeric And Sheets("EA").Cells(23, 5).Value = "n.b." Then
Sheets("Übersichtsblatt").Cells(21, 4).Value = "x"
End If
End If
If Sheets("Übersichtsblatt").Cells(21, 3).Value = "" And _
Sheets("Übersichtsblatt").Cells(21, 4).Value = "" Then
Sheets("Übersichtsblatt").Cells(21, 2).Value = "x"
End If
Beim mittleren Teil hängt es. Ohne die zweite Or-abfrage funktioniert alles super. Aber das Kreuzchen soll halt auch bei "Vollständig" gesetzt werden wenn die Zellen 22,5 oder 23,5 nur einen Zahlenwert enthalten sollte.
Danke im Voraus.
Erik