Monthview
14.11.2018 13:26:31
EET92
mein Ziel eine effiziente Datumsauswahl mittels Monthview umzusetzen. Dabei soll die Auswahl nur bei einem Klick in eine bestimmten Zellbereich erfolgen. Neben der aktiven Zelle erscheint, dann das Monthview und überträgt in die Zelle das ausgewählte Datum. Bei der nachfolgenden Klick-Kombination ergibt sich nur ein Problem:
1. Klick: Auswahl liegt im bestimmten Zellbereich (öffnen Monthview)
2. Klick: Auswahl liegt im nicht bestimmten Zellbereich (schließen Monthview)
3. Klick: Auswahl liegt im bestimmten Zellbereich (öffnen von 2 Monthviews)
Beide Monthviews (Klick 1 und Klick 3) sind sichtbar. Eine Datumsauswahl ist nur möglich bei Zelle 1 (Klick 1). Das Ziel ist, dass nur Zelle 3 (Klick 3) aktiv und sichtbar ist.
Nachfolgend der Quellcode
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target(1, 1), Tabelle1.Range("Tabelle1[Fälligkeit]")) 'Auswahl _
Zellen zum Kalenderaufruf (Anpassen!)
If Target Is Nothing Then
MonthView1.Visible = False
Else
With MonthView1
.Top = Range(Cells(1, 1), Cells(Target.Row - 5, 1)).Height - Target.Height
.Left = Range(Cells(1, 1), Cells(Target.Row, Target.Column + 1)).Width - Target. _
Width
.Visible = True
If ActiveCell = "" Then
.Value = Date
Else: .Value = ActiveCell
End If
End With
End If
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell = MonthView1.Value
MonthView1.Visible = False
End Sub