ich hab hier einen Code von Hajo hab meine Daten eingegeben. Wenn ich das verwende für noch mehr bereiche bekomme ich eine Fehlermeldung und der Bereich "Set RaBereich = Union(Range" wird Gelb. Wenn das für den ganzen Bereich macheklappt das zwar aber nur wenn ich Zb. die 1,2,3 reinschreibe. Ich hab da eine Formel drin die die Zahlen ergeben und das klappt nicht. Kann mir da einer helfen?
mfg Pitt
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies *
'* 06.08.10 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/
' Füllfarbe
' für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range ' Variable für Bereich
Dim RaZelle As Range ' Variable für Zelle
' Bereich der Wirksamkeit
'Set RaBereich = Range("C20:AG20")
' noch mehr Bereiche
Set RaBereich = Union(Range("C20:AG20, C22:AG22 , C24:AG24"), _
Range("C26AG26, C28:AG28, C30:AG30, C32:AG32 , C34:AG34 , C36:AG36"), _
Range("C38:AG38 , C39:AG39 , C41:AG41 , C43:AG43 , C45:AG45 , C46:AG46"), _
Range("C48:AG48 , C49:AG49, C51:AG51 , C53:AG53 , C55:AG55"), _
Range("C57:AG57 , C59:AG59 , C61:AG61"))
' ab Vesion XP braucht der Schutz nicht aufgehoben werden
' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
' Zelle die in dem Bereich liegen auf die Variable schreiben
' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
' jede Zelladresse ist einzeln angegeben
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle
Select Case UCase(.Value) ' Umwandlung der Eingabe in Großbuchstaben
Case "1"
' Füllfarbe Schwarz
.Interior.Color = 0
' Schriffarbbe weiß
.Font.Color = 16777215
' Zellenformat Standard
.NumberFormat = "General"
Case "2"
' Füllfarbe Gelb
.Interior.Color = 65535
' Schriffarbe automatisch
.Font.ColorIndex = xlAutomatic
' Zellenformat Standard
.NumberFormat = "General"
Case "3"
' Füllfarbe Rot
.Interior.Color = 255
' Scgriftfarbe Weiß
.Font.Color = 16777215
' Zellformat nicht sichtbar
.NumberFormat = ";;;"
Case "4"
' Füllfarbe Grün
.Interior.Color = 65280
' Schriftfarbe automatisch
.Font.ColorIndex = xlAutomatic
' Zellenformat Standard
.NumberFormat = "General"
Case "KLAUS"
' Füllfarbe blau
.Interior.Color = 16711680
' Schriftfarbe Grau - 25%
.Font.Color = 12632256
' Zellenformat Standard
.NumberFormat = "General"
Case Else
' keine Füllfarbe
.Interior.ColorIndex = xlNone
' Schriftfarbe automatisch
.Font.ColorIndex = xlAutomatic
' Zellenformat Standard
.NumberFormat = "General"
End Select
End With
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing ' Variable leeren
End Sub