bessere methode
06.02.2007 19:13:13
samsplanet
nachfolgendes makro nutze ich um alle leeren zeilen einer tabelle vor dem drucken automatisch auszublenden. dazu erstelle ich in einer ausgeblendeten spalte eine wenn-funktion welche "1" wiedergibt, wenn die zeile voll, bzw. "0" wiedergibt, wenn die zeile leer ist.
das makro blendet alle zeilen mit einer leeren zelle in der entsprechenden spalte aus. leider habe ich etwas probleme mit der "ablaufgeschwindigkeit" des makros. hat jemand eine elegantere/schnellere lösung?
hier das makro
Sub Drucken()
ActiveSheet.unProtect Password:="xxx"
Rows.Hidden = False
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 9).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 9)) Or Cells(iRow, 9).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
ActiveSheet.Protect Password:="xxx"
ActiveWorkbook.Protect "xxx"
End Sub
danke und gruss