Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Wie müsste die Schleife aussehen?

Betrifft: Wie müsste die Schleife aussehen? von: Captain Jack Sparrow
Geschrieben am: 12.08.2008 09:59:59

Hi,

habe folgenden Code:


Private Sub lst_Gruppe_Detail_AfterUpdate()
With Me
    .lst_Monate.AddItem "Januar"
    .lst_Monate.AddItem "Februar"
    .lst_Monate.AddItem "März"
    .lst_Monate.AddItem "April"
    .lst_Monate.AddItem "Mai"
    .lst_Monate.AddItem "Juni"
    .lst_Monate.AddItem "Juli"
    .lst_Monate.AddItem "August"
    .lst_Monate.AddItem "September"
    .lst_Monate.AddItem "Oktober"
    .lst_Monate.AddItem "November"
    .lst_Monate.AddItem "Dezember"
End With
End Sub



Hatte vorher versucht, diese ganzen AddItems innerhalb einer Schleife zu verpacken, habe aber nur Unsinn herausbekommen. WIe müsste die Schleife lauten?
Hier mein Versuch:


For strMonat = 1 To 12
  Me.lst_Monate.Additem(Format(strMonat, "MMMM"))
Next strMonat



Danke
Jack

  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Hajo_Zi
Geschrieben am: 12.08.2008 10:10:34

Hallo Jack

nicht strMonat sondern CDate("1." & strMonat & ".2008")

GrußformelHomepage


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Captain Jack Sparrow
Geschrieben am: 12.08.2008 10:27:39

Hi Hajo,



hm...danke, aber ich wollte ja die einzelnen Monate in ausgeschriebener Art und Weise: Januar, Februar, März etc... und nicht 01.01.2008 usw.



Was muss ich nun anders machen?



Jack


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Yal
Geschrieben am: 12.08.2008 10:32:39

Hallo,

so hat's Hajo gemeint mit "nicht strMonat sondern..."

For strMonat = 1 To 12
Me.lst_Monate.Additem(Format(CDate("1." & strMonat & ".2008"), "MMMM"))
Next strMonat

Viel Erfolg
Yal


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Captain Jack Sparrow
Geschrieben am: 12.08.2008 10:35:48

Hi Yal,

aso...jetzt wird ein Schuh daraus. Jetzt habe auch ICH es verstanden .-)
Danke Dir

Jack


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: dieter
Geschrieben am: 12.08.2008 10:10:57

Hallo
ich weiß zwar nicht genau was du meinst.
aber versuch mal dies
With Me.ListBox1
.Clear 'Lösch alle einträge
.AddItem "Januar"
.AddItem "Februar"
End With

Gruß dieter


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Captain Jack Sparrow
Geschrieben am: 12.08.2008 10:38:52

Hi,

danke, aber so meinte ich das noch nicht. So habe ich es ja. Hajo und Yal hatten dir richtige Intuition für mich...

cu
Jack


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: c0bRa
Geschrieben am: 12.08.2008 10:30:53

Hio...

also Hilfestellung:

VBA-Code aus Microsoft Excel Objekt Tabelle1:
Option Explicit

Sub test()
    Dim i As Integer
    For i = 1 To 12 Step 1
        Debug.Print Format("1." & i & ".2008", "MMMM")
    Next
End Sub
Rückmeldung nicht vergessen...
c0bRa
Ein Fachmann ist jemand, der immer mehr über immer weniger weiß, bis er zuletzt alles über nichts weiß.


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Captain Jack Sparrow
Geschrieben am: 12.08.2008 10:37:19

Hi c0bra,

gute Idee...danke Dir

jack


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Roland Hochhäuser
Geschrieben am: 12.08.2008 10:44:34

Hallo Jack,

wenn es wirklich nur um die Monatsbezeichnungen geht:

Private Sub UserForm_Initialize()
Dim i As Integer
With ListBox1
    For i = 1 To 12
        ListBox1.AddItem Format(MonthName(i))
    Next
End With
End Sub



Gruß
Roland Hochhäuser


  

Betrifft: AW: Wie müsste die Schleife aussehen? von: Roland Hochhäuser
Geschrieben am: 12.08.2008 10:47:24

Sorry, natürlich ohne Format:

Private Sub UserForm_Initialize()
Dim i As Integer
With ListBox1
    For i = 1 To 12
        ListBox1.AddItem MonthName(i)
    Next
End With
End Sub



Gruß
Roland Hochhäuser


 

Beiträge aus den Excel-Beispielen zum Thema "Wie müsste die Schleife aussehen?"

In einer Schleife auf Elemente einer UserForm zugreifen
CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen
UserForm-Optionsfelder über eine Schleife zurücksetzen
Strings, die wie Zahlen aussehen, in Zahlen umwandeln