Liebes Forum,
ich hätte eine ganz dringende Frage und komme einfach nicht weiter. Im unteren Abschnitt seht ihr den schon funktionierenden Code
Es wird im Mitarbeiterverzeichnis nachgeschaut ob ein Mitarbeiter eingetragen. Jeder Mitarbeiter bekommt eine Nummer. Wenn kein Mitarbeiter
eingetragen ist, steht im Mitarbeiterverzeichnis eine 0 und deshalb soll auch dieser Mitarbeiter in den Registrierkarten
Lohnwoche & aktuelle KW ausgeblendet werden. Die Zeilen die ausgeblendet werden sollen für die jeweilige Karte ist unten angegeben.
Jetzt brauch ich eine Schleife die das für alle 40 mitarbeiter mach, also überprüft ob ein Mitarbeiter eingetragen ist oder nicht
und je nachdem die Zeilen ausblendet oder einblendet. Dazu muss auch die Schleife auch den Start und Endbereich für beide Karten
nach jedem Durchgang um dieselbe Differenz erhöhen, ansonsten würde ja immer die gleichen Zeilen ausgeblendet werden.
Private Sub Worksheet_Change()
Dim strTMP As String
strTMP = "KW" & (Date - DateSerial(Year(Date + _
(8 - Weekday(Date)) Mod 7 - 3), 1, 1) _
- 3 + (Weekday(DateSerial(Year(Date + (8 - Weekday(Date)) _
Mod 7 - 3), 1, 1)) + 1) Mod 7) \ 7 + 1
Dim varAusblend1 As Range
Dim varAusblend2 As Range
Dim varSchalter As Range
Set varAusblend1 = ThisWorkbook.Worksheets(strTMP).Rows("3:9")
Set varAusblend2 = ThisWorkbook.Worksheets("Lohnzettel").Rows("2:33")
Set varSchalter = ThisWorkbook.Worksheets("Mitarbeiterverzeichnis").Range("A3")
ThisWorkbook.Worksheets(strTMP).Unprotect Password:="f3##63dz2!"
If varSchalter.Value <> "0" And varAusblend1.Hidden = True Then
varAusblend1.Hidden = False
Else
If varSchalter.Value = "0" And varAusblend1.Hidden = False Then
varAusblend1.Hidden = True
End If
End If
If varSchalter.Value <> "0" And varAusblend2.Hidden = True Then
varAusblend2.Hidden = False
Else
If varSchalter.Value = "0" And varAusblend2.Hidden = False Then
varAusblend2.Hidden = True
End If
End If
ThisWorkbook.Worksheets(strTMP).Protect Password:="f3##63dz2!"
End Sub
Ich hoffe es kann mir jemand helfen.
Vielen Vielen Dank im Voraus
Liebe Grüße
Thomas