Nur ausgewählte Einträge einer Listbox drucken
18.11.2004 19:02:03
Papaloma
Habe über eine UserForm eine Textbox gefüllt. Jetzt will ich über den geposteten Befehl nur den markierten Bereichausdrucken, sprich also nur die ausgewälten Einträge in die Temp-Tabelle kopieren. Wenn der Usewr nichts auswählt sollen alle einträge gedruckt werden.
Private Sub cmddrucken_Click()
Dim i As Integer
Application.ScreenUpdating = False
Workbooks.Add 1
ActiveSheet.Name = "Sperrliste"
For i = 0 To ListBox1.ListCount - 1
Cells(i + 3, "A") = ListBox1.List(i)
Next
'ActiveSheet.PrintPreview oder
ActiveSheet.PrintOut
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Vielen Dank