Herbers Excel-Forum - das Archiv
Datum durch klicken übernehmen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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.