wenn ich mit meiner Textbox und scrollbalken ein Datum auf meiner UF auswähle,
wird dieses Datum auch auch in meine Tabelle geschrieben.
Leider reagiert meine Verweisfunktion nicht, erst wenn ich das Datum nochmals
in die Zelle direkt Eingabe reagiert meine UF, Warum Wieso?
habe folgende Makros:
Private Sub txtDate_Change()
Dim dat As Date
On Error Resume Next
If Not txtDate Like "*.*.?*" Then Exit Sub
dat = CDate(txtDate)
If Err <> 0 Then Exit Sub 'Eingabe ist kein gültiges Datum
spnDate = CLng(dat)
Worksheets("Kulanzblatt-VK").Range("BP431").Value = txtDate
Label4.Caption = Format(spnDate, "dddd") 'zeigt Tag an
If txtDate = "00:00:00" Then Label4.Caption = ""
End Sub
Private Sub spnDate_Change()
Sheets("Kulanzblatt-VK").Visible = True
Sheets("Kulanzblatt-VK").Unprotect ("wwpa")
Sheets("Kulanzblatt-VK").Select
txtDate = Format(spnDate, "dd.mm.yyyy")
If txtDate <> Worksheets("Kulanzblatt-VK").Range("BP431").Value Then
txtDate = Worksheets("Kulanzblatt-VK").Range("BP431").Value
Label4.Caption = ""
Else
Worksheets("Kulanzblatt-VK").Range("BP431").Value = txtDate
' muß hier stehen so schreibt nach Beenden in Tabelle
End If
End Sub
Gruß Walter