makro um farben zu ersetzen

Dieses Thema makro um farben zu ersetzen im Forum "Windows XP Forum" wurde erstellt von hans jupp, 4. Sep. 2006.

Thema: makro um farben zu ersetzen hallo, ich brauche ein makro, daß mir abhängig vom zellinhalt die zellenfarbe verändert. untersucht werden muß...

  1. hallo,

    ich brauche ein makro, daß mir abhängig vom zellinhalt die zellenfarbe verändert.
    untersucht werden muß dabei der bereich c4:c8.

    ich habe das mal versucht, als rein schematisches makro aufzubauen, damit ihr vielleicht besser versteht, was ich meine (leider haben mich dann meine vba-kenntnisse verlassen):

    Sub inhalt_farben()

    Const bereich = c4: c8

    For Each zelle In bereich
    If zelle = 1 Then .Interior.ColorIndex = 4
    If zelle = 2 Then .Interior.ColorIndex = 3
    If zelle = 3 Then .Interior.ColorIndex = 8
    If zelle = 4 Then .Interior.ColorIndex = 6
    If zelle = 5 Then .Interior.ColorIndex = 5
    Next

    vielen dank schonmal für eure hilfe :)

    gruß,
    kath.hundefriseursalon




    End Sub
     
  2. Hallo kath.hundefriseursalon,

    packe den folgenden Code in die Code-Seite des Tabellenblattes.
    (Blattlasche mit rechter Maus anklicken-> Code anzeigen)

    Gruß Matjes :)
    Code:
    Option Explicit
    
    Private Sub Worksheet_Activate()
      Call ZellenEntsprechendWertEinfaerben(Range(C4:C8))
    End Sub
    
    Private Sub Worksheet_Change(ByVal Target As Range)
      Dim r As Range
      
      Set r = Intersect(Target, Range(C4:C8))
      If Not r Is Nothing Then
        Call ZellenEntsprechendWertEinfaerben(r)
      End If
      Set r = Nothing
    End Sub
    
    
    Private Function ZellenEntsprechendWertEinfaerben(Target As Range)
      Dim Zelle As Range
          
      For Each Zelle In Target
        With Zelle
          If .Value = 1 Then
            .Interior.ColorIndex = 4
          ElseIf .Value = 2 Then
            .Interior.ColorIndex = 3
          ElseIf .Value = 3 Then
            .Interior.ColorIndex = 8
          ElseIf .Value = 4 Then
            .Interior.ColorIndex = 6
          ElseIf .Value = 5 Then
            .Interior.ColorIndex = 5
          Else
            .Interior.ColorIndex = xlColorIndexNone
          End If
        End With
      Next
      Set Zelle = Nothing
    End Function
     
  3. hallo matjes,

    das makro funktioniert prima!

    vielen dank für deine schnelle hilfe! :D

    gruß,
    kath.hundefriseursalon
     
Die Seite wird geladen...

makro um farben zu ersetzen - Ähnliche Themen

Forum Datum
Excel VBA Makro zum suchen eines Textes und anschließend einen Breich zu kopieren Microsoft Office Suite 22. Jan. 2015
Word 2013 VBA: Makro aus einer anderen Datei aufrufen Microsoft Office Suite 16. Juni 2014
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Excel: Makro ASCII verschieben Windows XP Forum 8. Nov. 2013
Makros und anderes - Excel Microsoft Office Suite 15. März 2013