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
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 WithEnd 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