VBA einfügen...
03.06.2006 12:41:29
Jan
habe den folgenden VBA-Code:
Private Sub Worksheet_Change( _
ByVal Target As Excel.Range)
If Intersect(Target, Range("C28:DP43")) _
Is Nothing Then Exit Sub
If Target.Value = "T" Then
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
End If
If Target.Value = "KT" Then
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
End If
If Target.Value = "K" Then
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
End If
If Target.Value = "NT" Then
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
End If
If Target.Value = "N" Then
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
End If
If Target.Value = "NN" Then
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
End If
If Target.Value = "NB" Then
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
End If
If Target.Value = "R" Then
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
End If
End Sub
Diesen würde ich gerne in meine Tabelle einfügen, so daß er n.m. per Button ein und ausgeschaltet werden kann. N.M. ein Knopf direkt in der Tabelle, oder ansonsten permanent im Betrieb.
Vielen Dank im Voraus.