VBA
01.06.2016 09:40:33
Boory
>
ich habe ein Problem mit "erste_freie_Zeile" Ich greife die Spalte "D" ab und definiere über "Weekday", dass ein Eintrag nicht an einem Samstag oder Sonntag erfolgen darf. Nun muß ich irgendwie noch die Spalte "C" dort mit einbinden, da dort vom Mitarbeiter "U" für Urlaub, "K" für Krank oder "Ü" für Überstundenabbau eingetragen wird. Über Formel wird in dieser Spalte auch automatisch ein "F" eingetragen, wenn es sich um einen Feiertag handelt. Nun muss die "erste_freie_Zeile" eben auch diese Spalte berücksichtigen - und ich stehe hier ein wenig auf dem Schlauch... Kann mir jemand da helfen?
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "12345"
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Erfassung" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Erfassung").Range("D33").End(xlUp).Offset(1, 0).Row
Select Case Weekday(Cells(erste_freie_Zeile, 1), vbMonday)
Case 6: erste_freie_Zeile = erste_freie_Zeile + 2
Case 7: erste_freie_Zeile = erste_freie_Zeile + 1
End Select
'In Blatt "Erfassung"
'Spalte A, erste freie Zeile das Datum im Textformat übertragen
Sheets("Erfassung").Cells(erste_freie_Zeile, 4) = Format(TextBox1.Text)
'End With
Unload Me
ActiveSheet.Protect "12345"
End Sub
Soweit der aktuelle Code...
Vielen Dank - Boory