ListBox mit nicht zusammenhängenden Bereich füllen

Question

Hallo Excelfreunde,
wie kann ich eine ListBox in einer UserForm mit der Zelle D7 und den Bereich D9:173 füllen.


Gruß
fedjo

Answer 1

Hallo fedjo,
in etwa so:

Dim lngZeile as Long
With Listbox1
.AddItem = Worksheets("Blattname").Cells(7,4).Value
For lngZeile 9 To 173
.Additem = Worksheets("Blattname").Cells(lngZeile,4).Value
next lngZeile
End With

Gruss Rolf

Answer 2

Hallo Rolf,
danke für die schnelle Antwort.
Ich habe den Code in : Private Sub UserForm_Activate () eingefügt.
Es werden aber Fehler angzeigt
.AddItem = (Function oder Variable erwartet)
For lngZeile 9 To 173 (wird rot hinterlegt)

Ich hoffe das du mir noch weiterhelfen kannst.

Gruß
fedjo

Answer 3

Hallo Fedjo,

hat Deine Listbox den Namen Listbox1 ?
For lngZeile= 9 To 173

Gruß Hajo

Answer 4

Hallo Hajo,
es ist ListBox4.

Gruß
fedjo

Answer 5

Halo Fedjo,

dan konntest Du das Problem ja selber lösen.
Bei With muss der entsprechende Name hin.

Gruß Hajo

Answer 6

Hallo Hajo,
der Fehler :.AddItem = (Function oder Variable erwartet) tritt immer noch auf.

Gruß
fedjo

Answer 7

Hallo Fedjo,

sollte das der gleiche Fehler wie vorher sein. Hat Deine Tabelle nicht den Namen "Blattname" ?

Gruß Hajo

Answer 8

Hallo Hajo,
der Fehler bleibt bestehen.

Gruß
fedjo

Dim lngZeile As Long
With ListBox4
.AddItem = Worksheets("Allgemein").Cells(7, 4).Value
For lngZeile = 9 To 173
.AddItem = Worksheets("Allgemein").Cells(lngZeile, 4).Value
Next lngZeile
End With

Answer 9

Hallo Fedjo,

die kleinen Zeichen.
Option Explicit

Private Sub UserForm_Activate()
Dim lngZeile As Long
With ListBox4
.AddItem Worksheets("Allgemein").Cells(7, 4).Value
For lngZeile = 9 To 173
.AddItem Worksheets("Allgemein").Cells(lngZeile, 4).Value
Next lngZeile
End With
End Sub

Gruß Hajo

Answer 10

Hallo Hajo,
ich habe eine Weile gebraucht um das kleine Zeichen zu finden.
Jetzt funktioniert alles.

Herzlichen Dank für deine Hilfe und Geduld.

Gruß
fedjo