Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte Formatierung in Makro
 21.04.2015 20:19:25 soeuvia
NotSolved
21.04.2015 21:52:08 Gast74041
Solved
22.04.2015 18:46:50 soeuvia
NotSolved

Ansicht des Beitrags:
Von:
soeuvia		 Datum:
21.04.2015 20:19:25		 Views:
1359		 Rating:
     
Antwort:
  Ja
Thema:
Bedingte Formatierung in Makro

Hallo zusammen,

Ich bin ein absoluter Neuling hier und wusste vor einer Woche noch nicht mal dass es VBA und sowas gibt  :oops:

Bis zu diesem Makro-Code habe ich es dank dem Makrorekorder geschafft:

Sub Fett()
'
' Fett Makro
'

'
    Range("O4:O100").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ISTZAHL(O4)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("M4:M100").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ISTZAHL(O4)=Falsch"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("K4:K100").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ISTZAHL(M4)=Falsch"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Meine Frage: Ist dies auch irgendwie möglich, ohne am Schluss den Bereich K4:K100 markiert zu haben?

Danke & Gruss Söuvia

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
Rot Bedingte Formatierung in Makro
 21.04.2015 20:19:25 soeuvia
NotSolved
21.04.2015 21:52:08 Gast74041
Solved
22.04.2015 18:46:50 soeuvia
NotSolved