Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formate übertragen

Forumthread: Formate übertragen

Formate übertragen
Jean
Guten Abend,
2 Fragen zur Formatübertragung mit VBA sind für mich ungelöst:
A. Wie kann man alle Formate der Zelle A1 in die Zelle B1 übertragen?
B. Wie kann man die Schriftfarbe von Zelle A1 in die Zelle B1 übertragen?
Gruß
Jean
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formate übertragen
06.11.2009 21:39:38
Josef
Hallo Jean,
Sub formate()
  With Sheets("Tabelle3")
    'Formate
    .Range("A1").Copy
    .Range("B1").PasteSpecial xlFormats
    Application.CutCopyMode = False
    
    'Schriftfarbe
    .Range("B2").Font.Color = .Range("A2").Font.Color
  End With
End Sub

Gruß Sepp

Anzeige
AW: Formate übertragen
06.11.2009 21:46:29
Jean
Hallo Sepp,
super. Vielen Dank für die schnelle Unterstützung.
Jetzt kanns weitergehen ...
Gruß
Jean
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige