führende Nullen

[damuschong]

hi, ich habe ein Problem, und hoffe, dass ihr mir helfen könnt.

Ich benötige ein Makro, dass das Zellenformat ändert. Das neue Zellenformat soll 4 führende nullen haben.
z.b 0005 - 0012 - 0234 - 1256

Danke

[DPunch]

Aloha

http://www.dannenhoefer.de/faqstarbasic ... llen..html

Das Format mit 4 führenden Nullen hat den Wert 108

[damuschong]

Danke schonmal,
wenn ich den inhalt einer Spalte(C) in eine Andere Spalte (B) kopieren möchte,

Code: Alles auswählen

 With ThisComponent.Sheets(0)
        oQuelle = .getCellRangeByName("C1:C65000")
        oZiel   = .getCellRangeByName("B1")
         .copyRange(oZiel.CellAddress, oQuelle.RangeAddress)
         ThisComponent.Sheets(0).getCellByPosition(1,65000).Numberformat=107
    End With

kann ich das dann so machen ?

tut sich nämlich nichts ;(

[Karolus]

Hallo
vmtl. möchtest du

Code: Alles auswählen

 with ThisComponent.Sheets(0)
        oQuelle = .getCellRangeByName("C1:C65000")
        oZiel   = .getCellRangeByName("B1")
         .copyRange(oZiel.CellAddress, oQuelle.RangeAddress)
         .getCellRangeByPosition(1,0,1,65000).Numberformat=107
end with

Gruß Karo