Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum als Dropdown

Datum als Dropdown
07.05.2004 15:24:21
Matthias
Hi,
weiß jemand wie man unter Excel ein Dropdown Feld erstellen kann wo der jeweilige benutzer in getrennten dropdownfeldern Jahr, Monat und Tag eingeben kann? zusätzlich soll Excel in den Dropdown nur die korreten auswahlmöglichkeiten an anzahl der Tage des angegebenen Monats im angegebenen Jahr auflisten.
Danke schon mal im vorraus
Mfg Matthias

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

Betreff
Datum
Anwender
Anzeige
Auch mit Berechnung der Schaltjahre?
OliveR
Hallo Matthias,
1. sollen auch die Schaltjahre berechnet werden?
2. Wieviele Jahre soll man denn auswählen können?
Gruß
OliveR
AW: Auch mit Berechnung der Schaltjahre?
08.05.2004 14:46:46
Matthias
hi,
zu 1: ja
zu 2: bis 2010
Datum als Dropdown im Tabellenblatt
07.05.2004 16:28:11
GraFri
Hallo


'In 'DieseArbeitsmappe'
Private Sub Workbook_Open()
Dim n       As Integer
Dim x       As Integer
Dim Letzter As Integer
'ComboBox 'cmbJahr' mit den Jahren füllen
With Worksheets("Tabelle1").cmbJahr
  For n = 1990 To 2010
    .AddItem n
    If n = Year(Date) Then x = n - 1990 + 1
  Next n
  .ListIndex = x
End With
'ComboBox 'cmbMonat' mit den Monatsnamen füllen
With Worksheets("Tabelle1").cmbMonat
  For n = 1 To 12
    .AddItem Format(DateSerial(2004, n, 1), "mmmm")
    If n = Month(Date) Then x = n - 1
  Next n
  .ListIndex = x
End With
'ComboBox 'cmbTag' mit den Tagen des Monats füllen
'Letzten Tag des aktuellen Monats bestimmen
  Letzter = DateSerial(Year(Date), Month(Date) + 1, 1) - _
            DateSerial(Year(Date), Month(Date), 1)
With Worksheets("Tabelle1").cmbTag
  For n = 1 To Letzter
    .AddItem n
    If n = Day(Date) Then x = n - 1
  Next n
  .ListIndex = x
End With
End Sub
'---------------------------------------------------------
'In die 'Tabelle1'
Private Sub cmbMonat_Change()
Dim Monat       As Integer
Dim Tag         As Integer
  
  Tag = Worksheets("Tabelle1").cmbTag.ListIndex
  
  Monat = Worksheets("Tabelle1").cmbMonat.ListIndex + 1
'ComboBox 'cmbTag' mit den Tagen des Monats füllen
'Letzten Tag des aktuellen Monats bestimmen
  Letzter = DateSerial(Year(Date), Monat + 1, 1) - _
            DateSerial(Year(Date), Monat, 1)
  With Worksheets("Tabelle1").cmbTag
    .Clear
    For n = 1 To Letzter
      .AddItem n
    Next n
  
'wenn möglich, den eingestellten Tag belassen
  On Error GoTo errHandle
    .ListIndex = Tag
  
  Exit Sub
  
errHandle:
    .ListIndex = -1
  
  End With
End Sub


Mit freundlichen Grüßen, GraFri
Anzeige
Datum als Dropdown im Tabellenblatt _ Verbesserung
07.05.2004 16:52:30
GraFri
Hallo


'In 'DieseArbeitsmappe'
Private Sub Workbook_Open()
Dim n       As Integer
Dim x       As Integer
Dim Letzter As Integer
'ComboBox 'cmbJahr' mit den Jahren füllen
With Worksheets("Tabelle1").cmbJahr
  .Clear
  For n = 1990 To 2010
    .AddItem n
    If n = Year(Date) Then x = n - 1990 + 1
  Next n
  .ListIndex = x
End With
'ComboBox 'cmbMonat' mit den Monatsnamen füllen
With Worksheets("Tabelle1").cmbMonat
  .Clear
  For n = 1 To 12
    .AddItem Format(DateSerial(2004, n, 1), "mmmm")
    If n = Month(Date) Then x = n - 1
  Next n
  .ListIndex = x
End With
'ComboBox 'cmbTag' mit den Tagen des Monats füllen
'Letzten Tag des aktuellen Monats bestimmen
  Letzter = DateSerial(Year(Date), Month(Date) + 1, 1) - _
            DateSerial(Year(Date), Month(Date), 1)
With Worksheets("Tabelle1").cmbTag
  .Clear
  For n = 1 To Letzter
    .AddItem n
    If n = Day(Date) Then x = n - 1
  Next n
  .ListIndex = x
End With
End Sub
'---------------------------------------------------------
'In die 'Tabelle1'
Private Sub cmbMonat_Change()
Dim Monat       As Integer
Dim Tag         As Integer
  
  Tag = Worksheets("Tabelle1").cmbTag.ListIndex
  
  Monat = Worksheets("Tabelle1").cmbMonat.ListIndex + 1
'ComboBox 'cmbTag' mit den Tagen des Monats füllen
'Letzten Tag des aktuellen Monats bestimmen
  Letzter = DateSerial(Year(Date), Monat + 1, 1) - _
            DateSerial(Year(Date), Monat, 1)
  With Worksheets("Tabelle1").cmbTag
    .Clear
    For n = 1 To Letzter
      .AddItem n
    Next n
  
'wenn möglich, den eingestellten Tag belassen
  On Error GoTo errHandle
    .ListIndex = Tag
  
  Exit Sub
  
errHandle:
    .ListIndex = -1
  
  End With
End Sub


Mit freundlichen Grüßen, GraFri
Anzeige
Mit Schaltjahr für Februar
OliveR
Nur im zweiten Teil.
'In die 'Tabelle1'

Private Sub cmbMonat_Change()
Dim Monat       As Integer
Dim Tag         As Integer
Dim myJahr      AS Integer
Tag = Worksheets("Tabelle1").cmbTag.ListIndex
Monat = Worksheets("Tabelle1").cmbMonat.ListIndex + 1
'ComboBox 'cmbTag' mit den Tagen des Monats füllen
'Letzten Tag des aktuellen Monats bestimmen
Letzter = DateSerial(myJahr, Monat + 1, 1) - _
DateSerial(myJahr, Monat, 1)
With Worksheets("Tabelle1").cmbTag
.Clear
For n = 1 To Letzter
.AddItem n
Next n
'wenn möglich, den eingestellten Tag belassen
On Error GoTo errHandle
.ListIndex = Tag
Exit Sub
errHandle:
.ListIndex = -1
End With
End Sub

Anzeige
AW: Mit Schaltjahr für Februar
08.05.2004 14:49:40
Matthias
cool,
danke euch!

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige