VBA bed.Formatierung - Zahlenformat
25.02.2020 16:15:15
KST
ich habe folgenden Sachverhalt:
ich stelle meinen Kollegen eine Excel Vorlage zur Verfügung. Durch diverse Aktionen (Kopieren...) der Kollegen kommt es immer wieder vor das meine Bedingten Formatierungen ihre ursprünglichen Bezüge verlieren. zum Aufräumen hab ich mir ein VBA Makro gebaut welches erst alle im Tabellenblatt enthaltenen bedingten Formatierungen löscht und dann meine wieder einspielt.
Ich möchte in einem Fall das Zahlenformat 000,0 (also eine nachkommastelle) und einmal 000,000 (also drei Nachkommastellen). mit dem Rekorder hat das auch gut ausgesehen wenn das Makro allerdings dann drüber läuft werden die gewünschten Zahlenformate ignoriert.
Hier mein Makrotext:
Range("E9:E6150").Select
Selection.NumberFormat = "0.000"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=GANZZAHL(E9)E9"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
'ExecuteExcel4Macro "(2,1,""0,000"")"
Selection.FormatConditions(1).StopIfTrue = False
Selection.NumberFormat = "General"
Range("q1:ar6150").Select
Selection.NumberFormat = "0.0"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=GANZZAHL(q1)q1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
'ExecuteExcel4Macro "(2,1,""0,0"")"
Selection.FormatConditions(1).StopIfTrue = False
Selection.NumberFormat = "General"
vielleicht kann jemand mir weiterhelfen...
Danke
