Programmieren - alles kontrollieren 4.936 Themen, 20.625 Beiträge

Hallo Freunde,

bei diesem Code (in VBA) kommt immer 0 heraus, vielleicht findet jemand von Euch den Fehler.

Besten Dank auch und freundliche Gruesse Harry


Private Sub TextBox6_AfterUpdate()

\'Berechnung der Anzahl der Übernachtungen
Dim D1 As String, D2 As String, U1 As Date, U2 As Date

If Label2 "Day" And Label12 "" Then
D1 = TextBox1.Text & "." & TextBox2.Text & "." & TextBox3.Text
D1 = CDate(U1)
D2 = TextBox3.Text & "." & TextBox4.Text & "." & TextBox5.Text
D2 = CDate(U2)
TextBox10.Text = U1 - U2
ElseIf Label2 = "Day" Then
D1 = TextBox2.Text & "." & TextBox1.Text & "." & TextBox3.Text
D1 = CDate(U1)
D2 = TextBox4.Text & "." & TextBox5.Text & "." & TextBox5.Text
D2 = CDate(U2)
TextBox10.Text = U1 - U2
End If
End Sub