Datum durch klicken übernehmen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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

Bild


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


Bild


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.




 Bild

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