Excel VBA Function beeinflusst Coding
28.11.2019 10:34:04
Pascal
ich hatte vor einiger Zeit folgende Anforderung gepostet:
"Bitte schalte die Bedingte Formatierung aus sobald ein Autofilter aktiv ist."
Ich bekam folgende hilfreiche Antwort:
1. füge folgenden Code in allgemeines Modul ein. Du bekommst damit eine neue Funktion, welche dir erlaubt zu überprüfen, ob in der Tabelle ein bestimmter Autofilter aktiv ist:
Function IstFilterAktiv(Filterspalte As Long, Zellbereich As Range) As Boolean
IstFilterAktiv = Zellbereich.Worksheet.AutoFilter.Filters(Filterspalte).On
End Function
2. verwende dann diese Funktion in der Bedingten Formatierung, UND-Verknüpft zur bisherigen Regel:
=UND(Nicht(IstFilterAktiv(4;$A$2));hier deine bisherige Regel)
Hat auch alles super geklappt.
Nur ist es jetzt jedoch so das andere VBA Codes nicht mehr funktionieren.
Simples Beispiel:
Private Sub Workbook_Open()
Sheets("Tabelle4").Select
End Sub
Beim Öffnen springt er nicht in das gewünschte Sheet, seit diese Function aktiv ist.
Aber auch andere Makros funktionieren nicht mehr richtig und sind buggy.
Kennt jemand dieses Problem und weiß evtl. woran es liegt?
mfg
Pascal