AW: Mit Nutzung des Change-Ereignisses, aber erst ...
04.11.2014 12:20:07
Langmantl
Habe das so umgesetzt, funxt aber nicht, Was habe ich falsch gemacht?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Variablen Definieren'
Dim ch1 As String
Dim ch2 As String
Dim ch3 As String
Dim ch4 As String
Dim ch5 As String
Dim ch6 As String
Dim ch7 As String
Dim v1 As String
Dim v2 As String
Dim v3 As String
Dim v4 As String
Dim v5 As String
Dim v6 As String
Dim v7 As String
Dim b1 As String
Dim b2 As String
Dim b3 As String
Dim b4 As String
Dim b5 As String
Dim b6 As String
Dim b7 As String
Dim w1 As String
Dim w2 As String
Dim w3 As String
Dim w4 As String
Dim w5 As String
Dim w6 As String
Dim w7 As String
Dim datTest As Date
Dim datTest2 As Date
Dim datTest3 As Date
Dim datTest4 As Date
Dim datTest5 As Date
Dim datTest6 As Date
Dim datTest7 As Date
Dim lngDay As Long
Dim lngDay2 As Long
Dim lngDay3 As Long
Dim lngDay4 As Long
Dim lngDay5 As Long
Dim lngDay6 As Long
Dim lngDay7 As Long
Dim lngdayS As String
Dim lngDayS2 As String
Dim lngDayS3 As String
Dim lngDayS4 As String
Dim lngDayS5 As String
Dim lngDayS6 As String
Dim lngDayS7 As String
'Variablen den Check und Textboxen zuordnen'
ch1 = Me.CheckBox1
ch2 = Me.CheckBox2
ch3 = Me.CheckBox3
ch4 = Me.CheckBox4
ch5 = Me.CheckBox5
ch6 = Me.CheckBox6
ch7 = Me.CheckBox7
v1 = Me.TextBox2.Text
v2 = Me.TextBox6.Text
v3 = Me.TextBox10.Text
v4 = Me.TextBox15.Text
v5 = Me.TextBox19.Text
v6 = Me.TextBox23.Text
v7 = Me.TextBox27.Text
b1 = Me.TextBox3.Text
b2 = Me.TextBox7.Text
b3 = Me.TextBox11.Text
b4 = Me.TextBox14.Text
b5 = Me.TextBox20.Text
b6 = Me.TextBox24.Text
b7 = Me.TextBox28.Text
w1 = Me.TextBox4.Text
w2 = Me.TextBox8.Text
w3 = Me.TextBox12.Text
w4 = Me.TextBox13.Text
w5 = Me.TextBox17.Text
w6 = Me.TextBox21.Text
w7 = Me.TextBox25.Text
'Prüfung ob Zeit erlaubt erste Spalte'
On Error GoTo err_handler
datTest = CDate(v1)
lngDay = Weekday(Sheets(1).Range("A5"), vb1) Or lngDay = Weekday(Sheets(1).Range("A5"), vb2) Or _
lngDay = Weekday(Sheets(1).Range("A5"), vb3) Or lngDay = Weekday(Sheets(1).Range("A5"), vb4) Or lngDay = Weekday(Sheets(1).Range("A5"), vb5) Or lngDay = Weekday(Sheets(1).Range("A5"), vb6) Or lngDay = Weekday(Sheets(1).Range("A5"), vb7)
lngdayS = Sheets(1).Range("a8").Text
If lngDay "Schließtag" And lngdayS "Feiertag" And lngdayS "Urlaub" _
Then
If datTest "Schließtag" And lngdayS "Feiertag" And lngdayS "Urlaub" _
Then
If datTest "Schließtag" And lngDayS2 "Feiertag" And lngDayS2 "Urlaub" _
Then
If datTest2 "Schließtag" And lngDayS2 "Feiertag" And lngDayS2 " _
Urlaub" Then
If datTest2 "Schließtag" And lngDayS3 "Feiertag" And lngDayS3 "Urlaub" _
Then
If datTest3 "Schließtag" And lngDayS3 "Feiertag" And lngDayS3 " _
Urlaub" Then
If datTest3 "Schließtag" And lngDayS4 "Feiertag" And lngDayS4 "Urlaub" _
Then
If datTest4 "Schließtag" And lngDayS4 "Feiertag" And lngDayS4 " _
Urlaub" Then
If datTest4 "Schließtag" And lngDayS5 "Feiertag" And lngDayS5 "Urlaub" _
Then
If datTest5 "Schließtag" And lngDayS5 "Feiertag" And lngDayS5 " _
Urlaub" Then
If datTest5 "Schließtag" And lngDayS6 "Feiertag" And lngDayS6 "Urlaub" _
Then
If datTest6 "Schließtag" And lngDayS6 "Feiertag" And lngDayS6 " _
Urlaub" Then
If datTest6 "Schließtag" And lngDayS7 "Feiertag" And lngDayS7 "Urlaub" _
Then
If datTest7 "Schließtag" And lngDayS7 "Feiertag" And lngDayS7 " _
Urlaub" Then
If datTest7