Microsoft Excel

Herbers Excel/VBA-Archiv

@Ramses - Negative Zahl korrekt darstellen (SAP | Herbers Excel-Forum


Betrifft: @Ramses - Negative Zahl korrekt darstellen (SAP von: F. Jordan
Geschrieben am: 05.03.2010 11:58:30

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

  

Betrifft: AW: @Ramses - Negative Zahl korrekt darstellen (SAP von: Detlef
Geschrieben am: 05.03.2010 12:09:52

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


  

Betrifft: AW: @Ramses - Negative Zahl korrekt darstellen (SAP von: F. Jordan
Geschrieben am: 05.03.2010 14:02:29

Vielen Dank!

Gruss
Frédéric


  

Betrifft: da steht 2 statt 1... von: Renee
Geschrieben am: 05.03.2010 12:32:47

Jordan,

ersetze in Ramses Code:
Left(myC, Len(myC) - 2)
durch
Left(myC, Len(myC) - 1)

GreetZ Renée


  

Betrifft: AW: da steht 2 statt 1... von: F. Jordan
Geschrieben am: 05.03.2010 14:01:54

Vielen Dank!

Gruss
Frédéric


Beiträge aus den Excel-Beispielen zum Thema "@Ramses - Negative Zahl korrekt darstellen (SAP"