Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellformatierung durch bedingte Formatierung ersetzen

Zellformatierung durch bedingte Formatierung ersetzen
17.12.2019 15:47:09
Martin
Hallo liebe Excelgemeinde,
ich exportiere per VBA Excel-Sheets in eine neue Arbeitsmappe für Kunden und ersetze dabei alle Formeln durch ihre Werte. Auch die Zellenformatierungen werden dabei übertragen.
Ziel: Ich benutze in den Bedingten Formatierungen Formeln, die beim Kopieren leider auch übertragen werden. Können die normale Zellformatierungen durch ihre aktuell angewendete "Bedingte Formatierung" ersetzt werden, damit ich die Bedingte Formatierung mit ihrer enthaltenen Formel löschen kann?
Sprich: Ich suche eine Funktion analog zu "Werte einfügen" in Bezug auf die
  • Bedingte Formatierung
    • .
    (Wenn das nicht geht, dann würde ich per VBA die Zellen nachträglich formatieren.)
    Viele Grüße
    Martin

    6
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    Als HTML zwischenspeichern
    17.12.2019 16:05:32
    Daniel
    Hi
    exportiere die Datei als HTML/HTM-Datei.
    lies dann dieses HTML-Format wieder ein und speichere es als Excel-File
    dabei werden automatisch Formeln durch Werte und Bedingte Format durch echte Formate ersetzt.
    Gruß Daniel
    Danke, interessanter Lösungsweg
    17.12.2019 17:04:09
    Martin
    Hallo Daniel,
    das ist eine Möglichkeit auf die ich noch nicht gekommen bin. Vielen Dank! Ich lasse den Beitrag trotzdem als offen stehen, vielleicht weiß jemand einen noch "smarteren" Weg.
    Viele Grüße
    Martin
    AW: Zellformatierung durch bedingte Formatierung ersetzen
    17.12.2019 18:02:29
    volti
    Hallo Martin,
    ob das nun eine "smartere" Lösung ist, weiß ich nicht, aber gemäß deiner Anmerkung
    (Wenn das nicht geht, dann würde ich per VBA die Zellen nachträglich formatieren.)
    und in der Annahme, Du möchtest einen entsprechenden Tipp, hier mal eine Anregung zu einer möglichen Lösung:
    Option Explicit
    Sub FormateUebertragen()
    'Block übertragen incl. Benutzerformate und Verschiebemöglichkeit im Ziel
     Dim Obj As Range, yBeginn As Long, xBeginn As Long
     yBeginn = 10: xBeginn = 10  'falls Zielbereich nicht deckungsgleich der Quelle
     For Each Obj In ThisWorkbook.Sheets("Quelle").UsedRange.Cells
       With ThisWorkbook.Sheets("Ziel").Cells(Obj.Row, Obj.Column)
         .Offset(yBeginn, xBeginn).Interior.Color = Obj.DisplayFormat.Interior.Color
         .Offset(yBeginn, xBeginn).Font.Color = Obj.DisplayFormat.Font.Color
    Rem     .Offset(yBeginn, xBeginn).Value = Obj.Value
       End With
     Next Obj
    End Sub

    viele Grüße
    Karl-Heinz


    Anzeige
    AW: Zellformatierung durch bedingte Formatierung ersetzen
    17.12.2019 18:36:53
    Martin
    Hallo Karl-Heinz,
    ja, deine Lösung finde ich tatsächlich richtig gut. Läuft zwar leider nicht unter meinem alten "geliebten" Excel 2003, aber unter Excel 2010 hat dein Code seinen Dienst verrichtet. Ich muss nur noch die verwendeten Formatierungen ergänzen. Super, hab vielen lieben Dank! Ich bin beeindruckt!
    Viele Grüße
    Martin
    ...hab sogar etwas gelernt
    17.12.2019 18:57:38
    Martin
    Hallo Karl-Heinz,
    wie ich nun gelesen habe, wurde das DisplayFormat-Objekt erst unter Excel 2010 eingeführt. Zuvor bestand ja das große Problem, dass angezeigte Formatierungen auf Grundlage der Bedingten Formatierung per VBA nicht einfach abgefragt werden konnten. Da mir das DisplayFormat-Objekt bislang unbekannt war, hätte ich die Formel meiner Bedingten Formatierung als VBA-Code nachgebaut.
    Also nochmals vielen Dank für die "Weiterbildung".
    Viele Grüße
    Martin
    Anzeige
    AW: ...hab sogar etwas gelernt
    17.12.2019 22:41:18
    volti
    Vielen Dank Martin für die Rückmeldung und viel Erfolg noch.
    VG KH

    301 Forumthreads zu ähnlichen Themen

    Formel in bedingter Formatierung
    ludicla

    Hallo Profis,
    ich möcht folgende "bedingte Formatierung2 umsetzen und krieg die Kurve nicht.
    Ich hab in einer Zeile in diversen Feldern (nicht zusammenhängend) z. B. B1+B3+B5+B7
    ein Maximum.
    Nun möcht ich z. B. den Wert in B3 farbig markieren wenn er kleiner als 80 %
    des Ma...
    28.10.2008 11:54:23
    Thread-ID: 1019875
    6 Beiträge
    Anzeige
    Formel für bedingte Formatierung ?
    Ernst

    Hallo Vba Profis !
    Hätte da wieder mal ein Frage und zwar "wie müsste eine Formel aussehen ?, sobald in Spalte A Range(A:6,A300) eine Zelle Aktiv ist diese zb.mit grünem Hindergrund dargestellt wird". bem verlassen der Zelle sollte die jeweils ursprüngliche Farbe wiederhergestellt werden.Be...
    17.06.2009 07:31:04
    Thread-ID: 1082111
    3 Beiträge
    variable Formatierung - nicht bedingte Formatierun
    mctobler

    Hallo,
    kann man eine Zeile Formatieren, dass der z.B. wenn die Zelle leer ist - € drinsteht, wenn man aber einen Wert eingibt, dass dann 5 € drinsteht. 0 € anzeigen geht nicht, da man nicht mehr weiß ob der Wert wirklich 0 ist oder die Zeile leer ist (das ist in diesem Fall ein Unterschied)...
    26.06.2009 16:41:40
    Thread-ID: 1084656
    10 Beiträge
    Anzeige
    Formeleingabe bei bedingter Formatierung
    Peter

    Guten Abend
    Wenn ich einen Bereich bedingt formatieren will und bei als Bedingung die Formel
    =TEXT(dLetzterMonat;"MM")="12"
    eingebe, wird diese automatisch umgewandelt in die Formel
    ="TEXT(dLetzterMonat;""MM"")=""12"""
    Nachdem ich die überflüssigen Anführungszeichen wieder e...
    02.02.2010 17:54:38
    Thread-ID: 1135206
    6 Beiträge
    Formel bedingte Formatierung
    Sankt

    Hi,
    komme nicht weiter bei bedingter Formatierung.
    ich habe in L 10 einen eine Wert ( 136 ) in M 10 habe ich Wert (18)
    nun habe ich in L 10 folgende Formel
    =$M$7<20 ~f~ dann blau die funktioniert
    Nun bräuchte ich noch eine Formel für >19,99 < 25
    Ich habe...
    20.05.2010 17:00:59
    Thread-ID: 1158153
    3 Beiträge
    Bedingte Formatierung -> Word
    Peer

    Hallo,
    ich habe eine recht große Tabelle, bei der die Schriftfarbe über eine bedingte Formatierung definiert ist.
    Diese Tabelle möchte in Word darstellen, jedoch nicht die ganze Tabelle einbinden. Daher habe ich in Word den Weg über "Inhalte einfügen - Metadatei" gewählt. Dabei geht all...
    21.12.2010 15:11:02
    Thread-ID: 1192385
    4 Beiträge
    Autoform bedingte Formatierung
    MarFe

    Hallo Gemeinde,
    habe ein Problem mit der bedingten Formatierung von Autoformen.
    Ansatz: Wenn in Zelle "A1" der Wert "Auf" steht, soll die Autoform grün gefüllt werden und andersherum auf "Zu" mit rot gefüllt sein.
    Das habe ich soweit hinbekommen (mit einem Makro aus diesem Forum), d...
    27.02.2012 16:33:33
    Thread-ID: 1252659
    6 Beiträge
    Formel für Bedingte Formatierung
    Heinz

    Hallo Leute
    Ich bräuchte bitte eine Formel für die Bedingte Formatierung.
    ZB. Wenn A98:J98 leer ist,sollte A100 eingefärbt werden.
    Also,immer Wenn A bis J leer ist,sollte 2 Zeilen weiter unten A eingefärbt werden.
    Könnte mir dazu bitte jemand helfen?
    Gruß Heinz
    31.01.2013 17:45:27
    Thread-ID: 1296984
    15 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    5
    5
    2
    9
    2
    5
    2
    3
    5
    14
    7
    2
    1
    7
    2
    9
    1
    7
    5
    4
    5
    6
    16
    8
    2