|
Hallo, Der Fehler müsste eigentlich auch unter Excel 2010 gekommen sein. Die Cells beziehen sich nämlich auf das aktive Tabellenblatt und nicht auf Worksheets(Daten)
Probiers mal anstatt mit:
CInt(Worksheets("Daten").Range(Worksheets("Daten").Cells(4, i), Worksheets("Daten").Cells(4, i)).Value)
Für die anderen Zeilen entsprechend.
|