Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Datum durch klicken übernehmen"
ListBox-Elemente beim Anklicken in Tabelle übertragen