| 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 | |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| . |
| |
zurück