hallo

hab alles so gemacht wie vorhin vorgeschlagen zum format buchhaltung

ActiveSheet.Cells(lngNeuerArtikel, 4).Value = CDbl(Me.txtPreis.Value)
ActiveSheet.Cells(lngNeuerArtikel, 4).NumberFormat = _
"_ [$EUR] * #,##0.00_ ;_ [$EUR] * -#,##0.00_ ;_ [$EUR] * ""-""??_ ;_ @_ "

funktioniert auch alles wenn das blatt in das es ausgegeben wird nicht geschützt ist
wenn ja dann kommt eine fehlermeldung

laufzeitfehler 1004

die numberformat eigenschaft des range objects kann nicht festgestellt werden

wie kann ich das beheben??

vielen dank

martin