Zeilen ausblenden für Druck

Hallo Leute,
ich habe eine Mappe erstellt, mit der man Gutscheine Drucken kann. Auf jeder einzelnen Seite sind 2 Gutscheine. Über eine Maske auf einer Seite, soll man den jeweiligen Gutschein aufrufen können für die Druckvorschau /Druck. Wenn nun nur ein Gutschein der Seite gedruckt werden soll, weil im zweiten keine Daten stehen, so möchte ich per Makro die Zeilen des leeren Gutscheins ausblenden und somit nur den ausgefüllten drucken. Für das einfache Makro reichte mein Wissen noch, was muss ich aber einfügen, damit es wie gewünscht funktioniert? Eine Zelle um abzufragen, ob ein Gutschein mit Daten gefüllt ist oder nicht wäre zB L7.

Sub druck_Gutsch2()
' Druck_Gutsch2 Makro
Sheets("Gutschein2").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Berechnung").Select
End Sub

Gruß Willi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

If Sheets("Gutschein2").Range("L7").Value "" then Set druckrange = Range(Cells(1, 1), Cells(1, 16)) else Set druckrange = Range(Cells(1, 17), Cells(1, 32)) end if ActiveSheet.PageSetup.PrintArea = druckrange.Address

Sub druck_Gutsch2() With Sheets("Gutschein2") 'With - Referenzierung statt select .Range("L1:L14").EntireRow.Hidden = False 'alle Zeilen einblenden If .Range("L7") = "" Then 'Zelle L7 auf Leerheit überprüfen .Range("L7:L14").EntireRow.Hidden = True 'Zeile 7-14 ausblenden End If .PrintPreview End With End Sub

weil es umständlich ist.
weil es unnötig ist.
weil es den Code aufbläht.
weil es Deine Prozedur extrem verlangsamt.
Lang gesagt, gibt es dazu ne Menge zu lesen, warum man das nicht tun sollte.
Ist eben ein Anfängerfehler, vor allem, weil der Makrorekorder das so aufzeichnet.
Fakt ist einfach, dass man die Zelle nicht anklicken muss (das wäre .Select), um was mit ihr zu machen.
Beispiel.
Statt

Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.Paste

Kann man einfach schreiben:

Range("A1").Copy Range("A2")

Heißt also 3 Zeilen Code gespart und ist auch noch viel schneller, den Unterschied merkt man bei einer kopierten Zelle nicht wirklich, aber dafür braucht man auch kein Makro ;-)
Du sagst ja auch nicht:
"Nimm die Wurst in die Hand"
"Lege das, was Du in der Hand hast auf den Tisch"
Du sagst einfach " Leg die Wurst auf den Tisch".
Blödes Beispiel, ich weiß, aber vielleicht hilft es Dir ein bisschen.
Gruß
Björn B.

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread