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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 157110
Url: https://administrator.de/contentid/157110
Ausgedruckt am: 20.11.2024 um 17:11 Uhr
3 Kommentare
Neuester Kommentar
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ß
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ß
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
Bei dem zuletzt verwendeten Datumsformat musst du ein bisschen versuchen zu denken wie ein Redmonder Praktikant...
Eine Zuweisung
...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.
Details siehe in der M$-VBA-Hilfe.
Grüße
Biber
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"
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