Formel in Format Zellen formatieren Zahlen

Guten Tag
Ich habe irgend einmal gesehen, dass es möglich ist direkt bei
Menu FORMAT
Zellen formatieren
Zahlen,
eine Bedingung für die Formatierung der Zahlen einzugeben . vielleicht in eckigen Klammern, aber ich bin nicht mehr fündig geworden wie das geht (Zahlen können ja über bedingte Formatierung nicht formatiert werden).
Beispiel
Im Feld A1 steht die Währung, in in den Zellen A2:A50 sind Werte enthalten.
Nun möchte ich, dass die Zahl grundsätzlich mit 2 Nachkommastellen gezeigt wird, ausser wenn in Feld A1 YEN steht. Dann sollen keine Nachkomastellen angezeigt werden. WEnn ich nun bei der Formatierung, das Feld A1 abfragen könnte und die Formatierung davon abhängig machen könnte, könnte ich mein Formatierungsproblem lösen.
Kann mir jemand weiterhelfen?
Danke.
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim ber As Range If Not Intersect(Target, Range("A1")) Is Nothing Then With Target If UCase(.Value) = "YEN" Then Range("A2:A50").NumberFormat = "0" Else Range("A2:A50").NumberFormat = "0.00" End If End With End If End Sub

Hallo Matthias
Vielen Dank. Das hat so funktioniert und ich konnte dies sogar noch erweitern.
Nun noch meine Zusatzfrage:
Wenn ich im gleichen Sheet 7 Tabellen mit den gleichen Formatierungsbedürfnissen habe: gibt es einen ähnlichen Code, der in "DieseArbeitsmappe" eingefügt werden kann?
Besten Dank für eine Rückmeldung.
Peter


Private Sub Worksheet_Change(ByVal Target As Range)
Dim ber As Range
If Not Intersect(Target, Range("j5")) Is Nothing Then
With Target
If UCase(.Value) = "YEN" Then
Range("j14:j44,j47").NumberFormat = "#,##0;-#,##0;"
Else
Range("j14:j44,j47").NumberFormat = "#,##0.00;-#,##0.00;"
End If
End With
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim ber As Range 'Prüfung des Tabellenblattes, z.B.: If Left(Sh.Name, 7) = "Tabelle" Then If Not Intersect(Target, Sh.Range("j5")) Is Nothing Then With Target If UCase(.Value) = "YEN" Then Sh.Range("j14:j44,j47").NumberFormat = "#,##0;-#,##0;" Else Sh.Range("j14:j44,j47").NumberFormat = "#,##0.00;-#,##0.00;" End If End With End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Formel in Format Zellen formatieren Zahlen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in Format Zellen formatieren Zahlen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread