Zellen Formatierung nach Bedingung

Dieses Thema Zellen Formatierung nach Bedingung im Forum "Microsoft Office Suite" wurde erstellt von falcon30, 25. Juli 2005.

Thema: Zellen Formatierung nach Bedingung Hallo Zusammen, ich habe folgendes Problem: Wenn eines der Zellen M75:M116 leer dann soll die entsprechende Zelle...

  1. Hallo Zusammen,

    ich habe folgendes Problem:

    Wenn eines der Zellen M75:M116 leer dann soll die entsprechende Zelle in der Spalte C hellblau (farbcode 33) sein.

    Danke im Voraus.

    Grüße
    falcon30
     
  2. hallo falcon

    kann es sein dass du nach so etwas suchst:

    Code:
    Sub wenndannformatiere()
    'Hier den Bereich angeben
    Const c_bereich = A1:A3
    
    'Bereich für das Makro lesbar machen
    Dim Zelle As Range, r As Range
    Set r = Range(c_bereich)
    
    'Jede Zelle überprüfen
    For Each Zelle In r
     If Zelle.Value =  Then
      Zelle.Interior.ColorIndex = 33
     End If
    Next
    
    End Sub
    mfg billy
     
  3. Hi,

    die Bedingung ist fast gut, nur soll eine andere Zelle formatiert werden:

    Wenn Zelle M75:M116 leer
    Dann Zelle C75:C116 hellblau

    z.b.: Zelle M100 ist leer dann C100 hellblau

    Danke!!

    Grüße
    falcon30
     

  4. hups

    hab nur den 1. teil gelesen. sry

    Code:
    Sub wenndannformatiere()
    'Hier den Bereich angeben
    Const c_bereich = M1:M3
    
    'Bereich für das Makro lesbar machen
    Dim Zelle As Range, r As Range
    Set r = Range(c_bereich)
    
    'Jede Zelle überprüfen
    For Each Zelle In r
     If Zelle.Value =  Then
      Zelle.Offset(0, -10).Interior.ColorIndex = 33
     End If
    Next
    
    End Sub
    
    so sollte/ist es nun besser sein *gg*
     
  5. Vielen Dank!!

    Funktioniert super!!

    jetzt habe ich noch ein Problem:

    Wenn Zelle M75:M116 leer
    Dann Zelle AF75:AP116 hellblau

    z.b.: Zelle M100 ist leer dann AF100:AP100 hellblau


    Wäre toll wenn Du mir hier auch noch helfen könntest.

    Danke!!

    Grüße
    falcon30
     
  6. Also

    das machst du ja bei der gleichen schleife oder? *gg*

    du musst dann einfach diese schleife nehmen und die alte löschen :)

    Code:
    For Each Zelle In r
     If Zelle.Value =  Then
      Zelle.Offset(0, -10).Interior.ColorIndex = 33
      Range(Cells(Zelle.Row, 32), Cells(Zelle.Row, 42)).Interior.ColorIndex = 33
     End If
    Next
    mfg billy
     
  7. Vielen Dank!!

    Funktioniert klasse.

    Grüße
    falcon30
     
  8. dafür wurde es gemacht *gg*, dass es funktioniert und klasse ist ;D
     
Die Seite wird geladen...

Zellen Formatierung nach Bedingung - Ähnliche Themen

Forum Datum
Excel Zellenformatierung Microsoft Office Suite 14. Mai 2008
Excel | Zellenformatierung Microsoft Office Suite 10. März 2008
Einzelne Zellen in Spalte bedingt Formatieren Microsoft Office Suite 16. Mai 2016
Hintergrundfarbe hinter ausgeblendeten Zellen und Spalten.... Microsoft Office Suite 20. Okt. 2015
Zellen je nach Inhalt automatisch in richtige Spalte verschieben Microsoft Office Suite 15. Juli 2013