e2mario
Goto Top

Excel Wert aus Zelle "einfrieren"

Hallo zusammen,

ich habe eine Excel Liste zum Weiterbearbeiten bekommen und ich mit meinem Latein am Ende bin.
Folgedes Problem:

Ich habe eine Preisliste in Excel bekommen welche ich in unser ERP-System einspielen soll. So weit kein Problem, jedoch
sind die Preise sehr abenteuerlich formatiert. Bzw. wurde gefiltert, geändert, etc...

zB:
angezeigter Wert in der Zelle: 12,12
angezeigter Wert in der Bearbeitungsleiste: 12,12538
oder
angezeigter Wert in der Zelle: 10
angezeigter Wert in der Bearbeitungsleiste: 10,07
oder
angezeigter Wert in der Zelle: 12,1
angezeigter Wert in der Bearbeitungsleiste: 12,12

Mein Problem hier ist, dass ich die Werte welche in der Zelle angezeigt, und nicht den der Bearbeitungsleiste benötigen würde.
=Runden, =Links, etc. scheidet dabei leider aus...

Viell. hat von Euch jemand eine Idee, ansonsten muss ich die 5.000 Zellen manuell heruntertippen...

LG
Mario

Content-Key: 667479

Url: https://administrator.de/contentid/667479

Ausgedruckt am: 29.03.2024 um 15:03 Uhr

Mitglied: Fennek11
Fennek11 10.06.2021 um 13:02:29 Uhr
Goto Top
Hallo,

den angezeigten Wert erhält man mit

cells(1,1).Text

mfg
Mitglied: colinardo
Lösung colinardo 10.06.2021 aktualisiert um 13:12:21 Uhr
Goto Top
Servus
Bsp. für alle Zellen in Spalte A2:A(n)
Sub ConvertCells()
    Dim cell As Range
    For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)  
       If IsNumeric(cell.Text) Then cell.Value = CDbl(cell.Text)
    Next
End Sub
Grüße Uwe
Mitglied: e2Mario
e2Mario 10.06.2021 um 13:14:35 Uhr
Goto Top
Danke, aber da komme ich leider nicht weiter...
Mitglied: em-pie
Lösung em-pie 10.06.2021 um 13:23:35 Uhr
Goto Top
Moin,

stehen die Beispielwerte in einer Spalte oder sind die über mehrere Spalten verteilt?

Wenn aus mehreren Spalten stammend, aber innerhalb einer Spalte vom Format immer gleichbleibend:
excel

Gruß
em-pie
Mitglied: e2Mario
e2Mario 10.06.2021 um 13:25:13 Uhr
Goto Top
Servus,

DANKE du bist ein Held face-smile
Mitglied: erikro
erikro 11.06.2021 um 16:27:08 Uhr
Goto Top
Moin,

warum einfach, wenn's auch kompliziert geht. face-wink

Datei->Optionen->Erweitert->beim Berechnen dieser Arbeitsmappe->Genauigkeit wie angezeigt festlegen

hth

Erik