kann mir jemand helfen?
Warum funktioniert der erste Code mit Variablen nicht und warum funktioniert der zweite Code ohne Variable.
Habe den Code erstellt damit der erste Kalender den Zweiten überwacht und umgekehrt. Denn das erste Datum soll nie größer als das zweite sein. Und das zweite Datum soll nie kleiner als das erste Datum sein.
Liegt der Fehler bei den Variablenbezeichnug?
Private Cd1 As Date
Private Cd2 As Date
Private Cd3 As Date
Private Sub Calendar1_Click() 'KALENDER 1 FUNKTIONIERT NICHT
Cd1 = GESPRÄCHE.Calendar1.Value
Cd2 = GESPRÄCHE.Calendar2.Value
Cd3 = GESPRÄCHE.Calendar3.Value
'erstgespräch
If Cd1 > Cd2 Then
Cd2 = Cd1
Erst = Cd1
Zweit = Cd2
Else
Erst = Cd1
Zweit = Cd2
End If
GESPRÄCHE.TextBox1.Value = Erst
End Sub
Private Sub Calendar1_Click() 'KALENDER 1 FUNKTIONIERT
With GESPRÄCHE.Calendar1 'erstgespräch
If .Value > GESPRÄCHE.Calendar2.Value Then
GESPRÄCHE.Calendar2.Value = .Value
Erst = .Value
Zweit = GESPRÄCHE.Calendar2.Value
Else
Erst = .Value
Zweit = GESPRÄCHE.Calendar2.Value
End If
End With
GESPRÄCHE.TextBox1.Value = Erst
End Sub
Private Sub Calendar2_Click() 'KALENDER 2 FUNKTIONIERT NICHT
Cd1 = GESPRÄCHE.Calendar1.Value
Cd2 = GESPRÄCHE.Calendar2.Value
Cd3 = GESPRÄCHE.Calendar3.Value
'zweitgespräch
If Cd2 < Cd1 Then
Cd1 = Cd2
Erst = Cd1
Zweit = Cd2
GESPRÄCHE.TextBox1.Value = Zweit
Else
Erst = Cd1
Zweit = Cd2
End If
GESPRÄCHE.TextBox2.Value = Zweit
End Sub
Private Sub Calendar2_Click() 'KALENDER 2 FUNKTIONIERT
With GESPRÄCHE.Calendar2 'zweitgespräch
If .Value < GESPRÄCHE.Calendar1.Value Then
Calendar1.Value = .Value
Erst = GESPRÄCHE.Calendar1.Value
Zweit = .Value
GESPRÄCHE.TextBox1.Value = Zweit
Else
Erst = GESPRÄCHE.Calendar1.Value
Zweit = .Value
End If
End With
GESPRÄCHE.TextBox2.Value = Zweit
End Sub
Gruß
Felix