Office: (Office 2019) Benutzerdefiniertes Format auslesen und in andere Spalte nutzen

Moin allerseits,
folgendes Szenario: In einem Workbook füge ich per VBA und Userform neue Tabellen ein, die sowohl den Code aus der Vorlage, aber auch die Formatierung der Spalten kopieren sollen. Das funzt ... beinahe.

Per Doppelklick werden die Daten in eine zentrale Tabelle (Zieltabelle) übertragen. Eine der Spalten dort enthält Datum und Uhrzeit im Format dd.mm.yyyy hh.mm.ss und wird entsprechend dargestellt. Dieses Format wird in Ursprungs- und Ziel-Tabelle als Benutzerdefiniert angezeigt.
Eine zweite Spalte, die auch mit now gefüllt wird, kommt in der Zieltabelle leider nur im Format xxxx.xxxxx daher. Wie kann ich das Benutzerdefinierte Format auch auf diese Spalte übertragen?

Achso, Nachtrag: Wenn ich das Format kopiere, werden zwar die aktuell gefüllten Zellen angepasst, nicht aber die nachfolgenden.

Lieben Dank!

 

Hi Bastler,
dafür kennt ein Range-Objekt die Eigenschaften .NumberFormat und .NumberFormatLocal

 

Moin Helmut,
die beiden Format sind mir geläufig. Interessant bleibt noch, wie man so etwas auslesen kann.

Vielen Dank schon mal und schöne Grüße

 

Hallo Bastler,

sollte so gehen: NumberFormat in Variable lesen und wieder zuweisen.
Bsp.:
Dim Tx As String
Tx = Range("C4").NumberFormatLocal
MsgBox Tx
Range("E4").NumberFormatLocal = Tx

Gruß Sigi

 

Hi,

genau so wie Sigi vorschlägt. Natürlich kann man das auch direkt machen:
Range("E4").NumberFormat = Range("C4").Numberformat

Das bekommt man übrigens ganz schnell selbst raus, indem man in der Hilfe nachschlägt:

D.h. diese Eigenschaft funktioniert genauso wie z.B. das Auslesen / Festsetzen der .Value-Eigenschaft oder der .Formula-Eigenschaft.

 

Liebe Leute,

lieben Dank!! Die VBA-Version von Sigi ist genau das, was mir vorschwebte. Klasse!!
Was Helmuts kleinen aber hilfreichen Wink mit dem Zaunpfahl (Hilfe und so) nicht schmälern soll ;-)

Schönes Wochenende!

 

wenn du immer fortlaufende Zellen hast, kannst du die ja im Ziel immer nach unten/oben/rechts/links mit VBA kopieren.

Code:

activesheet.range("d13").AutoFill Destination:=Range("D13:D20"), Type:=xlFillFormats

 

Moin czil,
lieben Dank! xlFillFormats kannte ich noch yperhautznich nicht.

Grüße und schönes Wochenende allerseits!