Korrekter Fehlerabsprung?
24.01.2003 11:58:47
Frederik Fuhrmann
Wie könnte ich denn das Problem lösen, wenn der Wert für ArbPlatz(Zähler) nicht gefunden wird?
Gruß
For Zähler = 0 To 19
Gewicht = Cells.Find(what:=ArbPlatz(Zähler) & " Ergebnis", after:=Cells(1, 1)).Offset(0, 1).Value
Sheets("verschmiedete Tonnage").Range("a65536").End(xlUp).Offset(1, 0) = Aggregat(Zähler)
Sheets("verschmiedete Tonnage").Range("b65536").End(xlUp).Offset(1, 0) = Gewicht
Next Zähler
F.
Anzeige