hallo Nepumuk,
auf meine Frage habe ich leider erst jetzt eine Antwort von nepumuk entdeckt.
Diesen Code wollte ich wie folgt umbauen / Frage im Code:
Option Explicit
Private Sub Worksheet_Calculate()
Dim Zelle As Range, tip As Variant, tip2 As Variant
tip = Range(Cells(44, 24), Cells(44, 43)).Value ' = Vergleichszahlen
For Each Zelle In Range(Cells(4, 1), Cells(50, 10)) ' werden gefärbt
Select Case Zelle.Value
'' ? nachstehend sollen die Spalten 1 - 20 in eine Schleife o.ä.
'' integriert werden; immer gleiche Färbung
'' tip (1,1) to tip (1,20) hat nicht funktioniert
Case tip(1, 1): Zelle.Interior.ColorIndex = 3
Case tip(1, 2): Zelle.Interior.ColorIndex = 3
Case tip(1, 3): Zelle.Interior.ColorIndex = 3
Case tip(1, 4): Zelle.Interior.ColorIndex = 3
Case tip(1, 5): Zelle.Interior.ColorIndex = 3
Case tip(1, 6): Zelle.Interior.ColorIndex = 3
Case Else: Zelle.Interior.ColorIndex = xlNone
End Select
Next
End Sub
hier noch der alte Thread:
https://www.herber.de/index.html?https://www.herber.de/forum/archiv/660to664/t662010.htm
Besten Dank!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de