Hallo !
Ich habe seit einer Woche Probleme mit dem Downloaden von Kursen. Die Datei habe ich seit einiger Zeit und es ging alles problemlos, doch nun muß ich alles händisch übertragen. Ich habe die Datei angehängt und den Code wo die Datei hängenbleibt (der Teil welcher Fett hinterlegt ist).
Kann mir wr helfen, was ich ändern soll, damit dieses Ding wieder geht ?
Danke im voraus
chris58

Sub Unit()
Dim C As Range
With Range("C101:D133")
For Each C In .Cells
C.Value = Int(C * 100) / 100
Next
.NumberFormat = "#,##0.00"
End With
End Sub

Hier die Datei:
https://www.herber.de/bbs/user/178892.xls