Ich habe im Netz paar Cods gefunden die mir auf zwei Tabellenblättern die Leerzeilen ausblenden nur hab ich eine UF über die ich ausgewählte Blätter Drucke und auch Blatt 4 und 5 die ich aber ohne Leerzeilen gerne gedruckt haben möchte.
Beim zusammenfügen hätte ich mir fast meine Mappe geschrotet aber war nur die Kopie von. Anbei mein Code der UF
Private Sub CB_Abbrechen_Click()
Me.Hide
Unload Me
End Sub
Private Sub CB_Drucken_Click()
Call Drucken(Vorschau:=False)
Unload Me
End Sub
Private Sub CB_Seitenvorschau_Click()
Call Drucken(Vorschau:=True)
Unload Me
End Sub
Sub Drucken(Optional Vorschau As Boolean = False)
Dim Blaetter(), j%, i%, wks
j% = 0
Set wks = ActiveSheet
For i = 0 To Me.ListBox_Tabellen.ListCount - 1
If Me.ListBox_Tabellen.Selected(i) = True Then
j = j + 1
ReDim Preserve Blaetter(1 To j)
Blaetter(j) = Me.ListBox_Tabellen.List(i, 0)
End If
Next
Me.Hide
If Me.OB_Druck_gruppiert = True Then
If Vorschau = True Then
ActiveWorkbook.Sheets(Blaetter).PrintPreview
Else
ActiveWorkbook.Sheets(Blaetter).PrintOut
End If
Else
For i = LBound(Blaetter) To UBound(Blaetter)
If Vorschau = True Then
ActiveWorkbook.Sheets(Blaetter(i)).PrintPreview
Else
ActiveWorkbook.Sheets(Blaetter(i)).PrintOut
End If
Next
End If
wks.Select
End Sub
Private Sub UserForm_Initialize()
'Namen der sichtbaren Tabellen in Listenauswahl einlesen
Dim Bereich As Range, Zeile%
With Me.ListBox_Tabellen
'Auswahlmodus in der Liste festlegen _
Bei einer Vorauswahl ist es besser wenn man einzelne Tabellen _
dazu-/abwählen kann ohne versehentlich die Vorauswahl aufzuheben. _
Deshalb die folgende Zeile oder unter Eigenschaften für die Listbox _
die Einstellung ändern.
.MultiSelect = fmMultiSelectMulti
'Tabellen vorauswählen, Zählung beginnt bei 0
Set Bereich = Application.Range("ListeTabellen")
For Zeile = 1 To Bereich.Rows.Count
If Bereich(Zeile, 2) = "" Then
.Selected(Zeile - 1) = False
Else
.Selected(Zeile - 1) = True
End If
Next
End With
End Sub
Vielleicht kann mir da jemand weiter Helfen das wäre nett, Danke!Mit freundlichen Grüßen Thomas