Dropdown Kalender VBA

Forumthread: Dropdown Kalender VBA

11.07.2017 11:10:11

Matthias

Hallo Excel Profis
ich hab da wider was.
In meiner Tabelle1 in der Spalte H hätte ich gerne hinter jeder Zelle einen Kalender versteckt. Immer wenn ich eine Zelle in der Spalte H doppelt anklicke soll sich ein Dropdown Kalender öffnen. Das Datum welches ich ausgesucht habe soll dann in die aktive Zelle übernommen warden. Ich habe mir einen Code aus dem Netz Gesuch der aber leider bei Excel 2010 nicht funktioniert

Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$24" Then
Calendar1.Left = Target.Left
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub

Danke im voraus

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dropdown Kalender VBA

11.07.2017 12:39:59

dirk

AW: Dropdown Kalender VBA

11.07.2017 12:39:59

dirk

Hallo!
wird wohl ein Problem mit dem fehlenden calendae control in excel2010 sein. hier mal ein link zu einer Lösung: https://sites.google.com/site/e90e50/calendar-control-class
gruss
dirk aus dubai

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um einen Dropdown Kalender in Excel einzufügen, kannst du die folgenden Schritte befolgen. Diese Anleitung ist für Excel 2016 geeignet, sollte aber auch für andere Versionen ähnlich sein.

Entwicklertools aktivieren:
- Gehe zu „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere die „Entwicklertools“.
Kalendersteuerung hinzufügen:
- Wechsle zu den „Entwicklertools“ und klicke auf „Einfügen“. Wähle dann „Weitere Steuerelemente“ aus.
- Suche nach „Microsoft Date Picker Control“ oder einem ähnlichen Kalendersteuerungselement. Füge es in deine Tabelle ein.

VBA-Code einfügen:

Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge folgenden Code in das entsprechende Arbeitsblatt ein:

Private Sub Calendar1_Click()
   ActiveCell.Value = Calendar1.Value
   Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("H:H")) Is Nothing Then
       Calendar1.Left = Target.Left
       Calendar1.Top = Target.Top + Target.Height
       Calendar1.Visible = True
   Else
       Calendar1.Visible = False
   End If
End Sub

Kalender testen:
- Klicke doppelt auf eine Zelle in der Spalte H, um den Kalender erscheinen zu lassen. Wähle ein Datum aus, um es in die Zelle zu übertragen.

Häufige Fehler und Lösungen

Kalendersteuerung nicht sichtbar: Stelle sicher, dass die „Entwicklertools“ aktiviert sind und die richtige Steuerung ausgewählt wurde.
Kalender erscheint nicht: Überprüfe den VBA-Code auf Fehler und stelle sicher, dass die Zelle in der Spalte H angeklickt wird.
Nicht kompatibel mit Excel 2010: Falls du Excel 2010 verwendest, könnte ein fehlendes Kalendersteuerungselement das Problem sein. Du kannst auf spezifische Lösungen wie die von dir erwähnte Website zurückgreifen.

Alternative Methoden

Wenn du keinen VBA-Code verwenden möchtest, kannst du auch einen Dropdown Kalender mithilfe der Datenüberprüfung einfügen.

Datenüberprüfung:
- Wähle die Zelle aus, in die du den Kalender einfügen möchtest.
- Gehe zu „Daten“ > „Datenüberprüfung“ > „Datenüberprüfung“.
- Wähle „Liste“ aus und gib die möglichen Daten ein.
Verwendung von Add-Ins:
- Es gibt verschiedene Excel-Add-Ins, die dir helfen können, einen Kalender als Dropdown zu integrieren. Diese sind oft benutzerfreundlicher und erfordern keine Programmierung.

Praktische Beispiele

Einfacher Monatsauswahl-Dropdown:
- Du kannst einen einfachen Dropdown mit den Monatsnamen erstellen. Gehe zu „Daten“ > „Datenüberprüfung“ > „Liste“ und gib die Monate ein.
Kalender Popup mit VBA:
- Du kannst den VBA-Code so anpassen, dass du ein Popup-Kalenderfenster erhältst, wenn du auf eine Schaltfläche klickst.

Tipps für Profis

Experimentiere mit verschiedenen Kalendersteuerungen, um herauszufinden, welche für deine Excel-Version am besten funktioniert.
Nutze benutzerdefinierte Formate für die Datumsanzeige, um das Erscheinungsbild deiner Daten zu verbessern.
Berücksichtige, dass der Dropdown Kalender auch in Kombination mit anderen Excel-Funktionen, wie z.B. SVERWEIS, verwendet werden kann, um die Dateneingabe zu optimieren.

FAQ: Häufige Fragen

1. Wie kann ich den Kalender in einer bestimmten Zelle positionieren? Du kannst die Position des Kalenders im VBA-Code anpassen, indem du die Left und Top Eigenschaften entsprechend änderst.

2. Funktioniert der Dropdown Kalender auch in Excel Online? Leider sind die meisten VBA-Funktionen, einschließlich des Dropdown Kalenders, in Excel Online nicht verfügbar. Du kannst jedoch alternative Methoden wie die Datenüberprüfung nutzen.

3. Gibt es eine Möglichkeit, den Dropdown Kalender auf mehrere Zellen anzuwenden? Ja, indem du den VBA-Code anpasst, kannst du den Kalender für eine ganze Spalte oder einen bestimmten Zellbereich aktivieren.

Beliebteste Forumthreads (12 Monate)