Hallo Excelaner,
lasse mir durch BVA eine Tabelle anlegen, den Inhalt drucken und dann die neue Tabelle wieder löschen. Wollte der neuen Tabelle vor dem Drucken einen Namen geben wie "Kundenverwaltung" oder Ä. Durch die Zuweisung durch ActiveWorkbook.Name bekomme ich den Fehler: Zuweisung an schreibgeschützte Eigenschaft nicht möglich.
Druckbefehl!
Dim i As Integer
Dim Datum
Datum = Date
Application.ScreenUpdating = True
Workbooks.Add 1
ActiveWorkbook.Name = "Sperrliste "
For i = 0 To ListBox1.ListCount - 1
Cells(i + 3, "A") = ListBox1.List(i)
Next
ActiveSheet.PrintOut
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = False
Wer weiss Rat?