ich habe heute ein Makro erstellt, welches im ActiveSheet die letzte benutzte Zeile des Druckbereiches ausliest.
Code:
Sub GetPrintRange()
Dim rng As Range
Set rng = Range(ActiveSheet.PageSetup.PrintArea)
MsgBox rng(rng.Cells.Count).Row
End Sub
Dieses soll über weitere Wege den Druckbereich (Breite/ Höhe in Seiten) korrekt und ansichtsfreundlich einstellen.
In der Datei, in der mir die Idee kam, hat das Auslesen der letzten Zeile auch wunderbar funktioniert.
Aber nachdem ich das Makro einfach in ein Modul einer weiteren Test- Datei kopiert habe, kam die
Fehlermeldung:
Die Methode Range für das Objekt _global ist fehlgeschlagen
Die Ursprungsdatei, in der das Makro auch funktioniert hat, war eine umfangreiche Pivot- Tabelle. Das Makro ist m.E. nach jedoch so allgemeingültig, daß es in jedem Modul via F5 aktiviert auch gut durchlaufen müßte. Aber eben in jeder anderen Datei kommt o.g. Fehlermeldung.
Ich finde dafür keine logische Erklärung. Auch die Suche hier im Forum hat nicht den entscheidenden Hinweis auf die Fehlerquelle erbracht.
Anbei die Ursprungsdatei in der es läuft. Zu Testzwecken den Code einfach mal in eine andere Datei kopieren.
Vielleicht hatte einer von Euch dieses mysteriöse Problem auch schon einmal.
Die Datei https://www.herber.de/bbs/user/47061.xls wurde aus Datenschutzgründen gelöscht
Dank und Gruß für Eure Antworten und Ideen.
Andreas Hanisch