Microsoft Excel

Herbers Excel/VBA-Archiv

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

listenfeld mit datenbank füllen

    Betrifft: listenfeld mit datenbank füllen von: rahel
    Geschrieben am: 28.08.2003 11:30:54

    hallo zusammen

    ich habe ein listenfeld, in welchem man mehrere einträge anwählen kann. ich sollte dieses listenfeld nun mit daten aus einer spalte eines bestimmten tabellenblattes füllen. jede zelle ergibt ein eintrag.
    ich wäre dankbar für ein paar tips.

    Gruss, rahel

      


    Betrifft: AW: listenfeld mit datenbank füllen von: Andy B.
    Geschrieben am: 28.08.2003 11:41:30

    Hallo Rahel,

    hier mein Vorschlag zur Lösung:

    Dim c As Range
    For Each c In Sheets(3).Range("A2:A100")
    ListBox8.AddItem c
    Next c

    Gruß

    Andy


      


    Betrifft: AW: listenfeld mit datenbank füllen von: rahel
    Geschrieben am: 28.08.2003 11:49:32

    hi

    danke für die variante, hab selbst auch eine lösung gefunden

    Private Sub UserForm_Initialize()
    
        Dim i As Integer
        
        Sheets("Domains").Activate
        
        i = ActiveSheet.UsedRange.Rows.Count
        With UserForm1.ListBox1
            .RowSource = "Domains!A1:A" & i
        End With
    
    End Sub
    



     

    Beiträge aus den Excel-Beispielen zum Thema " listenfeld mit datenbank füllen"