Thema Datum  Von Nutzer Rating
Antwort
04.04.2014 13:04:25 Andre
NotSolved
Blau Zellen mit bestimmten Inhalt mit einer definierten Farben füllen
 04.04.2014 15:02:55 Gast78161
Solved
04.04.2014 20:59:16 Andre
NotSolved

Ansicht des Beitrags:
Von:
Gast78161		 Datum:
04.04.2014 15:02:55		 Views:
1455		 Rating:
     
Antwort:
 Nein
Thema:
Zellen mit bestimmten Inhalt mit einer definierten Farben füllen		 
Option Explicit

Sub beispiel()
  
  Dim rng As Excel.Range
  Dim cell As Excel.Range
  Dim firstaddr As String
  
  Set rng = Worksheets("Tabelle1").Range("E3:Z5")
  
  rng.Interior.ColorIndex = xlColorIndexNone 'ggf. zuvor gesetzte Färbung entfernen (=Urzustand)
  
  Set cell = rng.Find("X", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
  
  If Not cell Is Nothing Then
    firstaddr = cell.Address
    Do
      cell.Interior.Color = rng.Worksheet.Cells(cell.Row, "A").Interior.Color
      Set cell = rng.FindNext(After:=cell)
    Loop Until cell.Address = firstaddr
  End If
  
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
04.04.2014 13:04:25 Andre
NotSolved
Blau Zellen mit bestimmten Inhalt mit einer definierten Farben füllen
 04.04.2014 15:02:55 Gast78161
Solved
04.04.2014 20:59:16 Andre
NotSolved