Dosent laden die leeren Zellen aus Listbox VBA Excel

Question

Ich habe ein CommandButton, um die Ergebnisse aus Listbox (lsbWarenausgang) auf das Blatt (Tabelle5) zu laden, aber die Schaltfläche lädt die Ergebnisse und alle leeren Ergebnisse in Excel-Tabelle.

Private Sub CommandButton3_Click() 
Dim lRw As Long 
    Dim iX As Integer, iY As Integer 
    For iX = 0 To lsbWarenausgang.ListCount - 1 
     If Me.lsbWarenausgang.Selected(iX) = True Then 
      With Tabelle5 
       lRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 
       For iY = 0 To Me.lsbWarenausgang.ColumnCount - 1 
        .Cells(lRw, iY + 1).Value = Me.lsbWarenausgang.List(iX, iY) 
      Next iY 
     End With 

    End If 
Next iX 
End Sub 

Answer 1

Sie mögen dies bedeuten (Ungeprüfte)? Ich gehe davon aus, dass die erste Spalte immer gefüllt sein wird, wenn sich Daten in dieser Listbox-Zeile befinden.

Private Sub CommandButton3_Click() 
    Dim lRw As Long 
    Dim iX As Integer, iY As Integer 
    Dim col As Long 

    For iX = 0 To lsbWarenausgang.ListCount - 1 
     col = 1 
     If Me.lsbWarenausgang.Selected(iX) = True Then 
      With Tabelle5 
       If Len(Trim(Me.lsbWarenausgang.List(iX, 0))) <> 0 Then 
        lRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 

        For iY = 0 To Me.lsbWarenausgang.ColumnCount - 1 
         If Len(Trim(Me.lsbWarenausgang.List(iX, iY))) <> 0 Then 
          .Cells(lRw, col).Value = Me.lsbWarenausgang.List(iX, iY) 
          col = col + 1 
         End If 
        Next iY 
       End If 
      End With 
     End If 
    Next iX 
End Sub