Microsoft Excel

Herbers Excel/VBA-Archiv

Format mit VBA kopieren

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

  

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


  

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


  

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


  

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


  

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




 

Beiträge aus den Excel-Beispielen zum Thema "Format mit VBA kopieren"