Beim Drucken aus Listbox verschieben sich die Werte
10.01.2020 17:53:49
Andre
ich benötige ein wenig Hilfe:
Ich lese Daten in 6 Spalten einer Listbox ein. Es kann sein, dass die beiden letzten Spalten teilweise in den Zeilen nicht gefüllt sind.
Wenn ich das ganz nun ausdruck, werden alle Werte in die erste frei Zeile geschoben.
D.h. wenn z.B. in den ersten beiden Zeilen die letzten beiden Spalten leer sind und in der dritten Zeile der Listbox alle Spalten gefüllt sind, schiebt er die Einträge der dritten Zeile beim Drucken in die erste Zeile - und das soll nicht.
Mein derzeitiger Code ist:
Private Sub CommandButton_Druck_Click()
Dim i As Integer
Dim ErsteFreieZeile As Long
With Tabelle7
.Range("C2").Value = UserForm_WE.TextBox_Datum.Value
.Range("C3").Value = UserForm_WE.TextBox_Nr.Value
.Range("B5:I44").ClearContents
End With
With ListBox1
For i = 0 To UserForm_WE.ListBox1.ListCount - 1
If UserForm_WE.ListBox1.ListCount > 0 Then
Sheets("WE-Beleg").Cells(Rows.Count, 2).End(xlUp).Offset(1) = .List(i, 0)
Sheets("WE-Beleg").Cells(Rows.Count, 3).End(xlUp).Offset(1) = .List(i, 1)
Sheets("WE-Beleg").Cells(Rows.Count, 4).End(xlUp).Offset(1) = .List(i, 6)
Sheets("WE-Beleg").Cells(Rows.Count, 5).End(xlUp).Offset(1) = .List(i, 2)
Sheets("WE-Beleg").Cells(Rows.Count, 6).End(xlUp).Offset(1) = .List(i, 5)
End If
Next
End With
Application.ScreenUpdating = False
With Sheets("WE-Beleg")
.Visible = True
.Range("A1:I45").PrintOut
.Visible = False
End With
Application.ScreenUpdating = True
End Sub
Gruß
Andre