wie kann ich die auftretenden Fehler während meiner Plausibilitätsprüfung in eine Datei schreiben und erst am Schluß dann am Bildschirm oder Drucker ausgeben?
Mein Code schaut in Auszügen so aus:
Public Sub Test()
Dim Inhalt as Date
Dim Inhalt2 as Date
Zeile = 2
Spalte = Q
Sheets("Tabelle1").Select
Do While Cells(Zeile,2) > Empty
Range (Spalte & Zeile).Select
Inhalt = Range (Spalte & Zeile).Value
Inhalt2 = Range ("Y" & Zeile).Value
If Inhalt >= Inhalt 2 then
MsgBox "blablabla"
Exit Sub
Else
Zeile = Zeile + 1
End If
Loop
End Sub
Wie gesagt, statt Exit Sub soll der Text aus der MsgBox in die Datei geschrieben und die Prüfung bis zur ersten Leerzeile fortgeführt werden. Dann Ausgabe aller Fehler am Bildschirm oder Drucker (wahlweise).
Bin für jeden Tip dankbar.
Grüße aus würzburg
Guido Ludwig