Hey, [WIN XP SP2, MS Excel 2002]
ich habe eine VBA Appliktion erstellt welche mir automatisch Test druchführt und das Ergebniss in einem Sheet ablegt.
If InStr(1, strText, "FEHLER", vbTextCompare) > 0 Then
' Wenn Test nicht erfolgreich
Worksheets("PRO-Files").Cells(Zeile, 4).Value = "-2"
Else
' Wenn keiner der oberen Einträggefunden wurde, Logfile ist nicht vorhanden oder enthält nicht die erwartete Information
Worksheets("PRO-Files").Cells(Zeile, 4).Value = "-3"
End If
Zeile = Zeile + 1
(strText kommt aus einem Textfile welches der "externe" Test erzeugt.)
Es funktioniert eigentlich auch alles sehr gut bis ich zur Zeile 10000 komme.
Diese wird zwar beschrieben jedoch überschreibt der 10001ste und auch alle folgenden Tests wiederum die 10000ste Zeile.
Was mache ich Falsch bzw. ist dies ein bekanntes Problem?
Für eine schnell Antwort wäre ich sehr dankbar.
Joe
|