Hallo zusammen,
nachdem ich etliche Fpren und Internetseiten ohne Erfolg nach meinem Problem durchforstet habe, weiß ich mir nich anders zu helfen, als selbst einen Post zu schreiben. Es geht um folgendes:
Ich benötige ein Makro, dass eine .csv öffnet, dort einen bestimmten Bereich markiert, ihn kopiert und in eine andere .xls(x) einfügt. Soweit habe ich das alles hinbekommen. Nun das Problem:
Der von vba markierte Bereich in der .csv-Datei (es handelt sich um zweistellige Dezimal-Zahlenwerte Bsp.: 0,04; 243,54) wird kopiert und via Range("A7 : A102").PasteSpecial in die Excel-Tabelle eingefügt. Bei diesem Schritt erkennt Excel diese Werte als Text und es erscheint in jedem Feld das kleine grüne Dreieck, bei dem das Ausrufezeichen erscheint und mit dem Hinweis The number in this cell is formatted as text or preceded by an apostrophe. Es besteht die Auswahlfunktion den Text in eine Zahl zu konvertieren.
Wie kann ich es erreichen, dass die Werte direkt als Zahl erkannt werden?
Ich habe bereits einige Vorschläge aus anderen Foren versucht. Unter anderem mit:
ActiveCell.NumberFormat = "General"
ActiveCell.Value = ActiveCell.Value
Oder:
Range("A1:X10").PasteSpecial Paste:=xlPasteValues
Eine Makro-Aufzeichnung funktioniert nicht.
Ich weiß nicht mehr weiter... manuell lassen sich die Werte mit Klick auf die angezeigte Option "In Nummer umwandeln" ändern.
Wenn jemand eine Idee hat... ich wäre sehr dankbar!
https://www.herber.de/bbs/user/82205.xlsm