Zellen färben nach Anmeldename
highman4
ich habe einen Bereitschaftskalender erstellt. Nun möchte ich, das derjenige der sich im Netzwerk´anmeldet sofort seine Bereitschaften farblich hinterlegt hat.
und beim Schließen der Tabelle diese farbliche Hinterlegung wieder rückgängig gemacht wird.
Habe mir dabei nachfolgenden Code ausgedacht, der aber mal wieder nicht läuft.
Es kommt folgende Fehlermeldung:
"Fehler beim Kompilieren
Anweisungen und Zeilenmarken zwischen select case und erstem Vorkommen unzulässig."
kann mir denn hier nicht mal jemand der es besser weiß helfen?
vielen Dank
Marco
Private Sub Workbook_Open()
'Pruefe wer ist angemeldet
Dim rngCell As Range
Dim rngBereich As Range
Dim r As Variant
Select Case Environ("UserName") = "Anton": r = ("Meyer")
Case Environ("UserName") = "Bertholt": r = ("Lehmann")
Case Environ("UserName") = "Cecar": r = ("Schulze")
End Select
Worksheets("kalender").Activate
Set rngBereich = Range("A4:X34")
For Each rngCell In rngBereich
If Value = r Then
rngCell.Interior.ColorIndex = 7
End If
Next
End Sub