Filter hervorheben: .xlsm - .xlam

Hallo,
mit Hilfe des Forums (https://www.herber.de/forum/archiv/1944to1948/1945310_Filter_bedingte_Formatierung_VBA.html) konnte ich mir ein gutes und funktionierendes Tool basteln, welches bei einem Filter die gefilterten Überschriften hervorhebt.
Beispiel als xlsm: https://www.herber.de/bbs/user/164734.xlsm
Jetzt habe versucht, das ganze in ein Excel-Add-In einzubinden; leider funktioniert das nicht 1:1.
Beispiel als xlam: https://www.herber.de/bbs/user/164735.xlam

Fehlerzeile und Fehlermeldung:
With .FormatConditions.Add(Type:=xlExpression, Formula1:="=af_krit(ZS)")
Laufzeitfehler 5: Ungültiger Prozessaufruf oder ungültiges Argument

Ich habe herausgefunden, dass der Code Public Function AF_KRIT im .xlam, aber nicht in der Datei (.xlsx) ist, die ich verwende. Auch ist die bedingte Formatierung nicht erstellt worden.
Ich vermute, man müsste die beiden Module (Farbiger_Filter und myAfKrit) in diesem Zusammenhang bei Nutzung vorher noch in je ein neues Modul meines aktiven Blatts kopieren (falls nicht schon vorhanden müsste geprüft werden).
Ob meine Vermutung stimmt, oder es ein anderes Problem gibt, weiß ich nicht, jedenfalls fehlen mir leider hierzu die Kenntnisse und Fähigkeiten ☹.
Kann mir bitte hier jemand helfen?

Danke schon mal - Erwin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Erwin,

Es sieht so aus, als bedingte Formatierung grundsächlich keine UDF akzeptiert, die nicht im eigener Datei vorliegen. Es kommt den Fehler "Dieser Bezugstyp kann nicht in Bedingte Formatierung-Formeln verwendet werden."

Module per VBA zu übertragen geht über Export/Import.
(abgeleitet aus https://www.herber.de/forum/archiv/644to648/644373_Makro_per_Makro_kopieren.html )

Private Sub myAfKrit()

    

    On Error GoTo Errorhandler

    Workbooks("myAfKrit.xlam").VBProject.VBComponents("myAfKrit").Export "C:\Temp\myAfKrit.txt"

    ActiveWorkbook.VBProject.VBComponents.Import "C:\Temp\myAfKrit.txt"

    Exit Sub



' Bei Fehlernummer 1004, diese Meldung ausgeben.

Errorhandler:

    If Err.Number = 1004 Then

        MsgBox "Das kopieren des VBA Moduls ist fehlgeschlagen!" & vbCr & _

        "Bitte überprüfen Sie folgende Einstellung! " & vbCr & _

        "EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _

        "'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _

        " Meldung vom Makro Module exportieren!"

    Else

        MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical

    End If

    ' Fehlernummer löschen.

    Err.Clear

End Sub

(ungestestet)

VG
Yal

Beliebteste Forumthreads (12 Monate)

Filter hervorheben: .xlsm - .xlam

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filter hervorheben: .xlsm - .xlam

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread