nochmal format buchhaltung

Bild

Betrifft: nochmal format buchhaltung
von: martin
Geschrieben am: 01.12.2003 22:55:43

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

Bild


Betrifft: AW: nochmal format buchhaltung
von: GerdW
Geschrieben am: 01.12.2003 23:10:17

Bist du sicher, VBA gut?

Du musst natürlich vor der Zuweisung des Formats den Schutz aufheben.

Gerd


Bild


Betrifft: ;-)
von: NE
Geschrieben am: 01.12.2003 23:32:44

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


Bild


Betrifft: AW: ;-)
von: martin
Geschrieben am: 02.12.2003 02:40:48

danke sehr

martin


Bild

Beiträge aus den Excel-Beispielen zum Thema " nochmal format buchhaltung"