Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Ramses - Negative Zahl korrekt darstellen (SAP

Forumthread: @Ramses - Negative Zahl korrekt darstellen (SAP

@Ramses - Negative Zahl korrekt darstellen (SAP
F.
Hallo Rainer
Deine Lösung zu diesem Problem war super. https://www.herber.de/forum/archiv/1140to1144/t1143003.htm#1143003
Habe nun aber festgestellt, dass bei den geänderten Daten die zweite Stelle hinter dem Komma verschwindet.
Beispiel:
Aus 324.07- wird -324.00
Mittels der Auswahl der Zelle sowie über Daten/Text in Tabelle usw.. kommt korrekterweise -324.07 heraus.
Kann dies im Code korrigiert werden?
Danke und Gruss
Frédéric
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: @Ramses - Negative Zahl korrekt darstellen (SAP
05.03.2010 12:09:52
Detlef
Hallo Frèdèric,
ich bearbeite meine SAP-Importe mit folgendem Code.
Modul modText2Value 
Option Explicit 
 
Sub Text2Value() 
    Dim rngZelle As Range 
     
'** Für jede Zelle im markierten Bereich 
    For Each rngZelle In Selection 
         
    '** Prüfen, ob die Zelle einen Text (String) beinhaltet 
        If VarType(rngZelle.Value) = vbString Then 
         
            '***Tausche Minuszeichen, wenn hinter dem Wert 
            If Right(rngZelle.Value, 1) = "-" Then 
                rngZelle.Value = "-" & Left(rngZelle.Value, Len(rngZelle.Value) - 1) 
            End If 
             
            rngZelle.Value = CDbl(rngZelle) 
     
        End If 
         
    '** Formatierung rechtsbündig 
        rngZelle.HorizontalAlignment = xlRight 
 
    Next 
     
End Sub 
 

Gruß Detlef
Anzeige
AW: @Ramses - Negative Zahl korrekt darstellen (SAP
05.03.2010 14:02:29
F.
Vielen Dank!
Gruss
Frédéric
da steht 2 statt 1...
05.03.2010 12:32:47
Renee
Jordan,
ersetze in Ramses Code:
Left(myC, Len(myC) - 2)
durch
Left(myC, Len(myC) - 1)
GreetZ Renée
AW: da steht 2 statt 1...
05.03.2010 14:01:54
F.
Vielen Dank!
Gruss
Frédéric
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige