Bedingte Formatierung übertragen

[diving_excel]

Hallo!
Ich würde gerne per Makro Bedingte Formatierungen übertragen.
Hierfür habe ich folgendes Makro:

Code:

Private Sub CommandButton3_Click()
Sheets("00 Conditional Formatting Temp1").Visible = True
   Sheets("00 Conditional Formatting Temp1").Select
   ActiveSheet.Range("E33:BZ33").Select
   Selection.Copy
   Sheets("Hauptblatt").Select
   ActiveSheet.Range("E33").Select
   ActiveSheet.Range("E33:BZ1000").PasteSpecial xlPasteFormats
   Application.CutCopyMode = False
   Sheets("00 Conditional Formatting Temp1").Select
   ActiveWindow.SelectedSheets.Visible = False
   Sheets("Hauptblatt").Select
End Sub

Dabei sollen die Bedingten Formatierungen aus dem Bereich E33:BZ33 des  "00 Conditional Formatting Temp1" Sheets in das Hauptblatt übertragen werden (Bereich E33:BZ1000).

Leider bekomme ich beim AUsführen des Makros folgende Fehlermeldung:

"die pastespecial-methode des range-objektes konnte nicht ausgeführt werden".


Kann mir jemand von euch bitte sagen ob ich einen Fehler im Code habe?

EDIT: Der Fehler taucht in Zeile "ActiveSheet.Range("E33:BZ1000").PasteSpecial xlPasteFormats" auf.

Vielen Dank und Gruß!

[Guschti]

Hallo

Das Bedingte Format wird doch automatisch beim Kopieren/Einfügen mitgenommen.

Code:

Private Sub CommandButton3_Click()
    Sheets("00 Conditional Formatting Temp1").Visible = True
        Sheets("00 Conditional Formatting Temp1").Range("E33:BZ33").Copy Sheets("Hauptblatt").Range("E33")
            Application.CutCopyMode = False
   Sheets("00 Conditional Formatting Temp1").Visible = False
End Sub

Zu 99% kann auf Select verzichtet werden!

Gruss Guschti

[diving_excel]

Danke für den Hinweis, jetzt geht es!

Gruß