Problem mit Set - Code von Tino
19.12.2008 07:52:43
Tino
ich habe vor einigen Tagen folgenden Code von Tino bekommen.
Set Bereich = Range(Cells(2, spalte), Cells(Rows.Count, spalte).End(xlUp))
meArea = Bereich
For A = 1 To UBound(meArea)
meArea(A, 1) = Replace(meArea(A, 1), ".", ",")
If IsNumeric(meArea(A, 1)) Then meArea(A, 1) = meArea(A, 1) * 1
Next A
...
...
Geht der Bereich aber nur bis zur Zeile 2, dann bekomme ich folgende Fehlermeldung:
Laufzeitfehler 13: Typen unverträglich.
Gibt es eine Möglichkeit diesen Fehler abzufangen?
Danke im voraus für eure Hilfe
Harald