B
Bomba2015
Registriert
Thread Starter
- Dabei seit
- 05.03.2015
- Beiträge
- 2
- Reaktionspunkte
- 0
Hallo liebe Forum User,
ich hoffe, ihr könnt mir bei meinem kleinen Problem helfen. Einige Beiträge hier im Forum habe ich schon gelesen, bin aber leider nicht weiter gekommen.
Mein Kollege hat mir eine Excel Tabelle geschickt die Makros enthält. Diese Tabelle wurde mit MS Office 2003 erstellt. Mein MAC- Office2011 öffnet diese Tabelle, aber drucken kann ich sie leider nicht (Funktion wird nicht unterstützt). das Drucksymbol ist auch aus- gegraut. Nun habe ich gelesen, das einige Befehle die mit MS erstellt wurden nicht auf einer MAC- Version laufen. Vielleicht kann einer mir einen Tipp geben was ich ändern muss?!
Hier das Makro:
Sub Druck_Std_Auswertung()
ActiveSheet.Unprotect Password:="1234"
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Rows(iRow).Hidden = (IsEmpty(Cells(iRow, 30)) Or Cells(iRow, 30).Value = 0)
Next iRow
Range("Sortieren").Sort Key1:=Range("A11"), Order1:=xlAscending, Key2:=Range("I11" _
), Order2:=xlAscending, Key3:=Range("J11"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.PrintPreview
Rows.Hidden = False
' letzte Zeile mit Formel in Spalte 2 wieder ausblenden (leere Blankozeile)
Cells(Rows.Count, 2).End(xlUp).EntireRow.Hidden = True
ActiveSheet.DisplayPageBreaks = True
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="1234"
End Sub
???
ich hoffe, ihr könnt mir bei meinem kleinen Problem helfen. Einige Beiträge hier im Forum habe ich schon gelesen, bin aber leider nicht weiter gekommen.
Mein Kollege hat mir eine Excel Tabelle geschickt die Makros enthält. Diese Tabelle wurde mit MS Office 2003 erstellt. Mein MAC- Office2011 öffnet diese Tabelle, aber drucken kann ich sie leider nicht (Funktion wird nicht unterstützt). das Drucksymbol ist auch aus- gegraut. Nun habe ich gelesen, das einige Befehle die mit MS erstellt wurden nicht auf einer MAC- Version laufen. Vielleicht kann einer mir einen Tipp geben was ich ändern muss?!
Hier das Makro:
Sub Druck_Std_Auswertung()
ActiveSheet.Unprotect Password:="1234"
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Rows(iRow).Hidden = (IsEmpty(Cells(iRow, 30)) Or Cells(iRow, 30).Value = 0)
Next iRow
Range("Sortieren").Sort Key1:=Range("A11"), Order1:=xlAscending, Key2:=Range("I11" _
), Order2:=xlAscending, Key3:=Range("J11"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.PrintPreview
Rows.Hidden = False
' letzte Zeile mit Formel in Spalte 2 wieder ausblenden (leere Blankozeile)
Cells(Rows.Count, 2).End(xlUp).EntireRow.Hidden = True
ActiveSheet.DisplayPageBreaks = True
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="1234"
End Sub
???