Formatierung einer Zahl

[Schweiz]

Ich habe die folgende Frage:

Ich möchte folgende Zahlenformate über mehrere Seiten ändern.
Beispiel:   19.00 in 19.-

Beträge mit einem Wert hinter dem Komma sollen aber stehen bleiben.
Beispiel: 17.33 bleibt 17.33

Kann jemand hierzu eine Hilfestellung leisten?

Vielen Dank im Voraus.

[gmg-cc]

Moin Moin,

ich denke mal, dass der Punkt bei dir der Dezimaltrenner ist.
Und ich setze voraus, dass die Umwandlung in der gleichen Zelle passieren soll.

Dann geht das IMHO nur per VBA und du wirst die noch-Zahlen in Texte umwandeln müssen. Zumindest die Doppel-Nuller. Und mit 14.- kannst du dann natürlich nicht weiter rechnen.

[Schweiz]

Hallo Günther,

ja das siehst Du richtig.
Der Geschäftsführer möchte die Nuller nach dem "Komma" nicht sehen, sondern ein ,-.
Rechnen müßte ich nicht mehr damit. Es geht nur um das Aussehen des Wertes.
Was müßte ich wie formatieren?

[gmg-cc]

Moin,

ich glaune, dass dein GF schon ein paar Jahre auf dem Buckel hat ...  Ich jedenfalls habe dies Schreibweise noch während meiner Lehre vor über 50 Jahren gelernt ...

Eine kleine Änderung habe ich doch noch meinen damaligen Gewohnheiten angepasst, weil es sinnvoll ist: 2 Striche statt nur einem. Sonst stehen die "Kommas" nicht untereinander, und das sieht echt blöd aus ...

Probiere mal diesen Code an einer Kopie aus:

Code: [Auswählen]

Option Explicit

Sub StricheStattNullen()
   Dim c As Range, rngStr As String
   rngStr = UsedRange.Address(0, 0)
   On Error GoTo ErrorHandler
   With Application
      .ScreenUpdating = False
      .Calculation = xlCalculationManual  'Sonst Automatic
   End With
   With ActiveSheet
      .Range(rngStr).Copy
      Range(rngStr).PasteSpecial Paste:=xlValues
      For Each c In .UsedRange
         If IsNumeric(c) Then
            c = Format(c.Value, "#,##0.00")
            If Right(c, 2) = "00" Then _
             c = Left(c, Len(c) - 2) & "--"
            c.HorizontalAlignment = xlRight
         End If
      Next c
   End With
ErrorHandler:
   With Application
      .ScreenUpdating = True
      .Calculation = xlCalculationAutomatic
   End With
End Sub
Viel Glück bei deinem GF!