Format der Zellen über Makro ändern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Format der Zellen über Makro ändern
von: Pete
Geschrieben am: 25.11.2003 11:38:24

Hallo Forum!

Habe eine Tabelle, die ich über eine Userform initialisiere, also alle Felder ab
A12 lösche.
Leider ist das Format der Zellen dann Standart. Ich hätte gerne das Format Zahl (0,00) in den Feldern A12 bis E1000.

So sieht das Makro aus

Set Tb1 = Worksheets("tabelle1")

Tb1.Range("A12:E1000").Clear

aCell = Tb1.Cells(9, 1).Value
Tb1.Cells(aCell + 13, 1).Value = 0
Tb1.Cells(aCell + 13, 2).Value = 0
Tb1.Cells(aCell + 13, 3).Value = 0
Tb1.Cells(aCell + 13, 4).Value = 0
Tb1.Cells(aCell + 13, 5).Value = 0

End Sub

Wer kann helfen?

Danke Pete!

Bild


Betrifft: AW: Format der Zellen über Makro ändern
von: Willie
Geschrieben am: 25.11.2003 11:40:54

Füge das einfach ein deinen Code ein nach dem löschen
Gruß
Willie

Range("A12:E1000").Select
Selection.NumberFormat = "0.00"


Bild


Betrifft: AW: Format der Zellen über Makro ändern
von: Martial
Geschrieben am: 25.11.2003 11:42:22

Hi Pete

nimm den Befehl

Tb1.Range("A12:E1000").ClearContents

anstelle von Clear. Der löscht nur den Inhalt und nicht alles.
Damit bleibt deine Formatierung erhalten.

Gruss, Martial


Bild


Betrifft: AW: Format der Zellen über Makro ändern
von: Pete
Geschrieben am: 25.11.2003 11:49:50

Das ist ja einfach!
Es funktioniert!


;->Danke an Euch!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Format der Zellen über Makro ändern"