Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bedingte Formatierung übertragen
#1
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ß!
Antworten Top
#2
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
Der Künstler lebt auch vom Applaus
Excel Optimaler Zuschnitt von Stangen/Balken - YouTube
[-] Folgende(r) 1 Nutzer sagt Danke an Guschti für diesen Beitrag:
  • diving_excel
Antworten Top
#3
Danke für den Hinweis, jetzt geht es!

Gruß
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste