VBA - Problem
26.07.2004 13:11:30
Michl
habe ein kleines Problem, und zwar habe ich zur Zellenformatierung bei bestimmten Eingaben eine VBA-Lösung gewählt (da unter "bedingte Formatierung" nicht mehr als drei Bedingungen möglich sind). Diese Lösung steht im Editor direkt im zutreffenden Tabellenblatt.
Jetzt zu meinem Problem, ich hätte gerne, dass diese Lösung nicht nur für ein bestimmtes Tabellenblatt gilt, sondern immer für das aktive Tabellenblatt.
Ist das möglich, bzw. wer hat mir einen VBA-Code dafür ?
Oder darf ich die Lösung nicht direkt im Tabellenblatt verwenden, sondern muss ein Modul verwenden ? oder, oder, oder, ...
Hier ein Teilauszug aus VBA:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("A1:DD500")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case "-0,84"
RaZelle.Interior.ColorIndex = 6
Case "-0,83"
RaZelle.Interior.ColorIndex = 6
Case "-0,82"
RaZelle.Interior.ColorIndex = 6
Case "-0,81"
RaZelle.Interior.ColorIndex = 6
End Select
End If
Next RaZelle
Set RaBereich = Nothing
End Sub