@Ramses - Negative Zahl korrekt darstellen (SAP

Forumthread: @Ramses - Negative Zahl korrekt darstellen (SAP
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: @Ramses - Negative Zahl korrekt darstellen (SAP

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: @Ramses - Negative Zahl korrekt darstellen (SAP

Detlef
AW: @Ramses - Negative Zahl korrekt darstellen (SAP

F.
da steht 2 statt 1...

Renee
AW: da steht 2 statt 1...

F.

AW: @Ramses - Negative Zahl korrekt darstellen (SAP

05.03.2010 13: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