Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei start einer Form abfragen wenn schrift art rot

Bei start einer Form abfragen wenn schrift art rot
15.07.2015 15:27:05
Vulferin
Hallo Zusammen,
ich suche eine möglichkeit das wenn die Userform startet das er in Spalte U nach roter schriftfarbe sucht und in Splate AZ wenn schrift farbe rot ein "x" in die zelle schreibt.
jetzt kann es sein das in Spalte U nicht alle Zeilen gefüllt sind sonder immer wieder ein paar.
d.H
Zeile 1-10 mit Füllung
11-20 ohne
21-30 wieder mit
Danke euch
Gruß
Vulfi

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 16:31:54
Vulferin
Hallo Zusammen
Ich kann den Color Index von der Bedingten formatierung auslesen
mit 
Public Sub Farben()
Dim y
Dim m
Dim i
For i = 1 To ActiveCell.FormatConditions.Count
y = ActiveCell.FormatConditions(i).Interior.Colorindex
m = m & "," & y
Next
MsgBox m
End Sub
Er liest mir 3 aus.
Wie bekomme ich jetzt hin das er in Spalte U nach dieser 3 sucht und dann in spalte AZ ein X reinschreibt.
Danke euch.
Gruß
Vulfi

AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 18:03:33
Nepumuk
Hallo,
mal schreibst du Schriftfarbe mal von Füllfarbe. Was nun?
Hier mal ein Beispiel für Füllfarbe
Option Explicit

Public Sub Farben()
    Dim objCell As Range
    With Worksheets("Tabelle1")
        For Each objCell In Intersect(.Columns(21), .UsedRange)
            If objCell.FormatConditions.Count > 0 Then
                If objCell.DisplayFormat.Interior.Color = vbRed Then _
                    objCell.Offset(0, 31).Value = "X"
            End If
        Next
    End With
End Sub

Wenn du die Schriftfarbe lesen willst dann statt Interior einfach Font einsetzen.
Gruß
Nepumuk

Anzeige
AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 18:22:47
Vulferin
Hallo Nepomuk
Leider klappt das nicht
er macht mir in alle zeilen ein X
Wie gesagt die Farbe kommt aus einer bedingten formatierung
Liegt das daran ?
Gruß
Vulfi

AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 18:29:36
Nepumuk
Hallo,
kann ich ohne eine Mustermappe nicht nachvollziehen.
Gruß
Nepumuk

AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 18:51:09
Vulferin
ich hab den fehler gefunden
=HEUTE()>$U1+6

jetzt macht er mir alle spalten rot, auch die die kein datum drin haben
das sollte er ja eigentlich nicht
wie kann ich das beheben ?
dann wird auch dein macro helfen.
danke dir schonmal
Vulfi

Anzeige
AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 19:07:39
Vulferin
Ich nochmal
Ich hab den fehler gefunden
das ist meine bedingteformastierung selbst
Ich würde gerne das er 6 tage nach dem Datum was in spalte u steht die text farbe rot färbt
wie wäre die richtige formel ?
danke

AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 19:19:35
Vulferin
ich habs
Danke euch allen beiden

=($U1-HEUTE()0)

AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 18:39:46
Daniel
Hi
wenn du die Regel der Bedingten Formatierung, die zu einer roten Schriftfarbe führt kennst, wäre es am einfachsten, wenn du basierend auf dieser Regel in die Zellen der Spalte U eine Formel schreibst, die als Ergebnis ein "x" hat, wenn die Bedingung erfüllt ist und ansonsten den Leerstring "".
das Auslesen der Farbe der Bedingten Formatierung ist eigentlich nur dann erforderlich, wenn du die Regeln, die zu dein einzelnen Farben führen, nicht kennst bzw wenn der Anwender selbst die Bedingte Formatierung festlegen darf und soll.
Ansonsten ist es immer einfacher, die Zellwerte selbst zu prüfen.
Gruß Daniel

Anzeige
AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 18:43:01
Daniel
Wenn nur eine Spalte betroffen ist, kannst du auch in der Spalte nach der entsprechenden Formatierung filtern (der Autofilter erkennt die Farben, die durch die Bedingte Formatierung erzeugt werden) und dann in der Spalte U in die sichtbaren Zellen ein U eintragen.
gruß Daniel

AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 18:43:41
Vulferin
Hallo Daniel,
das ist meine Regel 
=HEUTE()>$U1+6

ich weiss aber nicht wie ich dann die formel mit dem x in spalte az schreiben soll
kannst du mir da helfen ?
Ich hatte diese Idee auch schon, bekomme das aber nicht hin.
Darum kamm mir die Idee das ich die Farbe auslese und damit mir ein x in spalte az schreiben lasse
danke dir

Anzeige
AW: Bei start einer Form abfragen wenn schrift art rot
15.07.2015 19:15:10
Daniel
Hi
dann muss in die Spalte AZ, in der das X erscheinen soll die Formel:
=Wenn(HEUTE()>$U1+6;"x";"")

die Formel bis ans Datenende runter ziehen und fertig.
würde als makro dann so aussehen (hier gleich mit dem Ersetzen der Formel durch ihren Wert):
With Range("AZ1:AZ" &  Cells(Rows.count, 21).end(xlup).Row)
.formulaR1c1 = "=IF(TODAY()>RC21+6,""x"","""")"
.Formula = .Value
End with

Gruß Daniel

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige