Herbers Excel-Forum - das Archiv

Format mit VBA kopieren

Bild

Betrifft: Format mit VBA kopieren
von: Ralf

Geschrieben am: 24.07.2008 08:46:58

Hallo Excel - Experten,
ich habe eine Tabelle ( Spalten A bis O )
Die Spalten A bis N werden immer automatisch
unten angefügt, und in Spalte O muß spez. formatiert sein: 00\:00
Dieses Format ist aber immer in O 3 vorhanden. Daher wäre es
ganz toll, wenn ich einen Code hätte, der mir (nur) das Format von
Zelle O3 soweit runterkopiert, bis in Spalte N nichts mehr steht.
Hat hierzu jemand eine Idee ? Wäre für jeden Tipp dankbar !!!
Viele :-) Grüße
Ralf

Bild

Betrifft: AW: Format mit VBA kopieren
von: Erich G.
Geschrieben am: 24.07.2008 08:56:13
Hallo Ralf,
reicht es nicht aus, der gesamten Spalte O das Format einmalig per Hand zu verpassen?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Bild

Betrifft: AW: Format mit VBA kopieren
von: Ralf

Geschrieben am: 24.07.2008 09:00:32
Hallo Erich,
vielen Dank für Deine Antwort !!!
Ich habe das schon ausprobiert, aber es geht leider nicht,
da die Daten, die automatisch in die Spalten A bis N angefügt werden,
nach der letzten gefüllten Zeile suchen. Und ein benutzerdefiniertes Format
scheint für Excel schon eine "gewisse Füllung" zu bedeuten :-)
Viele :-) Grüße
Ralf

Bild

Betrifft: AW: Format mit VBA kopieren
von: Jens

Geschrieben am: 24.07.2008 08:58:31
Hallo Ralf
Versuch mal so:

Sub tt()
Dim LoZeile As Long
LoZeile = Range("N65536").End(xlUp).Row
Range("O3").Copy
Range("O4:O" & LoZeile).PasteSpecial (xlFormats)
Application.CutCopyMode = False
End Sub


Gruß aus dem Sauerland
Jens

Bild

Betrifft: Danke Jens - - - Klappt SUPER :-)
von: Ralf
Geschrieben am: 24.07.2008 09:18:14
Hallo Jens,
habe es sofort ausprobiert - - - und was soll ich sagen:
es "klappert" ganz toll :-)
Nochmal vielen Dank und
viele :-) Grüße aus dem Teutoburger Wald
Ralf

Bild

Betrifft: Bitte, gern geschehen. :o) oT
von: Jens
Geschrieben am: 24.07.2008 09:19:20

 Bild
Excel-Beispiele zum Thema "Format mit VBA kopieren"
Datumsformatkonvertierung (von Heinrich Stuerzl) Eingabeerleichterung bei Zeitformaten
Verhinderung der Formatumwandlung durch Excel Export von Diagrammen im Grafikformat
Automatische Datumformatierung unterdrücken Zahlenformatierung mit Punkt nach der 1. Ziffer
Formatvorlagen löschen Spalten bedingt summieren und Zellen formatieren
Zählen formatierter Zellen Mehrfachauswahl im Hoch- und Querformat drucken