Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1348to1352
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
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierungen unter Excel 2007 :-/

Bedingte Formatierungen unter Excel 2007 :-/
11.02.2014 14:17:36
Michael
Hi,
Ich versuche schon seit einiger Zeit unter Excel 2007 die Formeln hinter den bedingten Formatierungen einer Tabelle zu ermitteln.
Ich kann zwar die Bed. Formatierungen durchlaufen
  • For Each BedForm in ActiveSheet.Cells.FormatConditions

    • Aber ich bekomme für BedForm.Formula1, BedForm.Formula2, und BedForm.Operator keine Werte zurückgeliefert, es wird im VBA-Lokal-Fenster für diese Werte nur Anwendungs- oder objektdefinierter Fehler angezeigt :-/.
    Die Regeln sind meisten Formeln, ein Paar auch der Zellenwert.
    Weiß jemand von Euch wie ich an die Formeln rankomme?
    Danke
    Michi

    2
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Bedingte Formatierungen unter Excel 2007 :-/
    11.02.2014 16:39:33
    EtoPHG
    Hallo Michi,
    1. sehen wir nicht den ganzen Code und insb. nicht die Definitionen
    2. Wäre ein Beispielmappe hilfreich
    Gruess Hansueli

    AW: Bedingte Formatierungen unter Excel 2007 :-/
    11.02.2014 17:12:04
    fcs
    Hallo Michi,
    die bedingten Formatierungen auszulesen ist nicht so einfach.
    Hier mal ein Versuch zumindest die einfachen Varianten auszuwerten.
    Gruß
    Franz 
    Sub Bedingte_Formatierungen()
Dim intCount As Integer
Dim objBedFormat As Object 'FormatCondition
Dim strText As String
On Error GoTo Fehler
With ActiveSheet
For Each objBedFormat In .UsedRange.FormatConditions
intCount = intCount + 1
strText = intCount & ". Bedingungung"
strText = strText & vbLf & "Type: " & objBedFormat.Type
strText = strText & vbLf & "Zellbereich: " & objBedFormat.AppliesTo.Address
strText = strText & vbLf & "Formula1: " & objBedFormat.Formula1
If objBedFormat.Formula2  "" Then
Select Case objBedFormat.Operator
Case xlLess
strText = strText & vbLf & "Operator: " & "kleiner"
Case xlLessEqual
strText = strText & vbLf & "Operator: " & "kleiner gleich"
Case xlBetween
strText = strText & vbLf & "Operator: " & "zwischen"
Case xlNotBetween
strText = strText & vbLf & "Operator: " & "nicht zwischen"
Case xlEqual
strText = strText & vbLf & "Operator: " & "gleich"
Case xlGreater
strText = strText & vbLf & "Operator: " & "größer"
Case xlGreaterEqual
strText = strText & vbLf & "Operator: " & "größer gleich"
Case xlNotEqual
strText = strText & vbLf & "Operator: " & "nicht gleich"
Case Else
strText = strText & vbLf & "Operator: " & "unbekannt"
End Select
strText = strText & vbLf & "Formula1: " & objBedFormat.Formula2
End If
ShowMsgBox:
If MsgBox(strText, vbOKCancel, _
"Bedingte Formatierungen anzeigen") = vbCancel Then Exit For
Next
End With
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 1004
Resume ShowMsgBox
Case 13, 438
strText = strText & vbLf & "Diese Bedingte Formatierung konnte das Makro nicht  _
verarbeiten"
Resume ShowMsgBox
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description, , "Makro -  _
Bedingte_Formatierungen"
End Select
End With
End Sub

    Anzeige

    303 Forumthreads zu ähnlichen Themen

    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
    Anzeige
    Bedingte Formatierung, wenn Spalte gefüllt
    belanglos

    Hallo,
    ich habe gerade ein Brett vom Kopf.
    Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
    Kann mir damit jemand weiterhelfen....
    11.09.2008 14:34:00
    Thread-ID: 1009128
    5 Beiträge
    Bedingte formatierung mit Wenn
    kdl

    Hallo, ich freue mich dieses Forum gefunden zu haben. An Hand eurer Beiträge konnte ich schon einiges dazulernen. In der letzten Zeit habe ich mich damit beschäftigt mit Excel zu zeichnen, über bedingte Formatierung (Rahmen zu weisen) erstelle ich die Draufsicht einer Arbeitsplatte.
    Meine e...
    12.09.2008 14:06:00
    Thread-ID: 1009364
    2 Beiträge
    Anzeige
    Bedingte Formatierung in Abhängigkeit mehrerer Fel
    Thomas

    hallo,
    ich habe bei einer automatischen formatierung ein paar probleme.
    meine tabelle beinhaltet die informationen über switchbelegung und portkonfiguration wie folgt:
    Port; Patchfeld; Last input; Last output; VLAN 1; VLAN2; Description
    nun sollen die jeweiligen Zeilen anhand de...
    11.11.2008 11:56:34
    Thread-ID: 1023497
    6 Beiträge
    Bedingte Formatierung über Tabellenblätter
    Thomas

    Hallo,
    ich habe in einem extra Datenblatt welches Stammdaten enthält einen Code für die Formatierung
    erzeugt (vier verschiedene Farbe Sollen Verwendung finden).
    Wie kann ich ohne Verwendung des Menüs Bedingte Formatierung, in dem mir nur 3 Bedingungen
    zur Verfügung stehen, ohne...
    12.11.2008 14:06:30
    Thread-ID: 1023831
    2 Beiträge
    Bedingte Formatierung wird nur durch F2 umgesetzt
    Reinhard

    Hallo Wissende,
    ich habe eine neue leere Mappe geöffnet.
    In A1:E1 gebe ich ein Mo Di Mi Do Fr.
    Dann markiere ich A2:E7, gebe bei bedingter Formatierung die Formel ein:
    =A$7="U"
    und wähle bei Format das Zellenmuster Rot.
    Gebe ich nun in z.B. C7 ein "U" ein so färbt sich C...
    17.11.2008 17:00:00
    Thread-ID: 1025309
    14 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
    Bedingte Formatierung und
    Kurt

    Guten Abend Zusammen,
    habe diese bedingte Formatirieung:
    =I14>="08:30" dann wird <b>dunkelblau.</b>
    Damit habe ich leider auch alle 3 Bedingungen ausgeschöpft.
    Nun möchte ich aber wenn ein U oder F drin steht die Zelle hellgrün wird.
    Habe dies gefunden :
    ...
    12.12.2008 17:36:00
    Thread-ID: 1032482
    17 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
    2
    4
    1
    4
    5
    1
    13
    6
    16
    4
    1
    8
    3
    2
    2
    3
    3
    12
    3
    2
    4
    7
    3
    1