Sortieren...
18.11.2004 18:17:45
walter
ich möchte meine Datenbank vor dem Ausdrucken nach dem Nachnamen sortieren.
Wie kann ich die Zeilen einbinden ?
Mein Makro, mit dem Ausdrucken funktioniert bisher.
Hier mein Makro:
Sub N_Datenbank_Drucken()
Dim l
Dim z
Application.ScreenUpdating = False
Sheets("Datenbank").Unprotect ("ww") 'schutz aufheben
z = ActiveCell().Row
l = Range("a1").End(xlDown).Row
'----- hier sortieren nach Nachnamen ----------------------------------------
1. Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
2. OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(l, 9)).Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.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 = 85
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select 'geht zur aktiven zelle
Sheets("Datenbank").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="ww"
Application.ScreenUpdating = True
End Sub
Gruß Walter
Anzeige