Fehler abfangen
20.04.2007 08:05:33
oxe
Kann mir jemand helfen, bitte?
Warum funktioniert folgender Code nicht?
Es soll überprüft werden, ob in den Feldern F#, H#, J# bis AT# (#=lgZDaten) nur die Einträge "Stuttgart", "Neckarwestheim" oder "" (also kein Eintrag) vorkommen. Und wenn da irgendwo aus Versehen was anderes eingetragen wurde soll am Zeilenende der Fehler gemeldet werden. Aber mir wird immer ein Fehler gemeldet...
counter = 6
While counter "Stuttgart" Then
If wksDaten.Cells(lgZDaten, counter).Value "Neckarwestheim" Then
If wksDaten.Cells(lgZDaten, counter).Value "" Then
wksDaten.Cells(lgZDaten, 78).Value = "ACHTUNG! FEHLER!"
End If
End If
End If
counter = counter + 2
Wend
Anzeige