Bitte Bitte Eilig Druckbereich...
17.01.2005 12:49:44
walter
ich muß eine Datei fertigmachen und habe dazu mein Makro Genommen für den Druckbereich.
Makro:
Sub Agenda_Drucken()
Dim L
Dim z
Application.ScreenUpdating = False
z = ActiveCell().Row
L = Range("a1").End(xlDown).Row
'Windows("Standard-Agenda").Activate
Sheets("Standard-Agenda").Select
Range("a1").Select
Sheets("Standard-Agenda").Select
Range("a1").Select
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(L, 4)).Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$24:$24"
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Fett Kursiv""&14&A"
.RightHeader = ""
.LeftFooter = "&""Arial,Fett""&8&D"
.CenterFooter = ""
.RightFooter = "&""Arial,Fett""&8Datei: &F / Mappe: &A"
.Zoom = 83
End With
'' ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select 'geht zur aktiven zelle
Sheets("Standard-Agenda").Select
Range("a1").Select
Application.ScreenUpdating = True
End Sub
Ich möchte die Spalte "A" nutzen für das Erkennen des Druckbereiches, das Problem ist allerdings, dass die Zeilen: A 1-5,
A 7, A 9-18, A23, und A36- A38 Leerzellen sind und ich weiß nicht wie
ich diese überspringen kann ?
Bitte um Hilfe !!!
Danke im voraus
Gruß Walter mb