Office: (Office 2010) Listbox füllen mit Werten aus Tabelle

Hallo,

vielleicht kann mir ja jemand weiterhelfen.
Ich bin VBA Anfänger und würde gerne meine ListBox mit Werten füllen.

Im Moment habe ich meine ListBox in dem Arbeitsblatt "Tabelle1" eingebettet und die Tabelle mit den Werten im Arbeitsblatt "Tabelle2".

Nun würde ich gerne die ListBox mit Werten füllen aus dem Arbeitsblatt "Tabelle2".
Es soll überprüft werden ob Werte in der Zeile A4,B4,C4,D4..... bis Z4 stehen. Überall wo Werte stehen sollen diese in die Listbox übertragen werden und ständig soll überprüft werden ob Werte dazu kommen, die dann auch in die Listbox übertragen werden.



Im Moment habe ich ne Übergangslösung die nicht gut funktioniert:

Private Sub ListBox1_GotFocus()

Dim Spalte As Long

ListBox1.Clear

Spalte = 3

Do While Trim(CStr(Tabelle2.Cells(6, Spalte).Value)) <> ""

ListBox1.AddItem Trim(CStr(Tabelle2.Cells(4, Spalte).Value))

Spalte = Spalte + 1

Loop

End Sub



sieht auch unschön aus der die leeren Zeilen mit übernommen werden.

Ich würde mich über Hilfe freuen und bedanke mich im Voraus.

Mfg

 

Hallo,

in verbundenen Zellbereichen enthalten nur die linken oberen Zellen den Wert des Zellverbundes, alle anderen Zellen sind leer.

Code:

Private Sub ListBox1_GotFocus()
  Dim Spalte As Long
  Dim Anlage As String
 
  ListBox1.Clear
 
  For Spalte = 1 To 26
    Anlage = Tabelle2.Cells(4, Spalte).Value
    If Len(Anlage) Then
       ListBox1.AddItem Trim(Anlage)
    End If
  Next Spalte
End Sub