Microsoft Excel

Herbers Excel/VBA-Archiv

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

Userform.Listbox nach Kriterium füllen

Betrifft: Userform.Listbox nach Kriterium füllen von: sigi
Geschrieben am: 12.08.2004 08:32:35

Hallo Spezialisten,

Kann man Daten in eine UserForm. Listbox bedingt nach den Kriterium in Spalte A einlesen lassen?
Tabellenblatt Name = Daten
In Spalte A sind Nummern von 0001 - 5000, 5001- 10000; 10001- 15000
eingetragen.
Nun sollen die Daten von 0001 - 5000 in die UserForm1.Listbox1. eingelesen werden
Die Daten von 5001 - 10000 sollen in die Userform2.Listbox1. eingelesen werden usw.
Danke für jede Hilfe!

Gruß
Sigi

  


Betrifft: AW: Userform.Listbox nach Kriterium füllen von: Nike
Geschrieben am: 12.08.2004 08:57:17

Hi,

erst mal ne Schleife und dann nen select case, oder?

Private Sub UserForm_Initialize()
Dim lngZeil As Long
lngZeil = 1
Do
Select Case Cells(lngZeil, 1)
    Case 0 To 5000
        UserForm1.ListBox1.AddItem Cells(lngZeil, 1)
    Case 5001 To 10000
        UserForm1.ListBox2.AddItem Cells(lngZeil, 1)
    Case 10001 To 15000
        UserForm1.ListBox3.AddItem Cells(lngZeil, 1)
    Case Else
        'wenn der Wert nicht passt
End Select
lngZeil = lngZeil + 1
Loop Until Cells(lngZeil, 1) = ""
End Sub


Bye

Nike


  


Betrifft: Danke Nike o.T. von: sigi
Geschrieben am: 12.08.2004 09:09:59

'


 

Beiträge aus den Excel-Beispielen zum Thema "Userform.Listbox nach Kriterium füllen"