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

Printed on: May 22, 2024 at 00:05 o'clock

Member: Fennek11
Fennek11 Jun 10, 2021 at 11:02:29 (UTC)
Goto Top
Hallo,

den angezeigten Wert erhält man mit

cells(1,1).Text

mfg
Member: colinardo
Solution colinardo Jun 10, 2021 updated at 11:12:21 (UTC)
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
Member: e2Mario
e2Mario Jun 10, 2021 at 11:14:35 (UTC)
Goto Top
Danke, aber da komme ich leider nicht weiter...
Member: em-pie
Solution em-pie Jun 10, 2021 at 11:23:35 (UTC)
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
Member: e2Mario
e2Mario Jun 10, 2021 at 11:25:13 (UTC)
Goto Top
Servus,

DANKE du bist ein Held face-smile
Member: erikro
erikro Jun 11, 2021 at 14:27:08 (UTC)
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