cain99
Goto Top

Excel 03 - Formatierung einer Zelle in Textform rauskriegen

Hallo,

ist es irgenwie möglich sich die Formatierung einer Zelle in Textform ausgeben zu lassen so das sie mit dem internen VBA Editor genutzt werden kann?
Gesucht ist eine Lösung wo es nicht heißt kopiere doch von da und da sondern das ich in eine Zelle mittels eines Script etwas hinneinschreibe und auch die Formatierung dann automatisch erfolgt.

MfG Cain

Content-ID: 157110

Url: https://administrator.de/contentid/157110

Ausgedruckt am: 20.11.2024 um 17:11 Uhr

MiniStrator
MiniStrator 16.12.2010 um 18:19:40 Uhr
Goto Top
Hi,

nun, wenn ich in Excel-VBA was nicht weiß und man es mit dem Menü lösen kann (also bleistiftsweise etwas Formatieren) dann zeichne ich immer ein Makro auf mit den gewünschten Sachen und schau mir dann den Code an. Da kann man dann evtl auch was copypasten.

Aber das willst du ja anscheinend nicht. Merken und eintippen geht natürlich auch...

Gruß
Biber
Biber 16.12.2010 um 22:08:03 Uhr
Goto Top
Moin cain99,

die Methode, die du suchst und z.b für eine ActiveCell oder einen verwendete Range verwenden kannst lautet NumberFormat.


Beispiele in deinem Zellenvollschreib-Plan wäre dann Konstrukte wie

' Beispiel: Alle Zellen des aktiveb Blatts auf "ist ein TEXT" formatieren
ActiveSheet.Cells.NumberFormat = "@"

' -oder-

Sub AlleDatumsfelderAlsDatum

Dim einMehrzeller As Range
Dim EinzelZelle As Range

Set einMehrzeller = Sheets(1).Range("C3:F28")

For Each EinzelZelle In einMehrzeller 
   EinzelZelle.Formula = 40528
   EinzelZelle .NumberFormat = "m/d/yyyy"
Next
End Sub

Bei dem zuletzt verwendeten Datumsformat musst du ein bisschen versuchen zu denken wie ein Redmonder Praktikant...

Eine Zuweisung
   EinzelZelle.Formula = 40528 
   EinzelZelle .NumberFormat = "m/d/yyyy"
...bewirkt die Anzeige der Zahl 40528 als Datum (heute, 16.12.2010) im virtuellen Datumsformat Month/Day/Year.
Nach Redmonder Logik kommt dabei natürlich die Anzeige "16.12.2010" heraus.
Deshalb bei regions/sprachspezifischen Formaten besser die Methode .NumberFormatLocal verwenden.
EinzelZelle.numberFormatLocal = "TT.MM.JJJJ" ' das ist wenigstens nachvollziehbar

Details siehe in der M$-VBA-Hilfe.

Grüße
Biber
cain99
cain99 16.12.2010 um 23:01:11 Uhr
Goto Top
Guten abend,

das wurd glaub i falsch verstanden.

nehm wir mal nen vergleich man kann ja websiten mit css formatieren, da steht dann in der css-datei welche farbe, größe usw.
nu steht da alles in nummern und zahlen und wüsste gern ob man bei excel sich so wie in css die formatierung anzeigen lassen kann.