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