Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingtes Format mit VBA auslesen

Forumthread: Bedingtes Format mit VBA auslesen

Bedingtes Format mit VBA auslesen
30.09.2004 18:02:47
Lorenz
Hallo zusammen!
Mein PROBLEM!!!!!!!!!!!!!!
Eine Bedingte Formatierung die mittels VBA erstellt wird kann, bzw. wird nicht mittels CODE ausgelesen. Bei Recherchen stiess ich auf die Empfehlung, bzw. Tipp von HWH, die lautet "Bedingte Formatierung auf Wahrheitsgehalt überprüfen". Soweit so gut! Aber wie soll die nachgenannte Formel im Code interpretiert werden?
Formel:
=ODER(UND(AK$2>=$H11;AK$2 UND(AK$2>=$J11;AK$2 UND(AK$2>=$L11;AK$2 CODEZEILE:
If iDate = Cells(2, iColDat).Value And Cells(iNextRow, iColDat).Interior.ColorIndex = 15 Then _
Cells(iNextRow, 4).Font.ColorIndex = 3
statt "Interior.ColorIndex = 15" gehört die Überprüfung im Sinne obgenannter Formel
Danke im Voraus für die Mühe.
Gruss Lorenz
Anzeige
AW: Bedingtes Format mit VBA auslesen
30.09.2004 18:05:54
Hajo_Zi
Hallo Lorenz,
das überprüfen ob die bedingte Formatierung erfolgt ist. Ist meiner Meinmung nach das komplizierteste was es gibt. Auf meine HP, Seite Fremde Dateien habe ich dazu mal ein Beispiel.
http://home.media-n.de/ziplies/gepackt/fremd/bedingte_form_auslesen.zip
Da kommst Du schneller ran wenn Du in VBA die Bedingung der Bedingten Formatierung nachbaust.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP2 und Excel Version 2003 SP1.


Anzeige
woher kommst du wierder
30.09.2004 18:08:21
Stephan
..
AW: Bedingtes Format mit VBA auslesen
Lorenz
Hallo Hajo!
genau um dieses "NACHBAUEN" gehts eigentlich.
Ich schaffte es nur nicht
"=ODER(UND(AK$2>=$H11;AK$2 UND(AK$2>=$J11;AK$2 UND(AK$2>=$L11;AK$2 Gruss Lorenz
AW: Bedingtes Format mit VBA auslesen
30.09.2004 18:34:53
Hajo_Zi
Hallo Lorenz,
schreibe die Formel in eine Zelle, Starte den Makrorecorder gehe in die Zelle Enter und Aufzeichnung beenden. Da hast Du doch schon einen guten Ansatz
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP2 und Excel Version 2003 SP1.


Anzeige
AW: Bedingtes Format mit VBA auslesen
Lorenz
Hallo Hajo!
mit der (bedingte_form_auslesen) Funktion "GetCellColor" wird der ColorIndex ausgegeben.
wie muss ich die Funktion einsetzen um (mit eigenen Worten): "if GetCellColor = 15 then.....----statt " statt "Interior.ColorIndex = 15""
hab es unter anderem so probiert:
If iDate = Cells(2, iColDat).Value And GetCellColor(Cells(iNextRow, iColDat)) = 15 Then
Cells(iNextRow, 4).Font.ColorIndex = 3
so gehts aber nicht!
Gruss Lorenz
Anzeige
AW: Bedingtes Format mit VBA auslesen
K.Rola
Hallo,
der einfache, aber leider nicht so komfortable Weg ist, die Formel der Bedingung
auszulesen(Formatconditions(1).Formula1)und in eine Zelle zu schreiben. Dort ergibt
die Formel entweder FALSCH oder WAHR, was du dann auswerten kannst. Das muss natürlich
ggf. für alle drei Bedingungen gemacht werden.
Den umständlichen aber komfortablen Weg erspare ich mir.
Gruß K.Rola
Anzeige
AW: Bedingtes Format mit VBA auslesen
Lorenz
Hallo K.Rola!!
mit Tipp von Hajo habe ich eine fertige Funktion gefunden. Jetzt gehts aber darum, diese einzusetzen.
mit der Funktion "GetCellColor" wird der ColorIndex ausgegeben.
wie muss ich die Funktion einsetzen um (mit eigenen Worten): "if GetCellColor = 15"
hab es unter anderem so probiert:
If iDate = Cells(2, iColDat).Value And GetCellColor(Cells(iNextRow, iColDat)) = 15 Then
Cells(iNextRow, 4).Font.ColorIndex = 3
so gehts aber nicht!
Gruss Lorenz
Anzeige
AW: Bedingtes Format mit VBA auslesen
K.Rola
Hallo,
ich weiß nicht, was du da für eine Funktion bekommen hast, poste mal den Code.
Gruß K.Rola
AW: Bedingtes Format mit VBA auslesen
Lorenz
Hi K.R.!
Anbei der CODE

Sub TestCellColor()
MsgBox GetCellColor(ActiveCell), , "Meine Farbe ist:"
End Sub



Function GetCellColor(cell As Range) As Integer
Dim i
Dim myVal
Dim myColor As Integer
Dim done As Boolean
On Error Resume Next
Names("testname").Delete
On Error GoTo 0
Application.ReferenceStyle = xlR1C1
myVal = cell.Value
myColor = cell.Interior.ColorIndex
done = False
For i = 1 To cell.FormatConditions.Count
With cell.FormatConditions.Item(i)
If .Type = 1 Then
Select Case .Operator
Case xlBetween
If (myVal >= Evaluate(.Formula1) And myVal <= Evaluate(.Formula2)) _
Or (myVal <= Evaluate(.Formula1) And myVal >= Evaluate(.Formula2)) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlEqual
If myVal = Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlGreater
If myVal > Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlGreaterEqual
If myVal >= Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlLess
If myVal < Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlLessEqual
If myVal <= Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlNotBetween
If myVal < Evaluate(.Formula1) Or myVal > Evaluate(.Formula2) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlNotEqual
If myVal <> Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
End Select
ElseIf .Type = 2 Then
Names.Add Name:="testname", RefersToR1C1Local:=.Formula1
If Evaluate("testname") Then
myColor = .Interior.ColorIndex
done = True
End If
Names("testname").Delete
Else
MsgBox "Unbekannter Typ: " & .Type, , "PANIC: In 


Function GetCellColor"
Exit Function
End If
End With
If done Then Exit For
Next
Application.ReferenceStyle = xlA1
GetCellColor = myColor
End Function



Grüsse Lorenz
Anzeige
AW: Bedingtes Format mit VBA auslesen
K.Rola
Hallo,
beschreib mal mit Worten, was passieren soll, wenn du die Farbe ausgelesen hast.
Gruß K.Rola
AW: Bedingtes Format mit VBA auslesen
Lorenz
Hallo K.Rola!
In untenstehenden CODE soll statt ".Interior.ColorIndex = 15" wenn die Farbe ausgelesen wurde der .Font.ColorIndex wie gehabt auf 3 gesetzt werden.

Sub SchriftEinfaerben()
Dim iDate As Integer, iRow As Integer, iColDat As Integer, iNextRow As Integer
iDate = (Day(Now))
iRow = 3
For iColDat = 14 To 44
For iNextRow = iRow To 47
If iDate = Cells(2, iColDat).Value And Cells(iNextRow, iColDat).Interior.ColorIndex = 15 Then _
Cells(iNextRow, 4).Font.ColorIndex = 3
End If
Next
Next
End Sub

mit dem Code funkts ja perfekt , aber leider nur bei manuell gesetzter Formatierung(nicht aber bei Bedingter)!
Grüsse Lorenz!
Anzeige
AW: Bedingtes Format mit VBA auslesen
K.Rola
Hallo,
If iDate = Cells(2, iColDat).Value And GetCellColor(Cells(iNextRow, iColDat)) = 15 Then
Gruß K.Rola
AW: Bedingtes Format mit VBA auslesen
Lorenz
Hallo K.Rola!
Leider nicht.
So setzt es alles in Spalte 4 auf Font Index = 3
Grüsse Lorenz
AW: Bedingtes Format mit VBA auslesen
K.Rola
Hallo,
lad mal eine Beispielmappe hoch, sonst stochern wir noch ein Weilchen im Nebel.
Gruß K.Rola
Anzeige
AW: Bedingtes Format mit VBA auslesen
K.Rola
Hallo,
die Bedingung stimmt schon, nur deine Funktion versagt.
Gruß K.Rola
;

Forumthreads zu verwandten Themen

Information aus Excel an Outlook VBA Makro übergeb
Christian

Hallo zusammen,
ich wüsste gerne, wie ich in einem Outlook Makro auf Daten, die in einer Excel Tabelle stehen, zugreifen kann.
Ich verwende ein Outlook Makro welches eine Excel-Datei als e-mail-Anhang an einen Empfänger sendet und wie folgt aussieht:
----------
Sub versand() D...
17.08.2008 18:48:53
Thread-ID: 1002451
8 Beiträge
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
Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 Beiträge
VBA - Zellen nach Prozentformat abfragen
Jenny

Hi, Excel-Freaks!
Kann mir bitte jemand sagen, wie ich per VBA Zellen auf ein beliebiges Prozentformat abfragen kann?
If rngZ.NumberFormat = "0%" Then...
findet leider/natürlich nur die Zellen, die ohne Nachkommastellen formatiert sind.
Danke im Voraus!
Grüße von Jenny im Ex...
28.08.2008 15:03:49
Thread-ID: 1005460
4 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
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Formatierung schützen per VBA ?
Hans

Hallo,
ich habe eine Tabelle erstellt, in denen täglich mehrere Daten eingegeben werden.
Um die Dateneingabe möglichst einfach zu gestalten, habe ich die einzelnen Zellen entsprechend formatiert.
Jedoch wir mir die Formatierung oftmals wieder "zerschossen" meistens unwissentlich vom...
27.10.2008 19:59:59
Thread-ID: 1019733
9 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Anzeige
Kommentare per VBA formatieren?
David

Hallo zusammen,
ist es möglich, Kommentare in einer Datei per VBA auf eine bestimmte Größe zu bringen? Wenn ja, wie lautet dann die entsprechende Syntax?
Hintergrund:
Ich habe in einer alten Datei den Fall, dass die Kommentare (vermutlich aufgrund ausgeblendeter Zellen) auf die Brei...
06.11.2008 14:33:19
Thread-ID: 1022296
3 Beiträge
Anzeige
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 Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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