DANKE hab es geschafft.
31.05.2017 14:23:18
STeve
Danke an alle die dadurch Mühen hatte. Habe es geschafft.
lg und schönen Tag noch
Steve
Hier der Code:
Sub einfaerben()
Dim Pos As Integer
Dim MAName As Integer ' es wird der MitarbeiterName aus der Mitarbeiterverwaltung eingetragen
Pos = 13 + 5
For MAName = 1 To Worksheets("Tabelle1").Range("A10").End(xlUp).Row
Sheets("Tabelle1").Range("A" & Pos).Value = Sheets("Mitarbeiterverwaltung").Range("A" & MAName). _
Value
Pos = Pos + 8
Next MAName
Dim x As Integer
x = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row - 12
Dim Spalte As Range ' färbt Sa und So ein
For Each Spalte In Sheets("Tabelle1").Range(Cells(4, 4), Cells(x, 36)).Columns
Select Case Weekday(Spalte.Cells(11), 2)
Case 6: Spalte.Interior.Color = RGB(204, 255, 255) ' Farbe des Samstages
Case 7: Spalte.Interior.Color = RGB(255, 204, 153) 'Farbe des Sonntages
End Select
Next
Dim Maria As Date, oster As Date, ostermo As Date, christi As Date, Pfingstso As Date, _
Pfingstmo As Date, fronleich As Date, neujahr As Date, Heilige As Date
Dim Staatsf As Date, MariaHimmel As Date, National As Date, Christtag As Date, Stefanitag As _
Date, Allerheilig As Date, evang_FT_Karfr As Date
With Sheets("Tabelle1")
Maria = .Range("C55")
oster = .Range("C44")
ostermo = .Range("C45")
christi = .Range("C46")
Pfingstso = .Range("C47")
Pfingstmo = .Range("C48")
fronleich = .Range("C49")
neujahr = .Range("C51")
Heilige = .Range("C52")
Staatsf = .Range("C53")
MariaHimmel = .Range("C54")
National = .Range("C56")
Christtag = .Range("C57")
Stefanitag = .Range("C58")
Allerheilig = .Range("C59")
evang_FT_Karfr = .Range("C50")
End With
For Each Spalte In Sheets("Tabelle1").Range(Cells(4, 4), Cells(4, 36)).Columns
Select Case Spalte(1)
Case Maria, oster, ostermo, christi, Pfingstso, Pfingstmo, fronleich, neujahr, Heilige, Staatsf, _
MariaHimmel, National, Christtag, Stefanitag, Allerheilig: Spalte.Cells.Offset(-3, 0).Value = "x"
Case evang_FT_Karfr: Spalte.Cells.Offset(-3, 0).Value = "KarF"
End Select
Next
For Each Spalte In Sheets("Tabelle1").Range(Cells(1, 4), Cells(x, 36)).Columns ' sucht das x _
oder X in Zeile ein und färbt den Feiertag ein
Select Case Left(Spalte.Cells(1), 36)
Case "x", "X": Spalte.Interior.Color = RGB(255, 204, 153)
Dim EvangMitarbeiter As Integer ' es wird der evangMitarbeiter aus der Mitarbeiterverwaltung _
gesucht
Case "KarF": For EvangMitarbeiter = 1 To Worksheets("Mitarbeiterverwaltung").Range("C10").End( _
xlUp).Row
Dim Suchmal As String
Suchmal = Worksheets("Mitarbeiterverwaltung").Range("C" & EvangMitarbeiter).Value
Select Case Suchmal
Dim Treffer As String
Case "evangelisch": Treffer = Worksheets("Mitarbeiterverwaltung").Range("A" & EvangMitarbeiter). _
Value
For Mitarbeiterpositionsuchen = 1 To Worksheets("Tabelle1").Range("A40").End(xlUp).Row
Dim Tageinfaerben As String
Tageinfaerben = Worksheets("Tabelle1").Range("A" & Mitarbeiterpositionsuchen).Value
Select Case Tageinfaerben
Case Is = Treffer:
Dim evangFT As Range
Set evangFT = Worksheets("Tabelle1").Range(Cells(Mitarbeiterpositionsuchen - 3, Spalte.Cells. _
Column), Cells(Mitarbeiterpositionsuchen + 4, Spalte.Cells.Column))
evangFT.Interior.Color = RGB(255, 204, 153)
End Select
Next
End Select
Next EvangMitarbeiter
End Select
Next
End Sub