ich habe folgendes Problem:
Beim Öffnen einer Excel-Datei startet ein Makro aus der Arbeitmappe automatisch. Hiermit passe ich die Tabellengrösse an die Bildschirmauflösung automatisch an.
Option Explicit
Private Sub Workbook_Open()
Dim rngZoom As Range
'Scrollbereiche festlegen
Sheets("QM-Matrix").ScrollArea = "A1:AA48"
'Tabelle auf Bildschirmgröße anpassen
Call ZoomRange(Sheets("QM-Matrix").Range("A1:AA30"))
Range("c2").Select
End Sub
Sub ZoomRange(rngZoom As Range)
Application.Goto rngZoom
ActiveWindow.Zoom = True
End Sub In einem Modul habe ich dann noch eine Funktion, mit der ich Spalten farbig mache, die per Autofilter aktiviert werden.
Option Explicit
Public Function isFilterOn(rThisRange As Range) As Boolean
Dim rThisCell As Range
On Error Resume Next
For Each rThisCell In rThisRange.Cells
With rThisCell.Parent.AutoFilter
With .Filters(rThisCell.Column - .Range.Column + 1)
If .On Then isFilterOn = True
End With
End With
Next
End Function
Diese Funktion wird mit der bedingten Formatierung gekoppelt.
Wenn ich nun die Funktion einkommentiert lasse, dann funktioniert das Zoomen beim Öffnen der Datei nicht, wenn die Funktion auskommentiert ist, klappt es einwandfrei.
Wo habe ich einen Gedankenfehler, bzw. was muss ich anders machen?
Für eine Rückantwort wäre ich dankbar.
Freundliche Grüße
PointzOfView