Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche Combobox Datumsauswahl

Forumthread: Suche Combobox Datumsauswahl

Suche Combobox Datumsauswahl
13.02.2015 12:13:15
kurt
Guten Tag,
vielleicht hat jemand so etwas.
Suche eine Combobox mit Datumsauswahl. 

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")
End Sub

Habe eine Userform.
Ich möchte gern, wenn ich in einem Monat das Datum verändern möchte,
nur Scrollen und dann das Datum auswählen.
Bezug zur Tabelle:
ActiveSheet.Range("W2").Value
mfg
kurt kl

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche Combobox Datumsauswahl
13.02.2015 13:02:06
Peter
Hallo Kurt
Vieleicht so:
Private Sub ComboBox1_Change()
ComboBox1 = cdat(ComboBox1.Value)
End Sub
Gruß Peter (hpo)

Hallo Peter habe eingesetzt aber
13.02.2015 13:22:16
kurt
Hallo Peter,
aber leider keine Reaktion. 
Private Sub ComboBox1_Change()
ComboBox1 = CDate(ComboBox1.Value)
End Sub
Habe dies:
ComboBox1.Value = ActiveSheet.Range("W2").Value
in der UserForm_Initialize, stehen.
mfg
kurt kl

Anzeige
In der Combobox...
13.02.2015 18:58:17
kurt
Guten Abend,
in der Combobox wird mir das aktuelle Datum angezeigt.
Ich würde gern aber ein Datum auswählen können zum scrollen.
Geht das nicht ?
mfg kurt kl

AW: In der Combobox...
14.02.2015 09:23:15
Peter
Hallo Kurt
Um ein Datum auswählen zu können muß Du erst deine datums in die Combobox eintragen.
Dies kannst Du mit AddiTem oder auch mit RowSource.
z.B.
Private Sub ComboBox1_DropButtonClick()
ComboBox1.RowSource = "Tabelle1!A1:A" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
End Sub
In der Tabelle1 in der Spalte A1 bis A... steht dein Datum drin.
Viele Grüße
Peter (hpo)

Anzeige
Danke, kann man auch...
14.02.2015 13:22:31
kurt
Guten Tag Peter,
danke.
Kann man in einer Datei Datumswerte ändern.
Beispiel:
Heute 14.02.2015
darunter sollte bis zum Jahresende die Spalte gefüllt werden.
Also letztes Datum 31.12.2015 oder auch wenn möglich
bis 2016 !
gruß kurt kl

Danke Peter --))
15.02.2015 14:53:55
kurt
;
Anzeige
Anzeige

Infobox / Tutorial

Datumsauswahl in Excel mit einer Combobox

Schritt-für-Schritt-Anleitung

  1. Userform erstellen: Öffne Excel und erstelle eine Userform. Füge eine Combobox hinzu, die für die Datumsauswahl verwendet werden soll.

  2. VBA-Code hinzufügen: Klicke mit der rechten Maustaste auf die Userform und wähle "Code anzeigen". Füge den folgenden VBA-Code ein:

    Private Sub ComboBox1_Change()
   ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")
End Sub

  3. Datenquelle festlegen: Um eine Dropdown-Liste für die Datumsauswahl zu erstellen, benötigst du eine Liste von Datumswerten. Diese kannst du in einer Excel-Tabelle (z.B. "Tabelle1") in Spalte A eintragen.

  4. RowSource der Combobox setzen: Füge den folgenden Code in das Userform-Initialisierungsereignis ein:

    Private Sub UserForm_Initialize()
   ComboBox1.RowSource = "Tabelle1!A1:A" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
End Sub

  5. Dropdown aktivieren: Um das Dropdown-Menü in der Combobox zu aktivieren, füge diesen Code hinzu:

    Private Sub ComboBox1_DropButtonClick()
   ComboBox1.RowSource = "Tabelle1!A1:A" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Häufige Fehler und Lösungen

  • Problem: Die Combobox zeigt kein Datum an.

    • Lösung: Stelle sicher, dass die RowSource korrekt gesetzt ist und dass die Datumswerte in der angegebenen Tabelle vorhanden sind.

  • Problem: Die Auswahl wird nicht im gewünschten Format angezeigt.

    • Lösung: Überprüfe die Formatierung im ComboBox1_Change-Ereignis. Stelle sicher, dass du das Datum im richtigen Format anzeigst.

Alternative Methoden

Falls die Verwendung einer Combobox nicht deinen Anforderungen entspricht, kannst du auch folgende Alternativen nutzen:

  • Kalendersteuerelement: Füge ein Kalendersteuerelement in deine Userform ein. Dadurch kannst du ein Datum direkt auswählen, ohne eine Dropdown-Liste zu verwenden.

  • Datenüberprüfung: Nutze die Datenüberprüfung in Excel, um eine Dropdown-Liste direkt in einer Zelle zu erstellen, die auf eine Liste von Datumswerten verweist.

Praktische Beispiele

  • Beispiel für eine Datumsreihe: Wenn du eine Liste von Datumswerten von heute bis zum Jahresende erstellen möchtest, kannst du diesen VBA-Code verwenden: 
    Sub DatumslisteErstellen()
   Dim i As Integer
   Dim startDate As Date
   startDate = Date ' Heute
   For i = 0 To 350 ' bis zum 31.12.2015
       Sheets("Tabelle1").Cells(i + 1, 1).Value = startDate + i
   Next i
End Sub

Tipps für Profis

  • Dynamische Datenquelle: Du kannst die Datenquelle der Combobox dynamisch aktualisieren, indem du eine Formel verwendest, die die Datumswerte automatisch generiert.

  • Formatierung anpassen: Experimentiere mit verschiedenen Datumsformaten, um die Lesbarkeit zu verbessern. Du kannst das Format in der Combobox anpassen, um die Benutzererfahrung zu optimieren.

FAQ: Häufige Fragen

1. Wie kann ich die Combobox mit Daten füllen?
Du kannst die Combobox mit einer Liste von Datumswerten füllen, indem du die RowSource auf den Bereich der Tabelle setzt, der die Daten enthält.

2. Ist es möglich, ein Datum manuell einzugeben?
Ja, durch die Verwendung des ComboBox1_Change-Ereignisses kannst du es Benutzern ermöglichen, ein Datum manuell einzugeben, während sie gleichzeitig die Möglichkeit haben, aus der Dropdown-Liste auszuwählen.

3. Welche Excel-Version benötige ich?
Das oben beschriebene Vorgehen funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige