Ausdruck mittels VBA steuern

Schönen Tag liebe VBA-Spezialisten,
ich brauche wieder einmal eure fachkundige Hilfe.
In einer Tabelle möchte ich den Druckbereich (welche Zeilen und Spalten in einem Bereich gedruckt werden) in Abhängigkeit von verschiedenen Kriterien steuern.
Ich denke, dass das am besten mittels VBA möglich ist und hoffe, dass ihr mir bei der Umsetzung helfen könnt.
(Grundsätzlich) soll der Bereich B1:R69 gedruckt werden.
Allerdings sollten folgende Einschränkungen Berücksichtigung finden:
Es sollen diejenigen Zeilen nicht gedruckt werden, in denen im Bereich C5:R69 überhaupt kein Eintrag zu finden ist, ausgenommen davon sollte immer die erste leere Zeile sein (d.h. wenn in der Zeile darüber in den Spalten C bis R noch ein Eintrag steht, sollte auch eine leere Zeile noch mitgedruckt werden.
Ebenfalls sollte im Bereich C5:R69 diejenigen Spalten nicht gedruckt werden, die in diesem Bereich keinen Eintrag enthalten.
Bereits jetzt allen hilfsbereiten Forumsbesuchern besten Dank!
Gruß
Fritz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Drucken() Dim wksTmp As Worksheet Dim i%, v%, h% Application.ScreenUpdating = False Application.DisplayAlerts = False Set wksTmp = Sheets.Add(After:=Sheets(Sheets.Count)) v = 69 h = 18 With wksTmp Sheets("Tabelle1").Cells.Copy .Cells(1, 1).PasteSpecial Paste:=xlPasteFormats .Cells(1, 1).PasteSpecial Paste:=xlPasteValues For i = v To 6 Step -1 If Application.CountA(.Range(.Cells(i, 3), .Cells(i - 1, h))) = 0 Then .Rows(i).Delete v = v - 1 End If Next i For i = h To 3 Step -1 If Application.CountA(.Range(.Cells(5, i), .Cells(v, i))) = 0 Then .Columns(i).Delete h = h - 1 End If Next i .PageSetup.PrintArea = .Range(.Cells(1, 2), .Cells(v, h)).Address '.PrintOut 'zum Testen auskommentiert '.Delete 'zum Testen auskommentiert End With Sheets("Tabelle1").Select Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Option Explicit Sub Drucken() Dim wksTmp As Worksheet Dim i%, v%, h% Application.ScreenUpdating = False Application.DisplayAlerts = False Set wksTmp = Sheets.Add v = 69 h = 18 With wksTmp Sheets("Mannschaftsmeldungen").Cells.Copy .Cells(1, 1) For i = v To 6 Step -1 If Application.CountBlank( _ .Range(.Cells(i, 3), .Cells(i - 1, h))) = 2 * (h - 2) Then .Rows(i).Delete v = v - 1 End If Next i For i = h To 3 Step -1 If Application.CountBlank(.Range(.Cells(5, i), .Cells(v, i))) = v - 4 Then .Columns(i).Delete h = h - 1 End If Next i .PageSetup.PrintArea = .Range(.Cells(1, 2), .Cells(v, h)).Address .PrintOut .Delete End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Hallo Fritz,
mit diesem Makro werden die unerwünschten Zeilen und Spalten ausgeblendet und damit auch nicht gedruckt.
Nach dem Drucken kannst Du diese ja wieder einblenden; dazu kannst Du auch den ersten Teil (bis vor der ersten For-Next-Schleife) dieses Makros verwenden.


Sub Fritz()
Dim b As Byte, z As Byte
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "$B$1:$R$69"
Columns("B:R").EntireColumn.Hidden = False
Rows("5:69").EntireRow.Hidden = False
For b = 5 To 69
If WorksheetFunction.CountA(Range(Cells(b, 3), Cells(b, 18))) = 0 Then
If z > 0 Then
Rows(b).EntireRow.Hidden = True
End If
z = z + 1
End If
Next b
For b = 3 To 18
If WorksheetFunction.CountA(Range(Cells(5, b), Cells(69, b))) = 0 Then
Columns(b).EntireColumn.Hidden = True
End If
Next b
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread