Wenn ListBox Spalte ""
12.02.2019 10:34:34
Tim
ich habe eine Listbox der ich via Texbox in Spalte 4 neue Werte zuordne. Sind zu jedem Wert in der Listbox, die entsprechenden Werte aus der Textbox zugeordnet, dann soll der CommandButton (im Moment eine MSGBox zum testen), der Die Daten in die Tabelle überträgt aktiv gehen.
Dazu habe ich Dank netter Unterstützung aus eurem Forum folgenden Code angepasst, jedoch funktioniert er nicht so wie er soll.
Die Listbox selbst wird via Additem gefüllt und besitzt bei UserForm_Initialize 3 gefüllte Spalten. die Neuen Werte kommen in Spalte 4 und müssen für alle Werte die bei UserForm_Initialize geladen werden, vollständig sein. Fehlt zu einem Eintrag der dazugehörige Wert in Spalte 4 dann soll der Button inaktiv sein.
Private Sub drucken_Click()
Dim i As Long, j As Long
With UserForm3.ListBox1
For i = 0 To .ListCount - 1
For j = 4 To .ColumnCount - 1
If .List(i, j) = "" Then
MsgBox "leer"
Else
MsgBox "gefüllt"
End If
Next j
Next i
End With
End Sub