Prozedur vor Druck, auch verzweifelt...

Tag zusammen,

ich verzweifel auch langsam. Also ich habe einen Button, der ermöglicht per Auswahl alle Sheets eines Blattes zu drucken. Bevor diese DruckBox erscheint, soll aber in KM-Geld und Verauslagte Kosten gegangen werden und dort die leere Zeilen gelöscht werden (ab bestimmten Bereich). Der Code stimmt eigentlich so, denn wenn man ihn auf Workbook-beforePrint legt und dann in den einzelnen Blättern druckt, klappt es. Auch wenn man ihn auf worksheet.activate der jeweiligen Blätter legt, klappt es. Ich weiß echt nicht mehr weiter. Wodran kann es liegen????

Private Sub Print_Sheets_Button_Click()

Dim r As Long

Application.ScreenUpdating = False

' vor dem Druck von KM-Geld werden die Leerzeilen gelöscht
Sheets("KM-Geld").Select
ActiveSheet.Unprotect ("test")
For r = ActiveSheet.UsedRange.Rows.Count To 9 Step -1
If Application.WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 10))) = 0 Then Rows(r).Delete
Next r
ActiveSheet.Protect ("test")

' vor dem Druck von Verauslagte Kosten werden Leerzeilen gelöscht
Sheets("Verauslagte Kosten").Select
ActiveSheet.Unprotect ("test")
For r = ActiveSheet.UsedRange.Rows.Count To 13 Step -1
If Application.WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 10))) = 0 Then Rows(r).Delete
Next r
ActiveSheet.Protect ("test")

Sheets("Monatsübersicht").Select

BlattDruckAufrufen

End Sub

VIELEN DANK schon mal an ALLE, die mich vor dem Wahnsinn retten!!!
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sebastian

das soll doch vor dem Druck passieren, Warum nicht in VBA in DieseArbeitsmappe folgenden Code


Option Explicit

	

Private Sub Workbook_BeforePrint(Cancel As Boolean)

	Dim r As Long

	Application.ScreenUpdating = False

	If ActiveSheet.Name = "KM-Geld" Then Exit Sub

	' vor dem Druck von KM-Geld werden die Leerzeilen gelöscht

	With Sheets("KM-Geld")

		.Unprotect ("test")

		For r = .UsedRange.Rows.Count To 9 Step -1

		If Application.WorksheetFunction.CountA(.Range(.Cells(r, 1), .Cells(r, 10))) = 0 Then .Rows(r).Delete

		Next r

		.Protect ("test")

	End With

	ElseIf ActiveSheet.Name = "Verauslagte Kosten" Then

	' vor dem Druck von Verauslagte Kosten werden Leerzeilen gelöscht

	With Sheets("Verauslagte Kosten")

		.Unprotect ("test")

		For r = .UsedRange.Rows.Count To 13 Step -1

		If Application.WorksheetFunction.CountA(.Range(.Cells(r, 1), .Cells(r, 10))) = 0 Then .Rows(r).Delete

		Next r

		.Protect ("test")

	End With

	End If

	Application.ScreenUpdating = True

End Sub

Code eingefügt mit: Excel Code Jeanie

wobei ich schreiben muß mit der Funktion Application.WorksheetFunction.CountA habe ich noch nicht gearbeitet.

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Georg

Beliebteste Forumthreads (12 Monate)

Prozedur vor Druck, auch verzweifelt...

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread