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-Key: 157110

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

Printed on: April 19, 2024 at 09:04 o'clock

Member: MiniStrator
MiniStrator Dec 16, 2010 at 17:19:40 (UTC)
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ß
Member: Biber
Biber Dec 16, 2010 at 21:08:03 (UTC)
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
Member: cain99
cain99 Dec 16, 2010 at 22:01:11 (UTC)
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.