Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige