Datum durch klicken übernehmen

• Datum durch klicken übernehmen von Albrecht Grohn vom 03.04.2005 18:45:38
• AW: Datum durch klicken übernehmen - von Peter W am 03.04.2005 18:52:32
  • AW: Datum durch klicken übernehmen - von Hajo_Zi am 03.04.2005 18:56:47

Betrifft: Datum durch klicken übernehmen von: Albrecht Grohn
Geschrieben am: 03.04.2005 18:45:38

Hallo Excel-Fans,
hat jemand eine Funktion (oder Makro, oder VBA-routine), die in einem Arbeitsblatt sowas wien Kalender einblendet. Durch anklicken eines Datums sollte dieses Datum z.b. in Splate A übernommen werden.
MFG
A. Grohn

Betrifft: AW: Datum durch klicken übernehmen von: Peter W
Geschrieben am: 03.04.2005 18:52:32

Servus,

Wenn du mit Objekt einfügen ein Kalender10 Steuerelement einfügst und in dem Code der Tabelle (wo der Kalender eingefügt werden soll), folgendes einträgst funzts.

Private Sub Calendar1_Click()
Dim i As Long
    For i = 13 To 27
    If Cells(i, 1).Value = "" Then
       Cells(i, 1).Activate
    ActiveCell.Value = Calendar1.Value 'wichtig ist nur das, die Schleife davor kannste anpassen oder knicken;)
    Exit For
  End If
  Next i
End Sub

MfG
Peter




Betrifft: AW: Datum durch klicken übernehmen von: Hajo_Zi
Geschrieben am: 03.04.2005 18:56:47

Hallo Peter,

unter Version 2000 ist dafür aber Access notwendig.

Hallo A. Grohn

Auf meiner HP gibt es ein Kalenderersatz.
Beispieldatei


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Beiträge aus den Excel-Beispielen zum Thema "Datum durch klicken übernehmen"

ListBox-Elemente beim Anklicken in Tabelle übertragen