String wird nicht mehr erkannt
31.01.2019 08:36:18
Rasenack
ich habe leider ein kleines Problem und weiß aktuell nicht weiter. Ich möchte mit dieser kleinen Schleife eine bestimmte Spalte durchlaufen und prüfen, ob die eingegebenen Wörter rechtschreiblich korrekt sind. Wenn nicht soll das Makro abgebrochen werden. Das ist mir wichtig, weil dieser Eingabestring später als Emailempfänger(Variable) referenziert werden soll. Nun kommt das eigentliche Problem. Bei dem Wort "Konstruktion" macht er was er soll, aber bei den anderen Wörtern erkennt er nichts und bringt die MsgBox. Hab schon versucht anstatt .Value lieber .Text zu verwenden und die Spalte als Text bzw. Standard zu formatieren, leider alles ohne Erfolg.
Woran kann das nur liegen? Zumal ja ein Wort erkannt wird.
Vielen Dank im Voraus.
For Each z In Range(Cells(5, verantw), Cells(Rows.Count, verantw).End(xlUp))
If Not IsEmpty(z) Then
If Not z.Value = "Konstruktion" Or z.Value = "Vertrieb" Or z.Value = "Versand" Or z.Value = " _
Einkauf" Then
MsgBox ("Bei der Eingabe der Verantwortlichen ist ein Fehler aufgetreten!" & vbNewLine & " _
Bitte stell sicher, dass nur Outlookgruppennamen eingeschrieben wurden.")
Cells(z.Row, z.Column).Activate
Exit Sub
End If
End If
Next z