Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Listbox formatieren

Forumthread: Listbox formatieren

Listbox formatieren
16.07.2004 18:11:35
SteffenS
Hallo und guten Tag,
ich habe folgenden Code, der einen Fehler verursacht:
'Arrays setzen und Box füllen
Dim Month_Ar As Variant
Month_Ar = Workbooks("05BLVallg.XLS").Worksheets("strg_werte").Range("C6:C17")
Dim mn As Control
For Each mn In Me.Controls
If mn.Name Like "monat_*" Then
With mn
.List = Month_Ar
.Visible = False
'.Value = Format(Date, "mmmm") --&gt Hier kommt der Fehler
End With
End If
Next
In den Quellzellen steht ein Datum z.B.: 01.01.2004!
Ich möchte jetzt das in der Listbox, dass Datum im Format von "mmmm"
eingetragen wird, zur Zeit wird es mit 01.01.2004 eingetragen!
Was muss ich tun damit dies funktioniert?
Danke schonmal im voraus.
MFG
Steffen Schmerler
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox formatieren
Ramses
Hallo
So geht das nicht. Du weist der Listbox das Array als Liste zu. Damit kannst du nur noch Werte auswählen, die in der Listbox enthalten sind. Ein Löschen oder Ändern in der Listbox ist nicht mehr möglich.
Value in der Listbox kann keinen anderen Wert enthalten oder zurückgeben als in der Listbox vorhanden sind.
Wenn du nur die Monatsnamen in der Listbox haben willst, musst du die Listbox über eine Schleife und mit der Methode AddItem füllen
z.B.
For i = 6 To 17
Me.ListBox1.AddItem (Format(Cells(i, 3), "mmmm"))
Next i
Gruss Rainer
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige