Kalender Steuerelement mit Doppelklick aufrufen?

Hallo miteinander,
vielleicht könnt Ihr mir helfen, ich bin nicht sicher ob es überhaupt geht.
Ich habe eine Userform mit dem Namen frmPopupKalender und dem Calendar 1 angelegt, welche ich über einen Button aufrufe. Könnte das über einen Doppelklick auf eine Zelle im Range H4:I4 geschehen? Das maximale was ich geschafft habe, ist dass der Kalender nach Doppelklick und verlassen der Zelle geöffnet hat. Das nützt mir natürlich nichts.
Ausserdem habe ich noch folgendes Problem: Wenn in der Zelle bereits ein Datum steht, soll dieses in den Kalender übernommen werden (Datums Vorschlag). Das soll verhinden, dass aus Versehen ein in der Zelle vorhandenens Datum überschrieben wird. Bei leerer Zelle soll der Kalender das aktuelle Datum angezeigen. Das geht auch nicht, er zeigt immer das aktuelle Datum. Ich habe das so gemacht:


Private Sub frmPopupKalender_Initialize()
If IsDate(AvtiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Date
End If
End Sub

Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub
Danke für die Mühe
Winfried

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Winfried!
Probier's mal so!

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H4:I4")) Is Nothing Then
  Cancel = True
  With frmPopupKalender
    If IsDate(Target) Then
      .Calendar1 = Target
    Else
      .Calendar1 = Date
    End If
    .Show
  End With
End If
End Sub

' **********************************************************************
' Modul: frmPopupKalender Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
'OK-Button > Datum übernehmen!
ActiveCell = CDate(Calendar1)
Unload Me
End Sub

Private Sub CommandButton2_Click()
'Abbrechen-Button > UF schliessen ohne Datum zu übernehmen!
Unload Me
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

Kalender Steuerelement mit Doppelklick aufrufen?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kalender Steuerelement mit Doppelklick aufrufen?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread