Thema Datum  Von Nutzer Rating
Antwort
14.06.2023 09:11:03 Julaka
NotSolved
14.06.2023 15:15:22 xlKing
NotSolved
Rot Function anhand Textfarbe
 15.06.2023 10:14:06 Julaka
NotSolved
15.06.2023 17:46:45 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Julaka		 Datum:
15.06.2023 10:14:06		 Views:
253		 Rating:
     
Antwort:
  Ja
Thema:
Function anhand Textfarbe

Hallo xIKing

Das ist genau das was ich gebraucht habe, perfekt danke.
Kleine Ergänzungsfrage: Da ich die bedingte Formatierung auf X100 Zellen anwenden muss habe ich mir einen Sub geschrieben.
Nun ist das erste Problem das es mir nach next nicht zur nächsten Spalte springt -> funktioniert wenn ich alles rausnheme bis auf die msgbox, dann springt er schön jede Spalte durch.
Zudem nimmt er bei der bedingten Formatierung das Zellformat nicht, also alles mit Selection.FormatConditions(1).Interior
Habe aber nach langem herumprobieren nicht herausgefunden warum. Vielleicht kannst du gleich weiterhelfen?

 

Sub Makro1()

Dim column As Range
Dim rng As Range
Dim cadr As Integer
Dim SpalteBuchst As String

Set rng = Range("F13:AA13")
    Range("F13:F37").Select
    For Each column In rng
    cadr = column.column
    Range(Cells(13, cadr), Cells(37, cadr)).Select
    SpalteBuchst = Mid(Cells(1, cadr).Address(), 2, InStr(2, Cells(1, cadr).Address(), "$") - 2)
    MsgBox cadr
    MsgBox SpalteBuchst
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=@HighlightRedFont($F$12)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13033212
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Next
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.06.2023 09:11:03 Julaka
NotSolved
14.06.2023 15:15:22 xlKing
NotSolved
Rot Function anhand Textfarbe
 15.06.2023 10:14:06 Julaka
NotSolved
15.06.2023 17:46:45 xlKing
NotSolved