Anzeige
Archiv - Navigation
1184to1188
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
Tage in Textbox schreiben
urmila
Hallo zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich habe in einem UserForm 31 Textboxen, benannt sind diese so: day1 bis day31.
Nun möchte ich bei Aufruf des Userforms die Textboxen automatisch gefüllt haben, also z.B. aktueller Monat November hat 30 Tage, dann "01" - "30" ( in den Textboxen tag1 - tag31), es soll jedoch automatisch angepasst werden. Die dazugehörige Textboxen wtag1 - wtag31, indem sollen die Tage eingefügt werden, Mo-So (TT).
Was aber zu beachten ist: ich habe einen weiteren ComboBox, Name "comboMonat"
Hierdrin soll folgendes aufgelistet werden: Jahr und Monat, aber nur von einem ganzen aktuellen Jahr, Format: MM.JJJJ, also 01.2010-12.2010.
Anhand der Auswahl sollen die o.a. Textboxen angepasst werden an den Tagen...
Ich hoffe es war verständlich und ihr könnt mir weiterhelfen.
Vielen Dank und LG
Urmila

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tage in Textbox schreiben
01.11.2010 12:06:05
Nepumuk
Hallo,
versuch es mal so:
Private Sub comboMonat_Change()
    Dim intDay As Integer
    For intDay = 1 To 31
        If Month(DateSerial(Year(Date), comboMonat.ListIndex + 1, intDay)) = _
            comboMonat.ListIndex + 1 Then
            Controls("tag" & CStr(intDay)).Text = Format(intDay, "00")
            Controls("wtag" & CStr(intDay)).Text = _
                Format(DateSerial(Year(Date), comboMonat.ListIndex + 1, intDay), "ddd")
        Else
            Controls("tag" & CStr(intDay)).Text = vbNullString
            Controls("wtag" & CStr(intDay)).Text = vbNullString
        End If
    Next
End Sub

Private Sub UserForm_Activate()
    Dim intMonth As Integer
    For intMonth = 1 To 12
        comboMonat.AddItem Format(DateSerial(Year(Date), intMonth, 1), "mm.yyyy")
    Next
    comboMonat.ListIndex = Month(Date) - 1
End Sub

Gruß
Nepumuk
Anzeige
ausprobiert...funkts...lieben Dank Nepumuk :)
01.11.2010 12:39:12
urmila
Urmila

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige