habe ein Problem mit folgenem Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Werte berechnen und an Variablen übergeben
wert = Cells(6, 4).Value
minTol = wert + Cells(8, 4).Value
maxTol = wert + Cells(7, 4).Value
orange_max = Cells(7, 4).Value * 20 / 100 * -1
orange_min = Cells(8, 4).Value * 20 / 100 * -1
m = maxTol - orange_max
n = minTol + orange_min
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
Case Is > maxTol
Target.Font.ColorIndex = 3 'rot
Case Is < minTol
Target.Font.ColorIndex = 3
Case Is < maxTol, Is < m
Target.Font.ColorIndex = 46 'orange
Case Is < minTol, Is < n
Target.Font.ColorIndex = 46
Case Else
Target.Font.ColorIndex = 10 'grün
End Select
End Sub
So funktioniert es natürlich nur für Spalte 4. Ich möchte aber, dass es für alle Spalten die Werte übernimmt. Spalten 4-30. Die Werte in den Spalten sind immer verschieden.
Anstatt: wert = Cells(6, 4).Value, vielleicht so etwas: wert = Cells(6, Target-Spalte).Value?
Weiß nicht wie ich so etwas hinbekomme. Wer kann mir helfen?
Gruß Andi