Thema Datum  Von Nutzer Rating
Antwort
Rot Autofilter mit variablem Field
02.09.2023 18:15:35 xlKing
NotSolved
02.09.2023 18:35:25 xlKing
Solved
02.09.2023 19:05:41 ralf_b
NotSolved
02.09.2023 20:31:23 xlKing
NotSolved
02.09.2023 19:56:12 Mase
NotSolved
02.09.2023 20:15:09 xlKing
NotSolved
04.09.2023 08:22:04 Mase
NotSolved
04.09.2023 18:09:54 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing
Datum:
02.09.2023 18:15:35
Views:
246
Rating: Antwort:
  Ja
Thema:
Autofilter mit variablem Field

Hi Leute,

ich hab hier mal wieder ein merkwürdiges Problemchen. Hab auch schon gegoogelt aber nichts gefunden, was mit meinem Problem vergleichbar ist. Die Probleme der Anderen beziehen sich meist auf ein varibles Kriterium und sind relativ leicht lösbar.

Ich habe eine intelligente Tabelle (beginnend in Spalte A, Kopfzeile ist Zeile 5) mit einem Autofilter. Nun möchte ich Filter 4 nach dem Wert 0 filtern. Das klappt soweit auch ganz gut, wenn ich die 4 direkt in den Code reinschreibe.

    With Daten.ListObjects("Tabelle2").Range
      .AutoFilter Field:=4, Criteria1:=0
    End With

Es wird korrekt gefiltert. Wenn ich jedoch die 4 durch eine Funktion oder eine Variable ersetze, welche den Wert 4 korrekt zurückgibt (Das habe ich kontrolliert) dann erhalte ich den Laufzeitfehler 1004  "Die AutoFilter-Methode des Range-Objektes konnte nicht ausgeführt werden.

    With Daten.ListObjects("Tabelle2").Range
      .AutoFilter Field:=getColumn("InvType"), Criteria1:=0
    End With

geht also nicht und

    Dim fldInvType
    With Daten.ListObjects("Tabelle2").Range
      fldInvType = getColumn("InvType")
      .AutoFilter Field:=fldInvType, Criteria1:=0
    End With

geht auch nicht. Egal ob ich die Variable als Long, Integer oder Variant gestalte, ich erhalte immer den gleichen Fehler.

Die Funktion getColumn ist simpel und gibt, wie gesagt den korrekten Wert zurück.

Function getColumn(Name As String) As Integer
  getColum = Application.Match(Name, Daten.Rows(5), 0)
End Function

Ist das bei euch auch so? Wie kann ich die 4 variabel gestalten? Es könnte ja sein, dass ich später Spalten einfügen möchte.

Mein Excel 2019 unter Windows 11

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Autofilter mit variablem Field
02.09.2023 18:15:35 xlKing
NotSolved
02.09.2023 18:35:25 xlKing
Solved
02.09.2023 19:05:41 ralf_b
NotSolved
02.09.2023 20:31:23 xlKing
NotSolved
02.09.2023 19:56:12 Mase
NotSolved
02.09.2023 20:15:09 xlKing
NotSolved
04.09.2023 08:22:04 Mase
NotSolved
04.09.2023 18:09:54 xlKing
NotSolved