Thema Datum  Von Nutzer Rating
Antwort
10.03.2013 17:14:36 Stefan
NotSolved
Blau Zellen über VBA formatieren aufgrund durch Formel eingetragener Werte
10.03.2013 19:08:35 Gast87662
NotSolved

Ansicht des Beitrags:
Von:
Gast87662		 Datum:
10.03.2013 19:08:35		 Views:
1149		 Rating:
     
Antwort:
  Ja
Thema:
Zellen über VBA formatieren aufgrund durch Formel eingetragener Werte

Hi Stefan, ich schätze mal das kann man so lösen:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
 
  If Not TypeOf Sh Is Excel.Worksheet _
    Then Exit Sub
 
  Dim rngDaten As Excel.Range
  Dim rngZelle As Excel.Range
 
  Set rngDaten = Sh.UsedRange.SpecialCells(xlCellTypeFormulas)
 
  For Each rngZelle In rngDaten.Cells
    Select Case rngZelle.Text
      Case "A1", "1"
        rngZelle.Interior.ColorIndex = 3
      Case "A2", "2"
        rngZelle.Interior.ColorIndex = 38
      Case "A3", "3"
        rngZelle.Interior.ColorIndex = 6
      Case "A4", "4"
        rngZelle.Interior.ColorIndex = 43
      Case "A5", "5"
        rngZelle.Interior.ColorIndex = 4
    End Select
  Next
 
End Sub

Gruß

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
10.03.2013 17:14:36 Stefan
NotSolved
Blau Zellen über VBA formatieren aufgrund durch Formel eingetragener Werte
10.03.2013 19:08:35 Gast87662
NotSolved