ich habe folgendes Problem:
Ich habe ein Excel Sheet, da werden Daten (Zahlen) von einem anderen excel in das Tabellenblatt "TEMP" reinimportiert. Aus diesem Tabellenblatt "TEMP" wird dann eine Spalte weiter in ein anderes Tabellenblatt "data" kopiert:
Worksheets("Temp").Range("CW2:CW1000").Copy Worksheets("data").Range("B5")
nun sind die Daten in meiner Spalte B und sollten weiter verarbeitet werden, dass heisst, einzelne Werte werden aus dieser Spalte herausgeholt und irgend wie addiert.
Nun zum Problem: die Daten aus der externen Datei (Zahlen) sind durch tausender Trennzeichen getennt, aber als Text formatiert. (zB 4.123,23 formatiert als Text)
Wenn ich die Daten nun in mein Tabellenblatt Temp reinkopiere und dann weiter in mein Datenblatt "Data" kopiere, kann ich mit diesen Werten nicht mehr rechnen, vermutlich, weil es Text ist.
Ich müsste meine Quelle vorher als Standard formatieren , dann verschwindet in den Spalten mit Zahlen der . als Tausender trennzeichen und ich könnte wieder damit nach dem einlesen wieder rechnen.
Da ich aber keinen einfluss auf diese externe Datei habe, suche ich eine Möglichkeit, beim kopieren der Daten von TEMP nach DATA mit:
Worksheets("Temp").Range("CW2:CW1000").Copy Worksheets("data").Range("B10")
den Text so zu kopieren, dass es in meinem Tabellenblatt nicht mehr als Textformat, sondern als Zahlenvormat vorliegt.
Ich habe auch mal versucht, die Daten nach dem Kopieren in ein Zahlenwert zu formatieren, das funktioniert auch nicht , Zellen lassen sich dann immer noch nicht addieren. NUR wenn ich vor dem Import die Spalten auf Standard formatiere, rechnet mein Code mit den Werten. (ist ja aber nicht möglich)
Meine Frage: gibt es irgend wie eine andere Kopiermethode, wo ich aus Text (4.123,23) gleich beim einfügen eine Zahl draus machen kann. ?
Hoffentlich was das verständlich erklärt und hoffe auf Hilfe.
Gruss
Dieter