Seite 1 von 1
führende Nullen
Verfasst: Mi, 13.01.2010 14:57
von 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
Re: führende Nullen
Verfasst: Mi, 13.01.2010 15:07
von DPunch
Aloha
http://www.dannenhoefer.de/faqstarbasic ... llen..html
Das Format mit 4 führenden Nullen hat den Wert 108
Re: führende Nullen
Verfasst: Mi, 13.01.2010 15:15
von 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 ;(
Re: führende Nullen
Verfasst: Mi, 13.01.2010 15:24
von 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