Thema Datum  Von Nutzer Rating
Antwort
Rot Formatierung in VBA - 3 nachkommastellen
22.11.2021 10:12:26 Manfred Schulze
NotSolved
22.11.2021 11:21:48 Der Steuerfuzzi
NotSolved
22.11.2021 17:08:47 Gast23647
NotSolved
23.11.2021 09:11:52 Der Steuerfuzzi
NotSolved
23.11.2021 09:23:07 Gast88037
Solved
23.11.2021 13:27:35 Gast64998
****
NotSolved
22.11.2021 16:46:11 Gast64998
NotSolved

Ansicht des Beitrags:
Von:
Manfred Schulze
Datum:
22.11.2021 10:12:26
Views:
55
Rating: Antwort:
  Ja
Thema:
Formatierung in VBA - 3 nachkommastellen

Hallo,

ich versuche in vba Daten aus einer Quelle zu formatieren und in eine neue Tabelle zu speichern. Leider klappt die Formatierung noch nicht ganz. Kennt sich jemand damit aus ? Die zu verarbeitenden Daten haben machmal 3 Nachkommastellen und kommen von der Quelle mit einem 1000 er Punkt. Das lässt sich nicht vermeiden. Ziel ist es, die Werte mit 2 Nachkommastellen sauber zu formatieren

Das ist die Ausgangstabelle

Bezeichnung Wert Menge Kosten A Bezeichn KostenC
xyz 20.000,00 2.000,000 23,85 avc 500,36
abc 15.000,55 2.000,550 17,23 avc 200,00

Das hier ist mein bisheriger Code:

For EachColumn = 2 To 5
        If EachColumn <> 4 Then
            For EachRow = 2 To LastdownlDataRow
                If InStr(Sheets("downlData").Cells(EachRow, EachColumn).Value, ",") = 0 Then
                    If Not (Right(Sheets("downlData").Cells(EachRow, EachColumn).Value, 3) <> "000" And Right(Sheets("downlData").Cells(EachRow, EachColumn).Value, 2) = "00") Then
                        Sheets("downlData").Cells(EachRow, EachColumn).Value = Sheets("downlData").Cells(EachRow, EachColumn).Value / 1000
                    End If
                End If.....

 

Das kommt bisher an:

Bezeich Wert Menge KostenA KostenC
xyc 20 2000 23,85 500,36
abc 15000,55 2000550 17,23 200,00

Immer wenn 3 Nachkommastellen sind soll der Wert durch 1000 dividiert werden, was nur manchmal klappt. Bei 2 Nachkommastellen, die auf 00 lauten soll eigentlich nicht geteilt werden. Wie kann man das lösen ?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Formatierung in VBA - 3 nachkommastellen
22.11.2021 10:12:26 Manfred Schulze
NotSolved
22.11.2021 11:21:48 Der Steuerfuzzi
NotSolved
22.11.2021 17:08:47 Gast23647
NotSolved
23.11.2021 09:11:52 Der Steuerfuzzi
NotSolved
23.11.2021 09:23:07 Gast88037
Solved
23.11.2021 13:27:35 Gast64998
****
NotSolved
22.11.2021 16:46:11 Gast64998
NotSolved