Schleife will nicht

Private Sub commandbutton1_click () dim a as range set a = range("a:a").Find("erster") dim anfang, end as variant dim zeiger as long anfang = a.select ende = a.end(x1Down).select For zeiger = anfang to ende Listbox1.additem cells (Zeiger, 1). value next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub commandbutton1_click() Dim a As Range ' hier stand End nicht Ende, End ist ein VBA Befehl ' Dim anfang, ende As Variant ' Dim zeiger As Long ' falls erster nich gefunden kommt Fehler Set a = Range("a:a").Find("erster") ' anfang = a.Select ' ende = a.End(x1Down).Select Listbox1.ListFillRange = anfang.Address & ":" & a.End(x1Down).Address End Sub

Private Sub CommandButton1_Click() Dim a As Range Set a = Range("a:a").Find("erster") With ListBox1 .ColumnCount = 3 .ColumnHeads = False .ListStyle = fmListStylePlain .ListFillRange = a.Address & ":" & a.End(x1Down).Offset(0, 2).Address End With End Sub

Hallo Hajo,
danke für die schnelle Antwort, leider bleibt das Problem.
Wenn ich diesen Code auf der Userform anbringe, schaltet sich der Debugger ein und unterlegt ListFillRange blau. Es kommt: "Methode oder Datenobjekt nicht gefunden"
Er bietet mir beim Codeschreiben auch gar kein ListFillRange an.
Deswegen dachte ich eben das es auf der Userform nicht geht, sondern nur wie in deiner Beispieldatei auf dem Formular. In den Büchern wird die Methode auch nur im Formular beschrieben obwohl nicht explizit dabeisteht das es in der Userform nicht funktioniert.
Das Problem bleibt also leider bestehen. Wie bekomme ich drei Spalten in die Listbox einer Userform
Hab die Datei als Userform (also so wie sie bei mir nicht funktioniert) noch mal hochgeladen
https://www.herber.de/bbs/user/25403.xls
Gruß Basti

Hallo Bati,
ich habe jetzt keine Zeit. Benutze .RowSource aber einschl. Tabelle.
Oder


Private Sub UserForm_Activate()
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Range("A1").CurrentRegion
' Die oberste Zeile enthaelt die Feldnamen.
' Diese brauchen wir nur dort um die Columnheader darzustellen,
' aber nicht fuer die Listboxeintraege.
' Also den Datenbereich um die Erste Zeile reduzieren.
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count)
' Spaltenanzahl des Datenbereichs ermitteln.
intColums = rngSource.Columns.Count
With Me.ListBox1
.ListStyle = fmListStyleOption      ' Auswahlfeld zu Beginn der Zeile
' von Peter Haserodt
' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox
'.MultiSelect = fmMultiSelectSingle
' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo
.MultiSelect = fmMultiSelectMulti
'.MultiSelect = fmMultiSelectExtended
' gibt eigentlich nur bei Liststyle Plain einen Sinn, funzt aber auch anders.
' Dies bewirkt, dass mit Shift und Strg Tasten  eine Mehrfachauswahl getroffen
' werden kann
.ColumnCount = intColums
.ColumnHeads = True
.RowSource = rngSource.Address
End With
Set rngSource = Nothing
ListBox1.Tag = ""
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

Private Sub CommandButton1_Click() Dim zeiger As Range Set zeiger = Range("a:a").Find("erster") Dim anfang, ende As Variant anfang = zeiger.Row ende = zeiger.End(xlDown).Row Range(Cells(anfang, 1), Cells(ende, 3)).Select With ListBox1 .ColumnCount = 3 .RowSource = Selection.Address End With End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife will nicht

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread