Mitgliederliste
20.08.2004 15:44:09
Erich
ich habe eine Mitgliederliste, vordefiniert von B4:S999. Momentan ist die letzte ausgefüllte Zeile die Zeile 932. Für den Ausdruck verwende ich folg. Makro:
Sub MitgliederDrucken()
Dim iRow as Integer
iRow=Cells(Rows.Count,3).End(xlUp).Row
ActiveSheet.PageSetUp.PrintArea = Range("B4:S" & iRow).Address
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
Dies funktioniert einwandfrei !
Auf den Monats-Arbeitsblättern (Jan bis Dez) werden die Geburtstage aufgeführt.
Vordefiniert von B4:J150.
Die Eintragungen in den Monaten schwanken von Zeile 57 bis Zeile 116.
Wenn ich hier ausdrucken will, geht der Ausdruck immer bis Zeile 150, obwohl ich nur bis zur letzten ausgefüllten Zeile will.
Wer versteht meinen "Erklärungssalat" und wer kann mir helfen ?
Gruß Erich Müller