Excel 2010 Problem mit angeblich als Text formatierten Zahlen
Das Problem tritt auf seit Excel 2010. Im Excel 2000 hat es noch funktioniert.
Hallo,
beim Versuch per VBA eine simple Addition von ein paar Zellen durchzuführen, komme ich momentan nicht weiter:
Die Zellen kommen per SQL Befehl aus einer Access 2000 Datenbank. Die Felder, um die es hier geht, sind in der Datenbank als Währung formatiert. Nach dem Import in ein Tabellenblatt meint Excel, dass die Daten im Textformat vorlägen:
"In eine Zahl umwandeln" würde das Problem zwar fürs Erste lösen, aber ich suche nach einer Möglichkeit, dieses per VBA zu automatisieren. Ich habe versucht per Makrorecorder die Spalte "k" zu kopieren und dann über Inhalte einfügen "Einfügen Werte" auszuwählen, was jedoch nicht klappt. Oder per Makrorecorder die Spalte "k" zu kopieren und dann über Inhalte einfügen "Vorgang Addieren" auszuwählen. Bei der Aufzeichnung klappt es, jedoch nicht bei der Wiedergabe.
Was mich auch sehr wundert ist, dass Excel das Format der Zellen korrekt als Währung anzeigt:
Kann ich hier nicht die Excel-Datei irgendwo anhängen? Habe nichts gefunden.
Wie kann das Problem gelöst werden? Vielen Dank für jeden Tipp!
Viele Grüße,
Volker
ps:
In einem anderen Beitrag (Excel Zellen von Textformat in Zahlenformat ändern) hat jemand ein ähnliches Problem. Leider hilft die Lösung in meinem Fall auch nicht:
Die Zellen sind zwar jetzt links formatiert, aber lassen sich noch immer nicht addieren.
pps:
Lösung: (naja, mehr ein Workaround)
hier nochmal als Text: (und long -> double korrigiert)
Sub Txt_In_Zahlenformat_kovertieren()
Dim LetzteZeile, i As Single
Dim Zahlenwert As Double
Columns("K:K").NumberFormat = "#,##0.00"
' Letzte beschriebene Zeile in Spalte K bestimmen
LetzteZeile = ActiveSheet.Cells(Rows.Count, 11).End(xlUp).Row
For i = 1 To LetzteZeile
Zahlenwert = Cells(i, 11).Value
Cells(i, 11).Value = Zahlenwert
Next i
Range("A1").Select
End Sub
Hallo,
beim Versuch per VBA eine simple Addition von ein paar Zellen durchzuführen, komme ich momentan nicht weiter:
Die Zellen kommen per SQL Befehl aus einer Access 2000 Datenbank. Die Felder, um die es hier geht, sind in der Datenbank als Währung formatiert. Nach dem Import in ein Tabellenblatt meint Excel, dass die Daten im Textformat vorlägen:
"In eine Zahl umwandeln" würde das Problem zwar fürs Erste lösen, aber ich suche nach einer Möglichkeit, dieses per VBA zu automatisieren. Ich habe versucht per Makrorecorder die Spalte "k" zu kopieren und dann über Inhalte einfügen "Einfügen Werte" auszuwählen, was jedoch nicht klappt. Oder per Makrorecorder die Spalte "k" zu kopieren und dann über Inhalte einfügen "Vorgang Addieren" auszuwählen. Bei der Aufzeichnung klappt es, jedoch nicht bei der Wiedergabe.
Was mich auch sehr wundert ist, dass Excel das Format der Zellen korrekt als Währung anzeigt:
Kann ich hier nicht die Excel-Datei irgendwo anhängen? Habe nichts gefunden.
Wie kann das Problem gelöst werden? Vielen Dank für jeden Tipp!
Viele Grüße,
Volker
ps:
In einem anderen Beitrag (Excel Zellen von Textformat in Zahlenformat ändern) hat jemand ein ähnliches Problem. Leider hilft die Lösung in meinem Fall auch nicht:
Die Zellen sind zwar jetzt links formatiert, aber lassen sich noch immer nicht addieren.
pps:
Lösung: (naja, mehr ein Workaround)
hier nochmal als Text: (und long -> double korrigiert)
Sub Txt_In_Zahlenformat_kovertieren()
Dim LetzteZeile, i As Single
Dim Zahlenwert As Double
Columns("K:K").NumberFormat = "#,##0.00"
' Letzte beschriebene Zeile in Spalte K bestimmen
LetzteZeile = ActiveSheet.Cells(Rows.Count, 11).End(xlUp).Row
For i = 1 To LetzteZeile
Zahlenwert = Cells(i, 11).Value
Cells(i, 11).Value = Zahlenwert
Next i
Range("A1").Select
End Sub
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 206340
Url: https://administrator.de/forum/excel-2010-problem-mit-angeblich-als-text-formatierten-zahlen-206340.html
Ausgedruckt am: 11.01.2025 um 15:01 Uhr