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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Formate übertragen

Josef
AW: Formate übertragen

Jean

AW: Formate übertragen

06.11.2009 22: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

AW: Formate übertragen

06.11.2009 22:46:29

Jean

Hallo Sepp,
super. Vielen Dank für die schnelle Unterstützung.
Jetzt kanns weitergehen ...
Gruß
Jean

Forumthread: Formate übertragen

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread