Hallo Forumgemeinde,
ich möchte bei Excel 2010 Tabelle alle leere Zeilen unterdrücken und anschließend ausdrucken. So habe ich ein Makro geschrieben:
Sub Drucken()
’
’ Drucken Makro
’
’
ActiveSheet.Range("$B$3:blush:J$34").AutoFilter Field:=8, Criteria1:=""
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$B$3:blush:J$34").AutoFilter Field:=8
Range(„B3:J3“).Select
Selection.AutoFilter
End Sub
Das Makro funktioniert auch einwandfrei bei nicht geschütztem Blatt.
Gehe ich aber her und schützte das Blatt (Überprüfen - Blatt schützen - Nicht gesperrte Zellen auswählen) bekomme ich folgende Fehlermeldung:
Laufzeitfehler ‚1004‘:
Dieser Befehl kann für ein geschütztes Blatt nicht verwendet werden. Sie müssen zuerst den Schutz des Blatts aufheben (Registerkarte’Überprüfen’, Gruppe ‚Änderungen‘, Schaltfläche ‚Blattschutz aufheben‘), um diesen Befehl zu verwenden. Sie werdenmöglicherweise aufgefordert, ein Kennwort einzugeben.
Der Button für das Makro ist bei der Spalte K (außerhalb des Druckbereichs = B1 bis J 37 ) hinterlegt.
Kann mir jemand hierzu vielleicht eine kleine Hilfestellung geben.
Vorab schon einmal vielen Dank.