NumberFormat - Sonderformate per Makro
13.02.2008 22:20:39
Frank68
ich möchte aus einer Spalte F die dort als Zeichen hinterlegten Einheiten (Bsp. "%", "Anzahl/Jahr") zur Festlegung von Sonderformaten in Spalte G nutzen.
Mein Code:
Sub Format_übertragen()
Dim format As String
Dim bereich As Range
Dim zelle As Range
Set bereich = Sheets("2005").Range("G9:G246")
For Each zelle In bereich
zelle.Select
Selection.NumberFormat = "#,##0.0000 "" (in """ & ActiveCell.Offset(0, -1).Value & ")"
Next zelle
End Sub
Bei der zweiten Runde (Format hier: Anzahl/Jahr) bricht er ab und gibt eine Fehlermeldung aus:
"Laufzeitfehler 1004: NumberFormat-Eigenschaft des Range-Objektes kann nicht festgelegt werden"
Komisch ist, dass ich - wenn ich über Kontextmenü "Zellen formatieren" gehe, dieses Sonderformat ohne weiteres einrichten kann.
Hat jemand eine Idee?
Danke!