Case mit Wert aus Zelle
09.01.2013 15:32:35
Burghard
ich habe ein Makro, dass so nicht funktioniert. Ich möchte, dass "Case" aus der Zelle "F2" einen Wert nimmt. Wo und wie muss das Makro geändert werden?
Private Sub Worksheet_Activate()
Dim Zelle As Range
Wert = Range("F2")
For Each Zelle In Range("A2:A43")
With Zelle
Select Case .Value
Case Wert
.Interior.ColorIndex = 35
Zelle.Offset(0, 2).Interior.ColorIndex = 35
'Case Else
' .Interior.ColorIndex = xlNone
End Select
End With
Next
Range("F3").Select
End Sub
Hilfe wäre nett.Grüße
Burghard