XP / 2000
06.02.2006 10:53:14
Klaus
Ich habe folgendes Makro in der Version 2000 erstellt.
Leider läuft es auf einem Rechner mit XP nicht.
Private Sub Worksheet_Activate()
r1 = ActiveSheet.Cells.Find(What:="*", After:=[a1], LookIn:=2, LookAt:=2, _
SearchDirection:=2, SearchOrder:=1).Row
c1 = ActiveSheet.Cells.Find(What:="*", After:=[a1], LookIn:=2, LookAt:=2, _
SearchDirection:=2, SearchOrder:=2).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(r1, c1)).Address
End Sub
Woran liegts?
Gruss Klaus
Anzeige