numberformat wird durchlaufen aber n. zugewiesen
Peter
https://www.herber.de/bbs/user/71355.xls
Je nach Eingabe der Währung in Zelle J5 einer Tabelle (JPY oder CHF) sollen bestimmte Zellen anders formatiert werden. Bei einer Änderung wird nachstehender Code wirklilch durchlaufen (mit Haltepunkten überprüft), doch die Zellformate werden leider nicht übergeben.
Was habe ich falsch gemacht?
Gruss, Peter
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Worksheets(Sh.Name).Range("A5").Value = "Berechnung" Then
If Not Intersect(Target, Sh.Range("j5")) Is Nothing Then
With Target
If UCase(.Value) = "JPY" Then
Sh.Range("H15:H45,H48").NumberFormat = "#,##0;-#,##0;"
Else
Sh.Range("H15:H45,H48").NumberFormat = "#,##0.00;-#,##0.00;"
End If
End With
End If
End If
End Sub