Office: (Office 365) Listbox füllen wenn zelle daneben leer

Moin Moin zusammen,

Ich möchte eine Listbox mit der Spalte A befüllen aber nur mit den Werten B leer ist.

z.B

A2 = 123 B2 = Test
A3 = 321 B3 =

Nun sollte in der ListBox nur der Wert 321 stehen.

Kann mir da mal jemand weiterhelfen bitte.

Gruß Michael

 

Hallo,

wo soll denn deine ListBox stehen, auf dem Tabellenblatt oder in einem UserForm? Wenn es auf dem Tabellenblatt sein sollte, ist es ein Formularsteuerelement, oder ein ActiveX-Steuerelement?

 

Hallo Klaus-Dieter,

Ja total vergessen vor lauter verzweiflung.

In Einer UserForm

Gruß Michael

 

Hallo,

das würde mit diesem Makro gehen:

Code:

Option Explicit

Private Sub UserForm_Initialize()
    Dim lngZeile As Long
    For lngZeile = 2 To Tabelle1.Range("A2").End(xlDown).Row
        If Len(Tabelle1.Cells(lngZeile, 2)) < 1 Then
            ListBox1.AddItem Tabelle1.Cells(lngZeile, 1)
        End If
    Next lngZeile
End Sub

 

Hallo,

Ich danke Dir klappt bestens. Habe nun auch den fehler bei mir gefunden warum es nicht ging.

Gruß Michael