Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 23:34:09
Bedingte Formatierung einer Zelle, wenn ein Bereich leer ist
25.10.2025 15:53:24
Günstigster Preis anzeigen lassen?
25.10.2025 15:10:14
VBA: Datei Upload mit http: POST
25.10.2025 13:01:47
Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte Formatierung kopieren

Forumthread: bedingte Formatierung kopieren

bedingte Formatierung kopieren
27.11.2012 10:12:16
Snewi
HAllo,
ich habe in meinem Excel Sheet bedingte Formatierungen!
Diese Sheet kopiere ich mir ja und lege eine Kopie an:

Sheets("Bericht").Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
.Range("C3").Select
Application.CutCopyMode = False
With .Parent
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Pfad = Ordner_vorhanden(Verzeichnis, Sheets("Bericht").Range("C3"))
.SaveAs Filename:=Pfad & SpeicherName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
End With
Die Kopie verschiebt mir leider die Reihenfolge der Regeln bei der bedingten Formatierung!
Was kann ich also tun damit die Formate 1:1 dem original entsprechen?
Gruß

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bedingte Formatierung kopieren
27.11.2012 17:34:10
Hajo_Zi
Mit dem Code werden Werte übertragen keine Formate.
Ich teste den Code nicht, da ich Zugriff auf VBA Projekt nicht zulasse.

AW: bedingte Formatierung kopieren
28.11.2012 08:23:36
Snewi
Guten Morgen,
OK was müsste ich am Syntax ändern, dass auch Formate mitkopiert werden?
xlPasteValuesAndNumberFormats habe ich versucht es ändert sich aber nichts!
Gruß

Anzeige
probier mal den Macrorecorder - owT
28.11.2012 12:55:48
robert

AW: probier mal den Macrorecorder - owT
28.11.2012 14:00:12
Snewi
Habe ich doch und der sagt mir xlPasteValuesAndNumberFormats! Wenn ich es einzeln mache, also erst Werte und dann nochmal Formate scheint es zu gehen! Wo müsste ich das xlPasteFormats dann bei meinem Code noch mit einbauen?
Gruß

AW: probier mal den Macrorecorder - owT
29.11.2012 00:40:13
Matze,Matthias
Hallo Snewi,
könnte es denn an der "bedingten" Formatierung liegen? Poste die doch mal.
Matze

Anzeige
das zeichnet mein Recorder auf....
29.11.2012 07:39:14
robert
Selection.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats, Operation _
:=xlNone, SkipBlanks:=False, Transpose:=False
Gruß
robert

AW: das zeichnet mein Recorder auf....
29.11.2012 14:30:49
Snewi
das kann ich aber nicht nutzen :-(
ich möchte in meinem Code: 

With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
.Range("C3").Select
Application.CutCopyMode = False
noch zusätzlich das xlPasteFormats anwenden! Wie mache ich das?
So?:

With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
.Range("A1").PasteSpecial xlPasteFormats
.Range("C3").Select
Application.CutCopyMode = False
Gruß

Anzeige
AW: das zeichnet mein Recorder auf....
01.12.2012 18:58:24
schauan
Hallo snewi,
ja, man kann die Paste mehrfach ausführen. Hast Du bestimmt schon ausprobiert ...
Grüße, André

AW: das zeichnet mein Recorder auf....
03.12.2012 09:08:47
Snewi
Moin,
also ich versteh es einfach nicht! Meine bedingte Formatierung vor der Kopie und danach:
Userbild
Was kann ich noch tun, dass beide Reihenfolgen einfach gleich sind?
Gruß

Anzeige
ich würd versuchen ...
03.12.2012 09:33:57
Klaus
... die bedingten Formatierungen nicht zu kopieren, sondern per VBA zu setzen. Makrorekordere dir halt einmal den gesamten Vorgang des "bedingte Formatierungen definieren" und flicke den Rekorder Code 1:1 in deinen Code, direkt nach dem Paste. Oder setzt hier einfach einen "call" auf das augezeichnete Makro.
Wenn du ganz mutig bist, schaust du dir den Rekordercode noch Zeile für Zeile an und nimmst die unmengen von .select und selection. heraus die das erzeugt hat.
Um sicherzugehen, verschiebe die Reihenfolge der bedingten Formatierungen gar nicht erst, sondern zeichne sie gleich in der richtigen Reihenfolge auf. Dann müsste das eigentlich klappen.
Aus akademischen Gründen interessiert mich allerdings, wie und weshalb da die Reihenfolge verändert wird. Magst du deine fehlerhafte Datei hochladen? Vielleicht aufs Problem reduziert, dH. nur eine Seite mit 2 oder 3 bedingt formatierten Zellen und dem fraglichen Codefetzen.
Grüße,
Klaus M.vdT.
Anzeige
;

Forumthreads zu verwandten Themen

bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Anzeige
"Bedingte Formatierung" kopieren
Susanne

Hallo,
wenn ich unter Excel 2007 die bedingten Formatierungen von Zelle A1 via Innhalte einfügen auf Zelle A2 kopieren, werden die dort eventuell vorhandenen bedingten Formatierungen (im Gegensatz zu Excel 2003!) nicht automatisch gelöscht bzw. überschrieben.
Wie ersetze ich bei Excel 2...
08.02.2009 20:33:51
Thread-ID: 1048473
5 Beiträge
Bedingte Formatierung mit VBA
Steffen

Hallo,
habe schon viele Einträge gelesen, aber noch keiner war für mein Problem hilfreich oder ich stelle mich nur zu dämlich an. Folgendes Problem:
1. In einer Tabelle, die vom SQl-Server gefüllt wird, ist außerhalb des benannten Bereiches eine Spalte M, deren Zellen eine bestimmte Far...
13.02.2009 09:44:00
Thread-ID: 1050348
4 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
alles bis auf bedingte formatierung kopieren
Tobias

Ahoi Super-Gurus!
WksRemote.Cells(i, 2).Copy Destination:=WksLocal.Cells(i, 2)
hiermit kopiere ich von zelleninhalte & kommentare von blatt 1 zu blatt 2,
bin jetzt aber draufgekommen das mir auch die bedingten formatierungen mitkopiert werden.
wie kann ich das verhindern?
13.03.2009 22:04:53
Thread-ID: 1060055
6 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
bedingte Formatierung mit VBA
Weis

Hallo Leute,
ich habe leider sehr begrenzte VBA-Kenntnisse. Deswegen baue ich auf Euch. Ich weiß, dass dies mit einer bedingten Formatierung leicht zu lösen ist. Ich möchte allerdings unbedingt eine VBA-basierte Lösung.
Folgendes Problem:
Ich möchte in einem bestimmten Bereich (Spal...
20.03.2009 19:10:26
Thread-ID: 1062337
5 Beiträge
bedingte formatierung per vba
Tobias

Hallo allerseits!
Wie kann ich folgendes bewerkstelligen:
Ich möchte das, wenn in Spalte E="ja" dann in der jew. Zeile von A-E grüner Zellhintergrund.
(am besten ein rgb wert)
Wie mach ich das per VBA?
grüsse,
Tobias
24.03.2009 16:26:14
Thread-ID: 1063438
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bedingte Formatierung in Excel kopieren und übertragen

Schritt-für-Schritt-Anleitung

  1. Kopiere das gesamte Arbeitsblatt:

    Sheets("Bericht").Copy

  2. Wähle die Zellen aus, die du kopieren möchtest:

    With ActiveSheet
   .Cells.Copy

  3. Füge die Werte ein:

       .Range("A1").PasteSpecial xlPasteValues

  4. Übertrage die bedingte Formatierung:

       .Range("A1").PasteSpecial xlPasteFormats

  5. Schließe den Vorgang ab:

       .Range("C3").Select
   Application.CutCopyMode = False
End With

Um die bedingte Formatierung in ein anderes Tabellenblatt zu kopieren, kannst du die gleichen Schritte befolgen, indem du das Ziel-Tabellenblatt in der Range-Anweisung änderst.

Häufige Fehler und Lösungen

  • Problem: Die Reihenfolge der bedingten Formatierungen stimmt nicht überein.

    • Lösung: Achte darauf, dass du die Formatierungen in der richtigen Reihenfolge anwendest. Nutze ggf. xlPasteAllMergingConditionalFormats, um Änderungen zu vermeiden.

  • Problem: Formate werden nicht korrekt übertragen.

    • Lösung: Stelle sicher, dass du sowohl Werte als auch Formate nacheinander überträgst. Verwende zwei PasteSpecial-Befehle hintereinander.

Alternative Methoden

  • VBA Makro: Erstelle ein VBA-Skript, um die bedingte Formatierung automatisch zu setzen, anstatt sie zu kopieren. Hier ist ein Beispiel:

    Sub FormatierungenSetzen()
   ' Füge hier deine Regeln für die bedingte Formatierung ein.
   With ActiveSheet
       .Range("A1:A10").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=10"
       .Range("A1:A10").FormatConditions(1).Interior.Color = RGB(255, 0, 0)
   End With
End Sub

  • Google Sheets: Wenn du mit Google Sheets arbeitest, kannst du die bedingte Formatierung ebenfalls kopieren. Nutze die Funktion "Format kopieren" für eine einfache Übertragung.

Praktische Beispiele

  1. Bedingte Formatierung von Zellen: Wenn du Zellen basierend auf ihrem Wert einfärben möchtest, setze folgende Regel in VBA:

    With Range("B1:B10").FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=5")
   .Interior.Color = RGB(0, 255, 0) ' Grün für Werte unter 5
End With

  2. Kopieren von bedingten Formatierungen zwischen Arbeitsblättern:

    Sheets("Tabelle1").Range("A1:A10").Copy
Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteAllMergingConditionalFormats

Tipps für Profis

  • Nutze den Macro-Recorder, um den richtigen VBA-Code für deine bedingte Formatierung zu generieren.
  • Achte darauf, dass die Reihenfolge der bedingten Formatierungen in Excel beachtet wird, um unerwartete Ergebnisse zu vermeiden.
  • Verwende xlPasteAllMergingConditionalFormats, wenn du bedingte Formatierungen zusammen mit anderen Formaten kopieren möchtest.

FAQ: Häufige Fragen

1. Wie kann ich die bedingte Formatierung in eine andere Datei kopieren? Um die bedingte Formatierung in eine andere Datei zu kopieren, öffne die Ziel-Datei und verwende die PasteSpecial-Methode, um die bedingten Formate zu übertragen.

2. Gibt es eine Möglichkeit, die bedingte Formatierung fortlaufend zu kopieren? Ja, du kannst eine Schleife in VBA verwenden, um die bedingte Formatierung fortlaufend auf eine Reihe von Zellen anzuwenden. Achte darauf, die Formatierungsregeln in der gewünschten Reihenfolge anzuwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige