VBA Code geht nicht

[PetrolMaxxe]

Hallo Miteinander,

da hat einer einfach mal noch 'ne Zeile über der Tabelle eingefügt und fertig ist das Problem.

Wie schon UweD geschrieben hat dann eben die Schleife ab 3 Zählen.

Um solchen Problemen vorzubeugen kann man einfach den Start der Schleife berechnen.

Zur Ergänzung: Jens seine Beispieldatei war so angelegt, dass wenn Zellen ohne Zeit also leer vorhanden sind kein Fahrer eingetragen war und damit der Fehler nicht passierte. Der Fehlerausschluss wäre so:

Code:

If IsNumeric(Sheets(arr(j)).Range(SollSpalte & Treffer)) Then
    timeSoll = timeSoll + (Sheets(arr(j)).Range(SollSpalte & Treffer) * 24)
End If
If IsNumeric(Sheets(arr(j)).Range(IstSpalte & Treffer)) Then
    timeIst = timeIst + (Sheets(arr(j)).Range(IstSpalte & Treffer) * 24)
End If

Nötig wäre diese Anpassung nicht, wenn die betreffende Zelle 0 enthält.

Gruß Uwe