Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel 2010 Problem mit angeblich als Text formatierten Zahlen

Frage Entwicklung VB for Applications

Mitglied: Volker3009

Volker3009 (Level 1) - Jetzt verbinden

12.05.2013, aktualisiert 18:06 Uhr, 6554 Aufrufe

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:
00f409c603438341ee20c90892090146 - Klicke auf das Bild, um es zu vergrößern
"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:
5578580ec65e85e51a09a60484d1122d - Klicke auf das Bild, um es zu vergrößern

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 (http://www.administrator.de/contentid/122064) hat jemand ein ähnliches Problem. Leider hilft die Lösung in meinem Fall auch nicht:
9e5f58ac77c072e4d394ac64d686400e - Klicke auf das Bild, um es zu vergrößern
Die Zellen sind zwar jetzt links formatiert, aber lassen sich noch immer nicht addieren.

pps:
Lösung: (naja, mehr ein Workaround)
1fec67089e450e12f457773c2df089d8 - Klicke auf das Bild, um es zu vergrößern

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
Ähnliche Inhalte
Microsoft Office
gelöst Email-Adresse aus Adressbuch-String in Excel 2010 herausschneiden (4)

Frage von rudeboy zum Thema Microsoft Office ...

Microsoft Office
PIVOT-CHART IN EXCEL 2010

Frage von MiSt zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 Doc Properties ohne Makros (1)

Frage von arduino zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 unter Windows 10pro (1)

Frage von MiSt zum Thema Microsoft Office ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(3)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (41)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
gelöst Fachzeitschriften als E-Book oder hardcoded? (11)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...