Umwandlung String in Dezimal

Umwandlung String in Dezimal. NumberFormat
Sub Umsatz()
Dim wert01$, wert02 As Currency, zelle As Range
For Each zelle In ThisWorkbook.ActiveSheet.UsedRange
If zelle.Row = 1 Then GoTo next_zelle 1. Zeile nicht verändern (Text)
wert01 = "": wert02 = 0
wert01 = zelle.Value
If wert01 = "" Then GoTo next_zelle falls Zelle leer war
On Error Resume Next Problem, weil in Spalte G nur Leerzeichen
wert02 = wert01
zelle.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 " Standard
zelle.NumberFormat = "#,##0.00 ;[Red]-#,##0.00 " mit Euro
zelle.NumberFormat = "#,##0.00;[Red]-#,##0.00" rechtsbündig
zelle.FormulaR1C1 = wert02
next_zelle:
Next
End Sub
.

Mehr Tipps: Bereiche auswerten

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt