Clever-Excel-Forum

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ß!

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

Danke für den Hinweis, jetzt geht es!

Gruß

diving_excel

Guschti

diving_excel