VBA

Bild

Betrifft: VBA
von: Iditzje
Geschrieben am: 30.06.2015 13:21:42

Hallo,
ich möchte gern ein Macro schreiben für:
Reihe A4 bis F11 sollen die Felder gelb hinterlegt sein, wenn der Wert kleiner als hundert ist.
Für eine Zelle hab ich das hinbekommen, aber leider nicht für den gesamten Bereich!
Ich hoffe ihr könnt mir weiterhelfen.
Danke SL

Bild

Betrifft: AW: VBA
von: Claus
Geschrieben am: 30.06.2015 13:25:03
Viel einfacher geht das ja mit "Bedingter Formatierung" - brauchst du da wirklich einen Makro?

Bild

Betrifft: AW: VBA
von: Iditzje
Geschrieben am: 30.06.2015 13:26:59
Ja, bitte!! Ich möchte doch lernen

Bild

Betrifft: AW: VBA
von: Claus
Geschrieben am: 30.06.2015 13:29:37
Oh - o.k. :-)
Nun ist es so, dass ich das zwar hinbringen würde - aber sicher nur auf eine recht stümperhafte Art. Deshalb stelle ich diesen fred wieder auf offen, sorry.
Liebe Grüße
Claus

Bild

Betrifft: Mal so
von: Jack_d
Geschrieben am: 30.06.2015 13:37:09
.. als Idee
Grüße

Sub gelb()
Dim Rng As Range
With Worksheets("Tabelle1")
    Set Bereich = .Range("A4:F11")
    For Each Rng In Bereich
        If Rng.Value < 100 Then
            Rng.Interior.Color = vbYellow
        End If
    Next
End With
End Sub


Bild

Betrifft: AW: Mal so
von: Iditzje
Geschrieben am: 30.06.2015 13:45:21
Noch eine Frage: Es gibt doch glaub ich "Farbcodes" kann ich die auch verwenden?

Bild

Betrifft: ja, warum nicht? owT
von: Jack_d
Geschrieben am: 30.06.2015 13:54:26
ohne weiteren Text

Bild

Betrifft: AW: ja, warum nicht? owT
von: Iditzje
Geschrieben am: 30.06.2015 13:55:54
Wie sieht dann das Macro aus????
Kannst du mir bitte diese Variante mal schreiben??
vielen lieben Dank im voraus

Bild

Betrifft: Das ist ja jetzt auch kein Hexenwerk
von: Jack_d
Geschrieben am: 30.06.2015 14:00:59
man muss lediglich .color gegen .colorindex austauschen und dann entsprechend den Farb(index /code ) dazuschreiben
Grüße


Sub gelb()
Dim Rng As Range
With Worksheets("Tabelle1")
    Set Bereich = .Range("A1:I10")
    For Each Rng In Bereich
        If Rng.Value > 1 Then
            Rng.Interior.ColorIndex = 6
        End If
    Next
End With
End Sub


Bild

Betrifft: Danke! Super
von: Iditzje
Geschrieben am: 30.06.2015 14:22:27
Vielen lieben Dank
gruß
SL

Bild

Betrifft: Danke für die Rückmeldung owT
von: Jack_d
Geschrieben am: 30.06.2015 14:29:47
ohne weiteren Text

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Access Not Like mit mehreren Kriterien"