Mehrere Eintragungen in Listbox Zeigen und Datumserweiterung

[Aritmatos]

Hallo zusammmen,

ich hoffe, das mir hier jemand Helfen kann.

Ich möchte in der beigefügten Userform gerne so verändern, dass mir die Spalte B bis F in der Listbox angezeigt wird. (Ich weiß dass die Box dann größer werden wird ).

Weiterhin möchte ich die Datumseingabe so verändern, dass es mir möglich ist, ein Anfangs und ein Enddatum einzugeben und einen entsprechenden Text in den Eingabefeldern. Natürlich muss daher hier noch ein zweites Datumsfeld eingepflegt werden. Da ich aber das gesamte Desing der Userform nochmal anpassen werde, hoffe ich, dass es so erstmal reicht um zu Zeigen was ich meine.


Als Beispiel:

vom 01.08.2018 bis 20.08.2018

und mir dann in der Tabelle an bestimmten Wochentagen also

alle Mittwochs und Samstags

wird das selbe Eingetragen, was in den Textfeldern steht, außer dass sich immer das entsprechende Datum habe.

also Beispiel für obiegen Bereich

01.08.2018 Mittwoch   Text
04.08.2018 Samstag    Text
08.08.2018 Mittwoch   Text
11.08.2018 Samstag    Text
15.08.2018 Mittwoch   Text
18.08.2018 Samstag    Text


Alle anderen Funktionen sollen so erhalten bleiben wie sie aktuell sind.

Ich hoffe, dass mir einer der Experten hier helfen kann. währe echt super.

Gruß und Dank

Aritmatos

[Aritmatos]

Hey,

kann mir hier niemand helfen?

Gruß

Aritmatos

[schauan]

Hallöchen,

Step by Step - erst mal zum Daten eintragen - im Prinzip könnte man das so machen, hier mal nur für Spalte A mit dem Datum:

Code:

…
'eingetragenes Startdatum
dstart = CDate(TextBox1.Text)
'eingetragenes Enddatum
dend = CDate(TextBox2.Text)
'Startzeile
irow = 2
'Schleife ueber alle Daten
For icnt = dstart To dend
  'Wenn Datum Mittwoch oder Samstag ist, dann
  If WorksheetFunction.Weekday(icnt, vbMonday) = 3 Or WorksheetFunction.Weekday(icnt, vbMonday) = 6 Then
    'Datum in A eintragen
    Cells(irow, 1) = icnt
    'Startzeile hochzaehlen
    irow = irow + 1
  'Ende Wenn Datum Mittwoch oder Samstag ist, dann
  End If
'Ende Schleife ueber alle Daten
Next
...

[Aritmatos]

Hey schauan,

Einzeln läut es super.

Aber sobald ich es in die Liste einfüge, zeigt er mir den Fehler an, das   

dstart = CDate(TextBox1.Text)



Fehler beim Kompilieren:

Variable nicht definiert

Gruß

Aritmatos

[Steffl]

Hallo,

hilft dir das weiter? Kleiner Tipp: Der Variablentyp wäre Date.