Prunkt durch Komma ersetzen
13.12.2017 14:47:15
Torsten
ich bin neu hier und hoffe das ihr mir helfen könnt. Nachdem ich nun mehrere Tage versucht habe das Problem alleine via Forum und Google zu lösen bin ich jetzt mit meinem Laienwissen am Ende und bitte um Hilfe.
Was gewollt ist:
Ich möchte eine Gewichtsberechnung in Tonnen machen, dafür habe ich in einer Userform 4 Textboxen (Brutto / Tara / Netto) + 1 Textbox die das Ergebnis in einer anderen Userform zeigen soll.
- Brutto für die 1. Eingabe
- Tara für die 2. Eingabe
- Netto für das Ergebnis
Grundsätzlich ist die Berechnung nicht schwer, bekomm ich alles soweit hin, nur das Komma macht mir Kopfzerbrechen. Ich würde das Ergebnis gern wie folgt angezeigt haben: 2,500 t oder 20,000 t aber auf Teufel komm raus will das Programm kein Komma schreiben sondern immer nur einen Punkt. Ich hab es schon mit Replace versucht aber es bringt alles nicht den gewünschten Erfolg.
Hier mein Code:
Sub Rechentest()
Dim brutto As String
Dim tara As String
Dim netto As String
brutto = TextBox_brutto.Value
tara = TextBox_netto.Value
netto = CStr(CCur(brutto) - CCur(tara))
TextBox_ergebnis.Text = Format(netto, "##,###")
TextBox_anzeige.Text = CStr(Replace(TextBox_ergebnis.Text, "##.###", "##,###")) & " t"
End Sub
Ich hoffe ihr könnt mir helfen.
Besten Gruß
Torsten
Anzeige