Office: Listbox in Userform mit Werten aus Tabelle

Hallo Excel-Spezialisten,

ich habe eine Listbox2 in einer Userform, die ich füllen will.

Werte aus Tabelle "Auftragsübersicht"

Werte aus Spalte B ab Zeile 3 bis letzter Eintrag

Nur mit dem Wert füllen, wenn in der Tabelle in der Spalte P der Wert "" (also Leer) ist.

Wie kann ich das machen?

Gruß und vorab Dank

Michael

:)

 

Hallo Michael,

per Schleife und AddItem.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei wäre nicht schlecht.
Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe…, Beispiel… wird eine vorhandene überschrieben.
Schaue hier, Dateiname im Beitrag
das ist nun das Word -Forum, das gilt hier aber auch.
Mal ein Zitat von Hasso:
„Stell dir mal vor, deine Oma schreibt dir zum Geburtstag und sagt, die Geschenke findest du im Päckchen. Darin sind dann aber nur Bilder von den Geschenken - dann wärst du genauso begeistert wie wir jetzt.“

 

Private Sub UserForm_Initialize()
Dim i, a, aw
a = 0
For i = 3 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ListBox1.AddItem
aw = Worksheets("Auftragsübersicht").Cells(i, 16).Value
If aw = "" Then
ListBox1.List(a, 0) = Worksheets("Auftragsübersicht").Cells(i, 2).Value
a = a + 1
End If

Next i
ListBox2.RowSource = "Einstellungen!h8:h20"
End Sub

 

schreibe
If Cells(i, 16)="" then
Dir ist bekannt das Deine Aktion ja Excel Sitzung nur einmal ausgeführt wird?

 

Hallo Mik_Don,

das sollte ganz einfach so funktionieren:

HTML:

Option Explicit

Private Sub UserForm_Initialize()

Dim lZeile  As Long

For lZeile = 3 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If Trim$(Range("P" & lZeile).Value) = "" Then
ListBox1.AddItem Range("B" & lZeile).Value
End If
Next lZeile

End Sub

Gruß Peter

 

Hallo Hajo,

darf ich fragen warum es nur einmal ausgeführt wird?


Gruß Michael

 

das hat MS so festgelegt. Benutze Activate.