VBA - Autofilter / Makor?

ich möchte in Spalte A alle "-", "x" und alle für den Aktuellen Monat zB. ab den 01.09.2021 Angezeigt bekomme.

Was ist an dieser Syntax falsch

ActiveSheet.Range("$A$1:$G$3000").AutoFilter Field:=1, Criteria1:=Array("-", _

"x"), Operator:=xlFilterValues, Criteria2:=Array(0, Month(Now) & "/1/2021")

Meine Formel zeigt alle "-", "x" und alle Daten ab Datum 01.01.2021. Siehe Filter Bild.

Bild zum Beitrag

es solte nur im Sep. ein Häckchen sein.

Vielen Dank vorab für eure Hilfe.

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

daCypher

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, programmieren

03.09.2021, 10:36

Schon fast alles richtig. Du musst nur bei Criteria2 eine 1 statt 0 ins Array schreiben und evtl. auch das aktuelle Jahr abfragen.

ActiveSheet.Range("$A$1:$G$3000").AutoFilter Field:=1, Criteria1:=Array("-", _
       "x"), Operator:=xlFilterValues, Criteria2:=Array(1, Month(Now) & "/1/2021")

oder

    ActiveSheet.Range("$A$1:$A$126").AutoFilter Field:=1, Criteria1:=Array("-", _
        "x"), Operator:=xlFilterValues, Criteria2:=Array(1, Format(Now, "mm""/""dd""/""yyyy"))

Harald157

Fragesteller

03.09.2021, 10:42

Vielen Vileln Dank, habe die 1 gesetzt und es funktionier. Freu mich wie ein Wurschtel König , nochmals Danke für die schnelle Hilfe (unendlich freu) :-)

Harald157

Fragesteller

03.09.2021, 11:01

Die zweite Formel ist noch besser, da sie das aktuelle Jahr berücksichtichtigt.

Tolle Lösung !!!!!

daCypher

03.09.2021, 11:02

@Harald157

Bitteschön, gerne 👍

Harald157

Fragesteller

03.09.2021, 11:39

Habe mal auf die schnelle gegockel wegen der 0 bzw der 1, bin aber nicht so recht fündig geworden.Wenn es Deine Zeit erlaubt könntest du mir auf die schnelle den unterschied erklären bzw hast du einen passenden link zum nachlesen (nur auf Deutsch). Denn nur wer vesteht was er tut kann es beim nächsten mal (vieleicht) richtig machen. Danke.

daCypher

03.09.2021, 12:16

@Harald157

Ich hab ehrlich gesagt einfach ein Makro aufgenommen und geschaut, welcher Code dabei rauskommt, wenn man im Filter nur den September anhakt.

Die Zahl scheint einfach die Ebene in der Filterauswahl zu sein. Also 0 = das ganze Jahr, 1 = der Monat, 2 = der Tag. Kann sogar sein, dass es danach noch mit Uhrzeiten weitergeht. Das hab ich noch nicht ausprobiert.

Harald157

Fragesteller

03.09.2021, 12:26

@daCypher

Vielen dank für die Info, das ist doch schon mal was womit man arbeiten kann :-)

Gute Idee, darauf darauf hätte auch ich kommen müßen.

Hi,

ich suche eine einfachere Lösung für meine UserForm um über CheckBoxen meine Tabelle zu Filtern.

Im grunde möchte ich also, wenn ich einen Wert ankreuze soll dieser Gefiltert werden.

Wie im Beispiel (unten):

FKEP und KKEP angekreuzt = FKEP und KKEP angezeigt.

Nur KKEP angekreuzt = nur KKEP angezeigt

"Wert" der gefiltert werden soll | CheckBox Name
 FKEP                              CBFilterFKEP
 KKEP                              CBFilterKKEP
 KfB                               CBFilterKfB
 ausgesch.                         CBFilterausgesch
 beendet                           CBFilterbeendet
 EQ - KfB                          CBFilterEQKfB
 EQ - FKEP                         CBFilterEQFKEP

Mein momentaner Code schaut wiefolgt aus:

    Private Sub CBFilterFKEP_Click()

If CBFilterFKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP"), Operator:=xlFilterValues

If CBFilterKKEP = True Then

    Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
    "FKEP", "KKEP"), Operator:=xlFilterValues

End If
End If
End Sub

Private Sub CBFilterKKEP_Click()

    If CBFilterKKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP"), Operator:=xlFilterValues

    If CBFilterFKEP = True Then

        Sheets("Gesamtdaten").Range("$A$2:$EQ$502").AutoFilter Field:=3, Criteria1:=Array( _
        "KKEP", "FKEP"), Operator:=xlFilterValues

    End If
    End If
    End Sub

Soweit so gut ... nun habe ich aber nur FKEP und KKEP "abgestimmt" ... muss ich nun alle 5 Werte auch "abstimmen" ? Das wird nämlich ein SEHR langer code ... und ich könnte wetten das es in VBA viel leichter geht ...

Hat wer eine Idee von euch?

MfG Tim

...zur Frage

Autofilter über mehrere Spalten verwenden, mittels Makro?

Hallo, folgendes Problem. Ich möchte mehrere Spalten nach einem Schlagwort aus einer Zelle Filtern. Egal in welcher Spalte das Schlagwort auftaucht, diese Zeile soll stehen bleiben.

ActiveSheet.Range("$A$14:$K$62").AutoFilter Field:=2, Criteria1:=Cells(2, 3).Value
ActiveSheet.Range("$A$14:$K$62").AutoFilter Field:=3, Criteria1:=Cells(2, 3).Value
ActiveSheet.Range("$A$14:$K$62").AutoFilter Field:=4, Criteria1:=Cells(2, 3).Value

Das war mein Versuch der aber nicht funktioniert. Es Funktioniert immer nur wenn ich den Quelltext mit nur einer Spalte verwende. Sobald ich mehrere Spalten verwende funktioniert es so nicht mehr. Außerdem sucht er mir so immer nur den direkten Wortlaut. Beispiel es steht ein Vor- und Nachname in einer Zelle und das Schlagwort beinhaltet nur den Vornamen, findet er nichts.

Hoffe es kann mir jemand helfen.

Danke!

...zur Frage

Excel Makro .AutoFilter variable Range?

Hallo,

ich habe ein simples Excel Makro aufgenommen, in der ich eine Tabelle nach bestimmten Kriterien Filtern muss. Die Tabelle kann variabel lang sein.

Durch die Funktion "Makro aufzeichnen" habe ich folgendes:

"ActiveSheet.Range("$A$1:$S$249").AutoFilter Field:=15, Criteria1:="0""

Wie kann ich die Zeilenlänge durch eine Variable ersetzen? Die Länge der Tabelle würde ich einfach durch:

X = (Range("A2").End(xlDown).Row)

ermitteln.

Bitte um Entschuldigung für die Frage, ich schreibe nur sehr selten Makros.

Vielen Dank für eure Hilfe. :)

...zur Frage

Wie kann ich Kontrollkästchen elegant miteinander verknüpfen, um nach mehreren Kriterien zu filtern?

Hallo zusammen,

in einer ExcelDatei befinden sich Formularsteuerlemente bzw. 3 Kontrollkästchen mit denen ich verschiedene Kriterien nach Hunde, Katzen und Vögel filtern sowie verknüpfen möchte.

Mit ActiveX-Steuerelemente Kontrollstästchen und CommandButton konnte ich folgendes Beispiel aufbauen:

Private Sub ausführen_Click()

    If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = False Then
        Hund
    ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = False Then
        Katze
    ElseIf CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = True Then
        Vogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = False Then
        HundKatze
    ElseIf CheckBox1.Value = False And CheckBox2.Value = True And CheckBox3.Value = True Then
        KatzeVogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = True Then
        HundVogel
    ElseIf CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True Then
        Alle
    Else
        MsgBox ("Es wurde nichts ausgewählt")
    End If

End Sub

Sub Hund()
' Hund Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Hund"
End Sub
Sub Katze()
' Katze Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Katze"
End Sub
Sub Vogel()
' Vogel Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2, Criteria1:="Vogel"
End Sub
Sub Alle()
' Alle Makro
    Worksheets("Tabelle2").Range("$A$4:$B$8").AutoFilter Field:=2
End Sub
Sub HundKatze()
' HundKatze Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Hund", _
        Operator:=xlOr, Criteria2:="=Katze"
End Sub
Sub KatzeVogel()
' KatzeVogel Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Katze", _
        Operator:=xlOr, Criteria2:="=Vogel"
End Sub
Sub HundVogel()
' HundVogel Makro
    ActiveSheet.Range("$A$6:$B$13").AutoFilter Field:=2, Criteria1:="=Hund", _
        Operator:=xlOr, Criteria2:="=Vogel"
End Sub

Das funktioniert soweit ganz gut.

Allerdings benötige ich Formularsteuerelemente Kontrollkästchen. Die Ergebnisse sollen sich schon während ein Kontrollkästchen betätigt wird aktualisieren. Aktuell läuft das über ActiveX-Steuerelemente Kontrollkästchen und CommandButton.

Gegenüberstellung der Varianten:

Nachgebaute Excel:

Bis auf die G4 funktioniert alles sehr gut. Vielleicht seht ihr den Fehler. Auf eine einfache Formel wie im Funktionstest reagiert die Zelle.

Vielen Dank für eure Hilfe. Liebe Grüße

...zur Frage

Hallo, wie kann ein Makro (VBA) erstellen, dass per Autofilter Zeilen mit einen bestimmten Kriterium filtert und anschließend in einen anderen Reiter kopiert?

...zur Frage

Hey Leute wie würdet ihr ihn vba den größten String in einem Array finden?

...zur Frage

Wir würdet ihr in VBA einen Array ausgeben bzw. wie würde euer Quellcode lauten?

...zur Frage

VBA Excel Makro komplette Zeile löschen,wenn bestimmte Wörter enthalten

 Dim arrSuchbegriff, i&
 arrSuchbegriff = Array("Suchbegriff1", "Suchbegriff2", "", "SB3")

 For i = LBound(arrSuchbegriff) To UBound(arrSuchbegriff)
     ActiveSheet.Columns("A").Replace arrSuchbegriff(i), "###@@@###", xlPart, MatchCase:=False
 Next i
 ActiveSheet.Columns("A").AutoFilter Field:=1, Criteria1:="*###@@@###*"
 ActiveSheet.Cells.Delete

Das Makro klappt, allerdings löscht es mir nur die Zelle in der der Begriff enthalten ist, und nicht die komplette Zeile. Kann jemand helfen? Viele Grüße

...zur Frage

Excel VBA - AutoFilter richtig einstellen?

Hallo!

ich versuche derzeit folgendes, ohne mich wirklich mit VBA auszukennen :D

Ich habe zwei Tabellen, Tabelle1 und Tabelle2. Auf Tabelle 1 habe ich mehrere Kategorie-Namen (im Beispiel die Zahlen) und möchte diese quasi "Selektieren", um damit einen Filter für meine Daten in Tabelle2 zu setzen, um dort nur die Daten zur jeweiligen gefilterten Kategorie anzuzeigen.

Zur Zeit sieht es wie folgt aus (vereinfachte Darstellung mit Zahlen als Kategorie):

Tabelle 1:

Tabelle 2 (Zahlen = Kategorie, Buchstaben = Daten):

Und mein Code

Sub Filtern()
Dim Kriterium As String Dim Counter Counter = 0
For i = 1 To 5     If Cells(i, 1) = "X" Then Kriterium = Kriterium + """" + CStr(Cells(i, 2)) + """" + ","     Counter = Counter + 1      Next i
Dim Liste As Range Set Liste = Worksheets("Tabelle2").Range("A2:B10") Liste.AutoFilter Liste.AutoFilter Field:=1, Criteria1:=(Kriterium)

End Sub

Zur Erklärung was ich mir dabei gedacht habe:

In der For-Schleife gehe ich erstmal die Tabelle 1 durch und schaue, wo ein X ist und füge dann entsprechenden Kategorie-Namen aus der Zelle daneben meinem String hinzu.

Dies scheint auch zu klappen, eine Test-Ausgabe via MsgBox hat mir das Ganze so ausgegeben wie ich wollte (so: "3","5",)

Im nächsten Schritt sage ich, wo die Daten sind die zu filtern sind und wende dann "AutoFilter" an, um den Filter zu setzen. Dabei sage ich dann, dass er in Feld 1 die Kriterien suchen soll. Als Kriterium gebe ich ihm meinen vorher erstellen String, welches er als ein Array verarbeiten soll, um alle Kriterien zu berücksichtigen.

Das Ergebnis sieht allerdings nur so aus:

Ich kenne mich wie gesagt eigentlich überhaupt nicht mit VBA aus, daher wäre gut möglich, dass mein Code ein zusammengeschuhsterer Haufen Müll ist, aber naja... :D

Sieht da jemand zufällig den Fehler?

...zur Frage

Makro mit VBA in Excel zerschossen, brauche dringend Hilfe!?

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

' Sortieren Makro

Rows("3:500").Select

Range("B3").Activate

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

"H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Übersicht").Sort

.SetRange Range("A3:L500")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

ActiveWindow.SmallScroll Down:=-12

End Sub

...zur Frage

PHP XLSX Writer überspringt erste Zeile - was tun?

Hey!

Ich habe gestern die Erweiterung PHP XLSX Writer gefunden und meinem System hinzugefügt. Ziel: Datenbank mit PHP (und mysqli) in ein Excel Dokument umwandeln. Irgendwie überspringt er die erste Zeile und spuckt mir im Dokument erst alles ab id=2 aus... Wisst ihr woran das liegt?

Danke schonmal für eure Antworten!

Hier noch der Quellcode von meiner export.php:

<?php
include "config.php";
include_once("../includes/excel/xlsxwriter.class.php");
//ini_set('display_errors', 0);
//ini_set('log_errors', 1);
//error_reporting(E_ALL & ~E_NOTICE);


    date_default_timezone_set('Europe/Berlin');
    $filename = "PZUS_" . date('Y-m-d') . ".xlsx";


    header('Content-disposition: attachment; filename="'.XLSXWriter::sanitize_filename($filename).'"');
    header("Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet");
    header('Content-Transfer-Encoding: binary');
    header('Cache-Control: must-revalidate');
    header('Pragma: public');   
    $sql="SELECT * FROM tbl_contact";
    $result = $link->query($sql); 
    $row = $result->fetch_assoc(); 
    $header = array(
      'ID'=>'string',
      'Nachname'=>'string',
      'Vorname'=>'string',
      'Klasse'=>'string',
      'Bemerkung'=>'string',
      'Datum'=>'string',
      'Email'=>'string',
      'Adresse'=>'string',
      'Tel'=>'string',
    );
    $writer = new XLSXWriter();
    $writer->writeSheetHeader('PZUS-1', $header);
    $array = array();
    while ($row=$result->fetch_assoc())
    {
        $array[1] = $row['id'];
        $array[2] = $row['fldSurname'];
        $array[3] = $row['fldFirstname'];
        $array[4] = $row['fldClass'];
        //$array[4] = $row['fldCourse'];
        $array[5] = $row['fldDmg'];
        $array[6] = $row['fldDate'];
        $array[7] = $row['fldEmail'];
        $array[8] = $row['fldAdress'];
        $array[9] = $row['fldTel'];
        $writer->writeSheetRow('PZUS-1', $array);
    };


    //$writer->writeSheet($array,'Sheet1', $header);//or write the whole sheet in 1 call    


    $writer->writeToStdOut();
    //$writer->writeToFile('example.xlsx');
    //echo $writer->writeToString();
    exit(0);

...zur Frage

Vba gleiche Werte in arrays löschen

Hallo Leute

Ich bin auf der Suche nach einer Möglichkeit, gleiche Einträge in einer Array zu löschen. Zum bespiel Array(0)=10 Array(1)= 20 Array(2)= 10 Array(3)= 40 Array(4)= 10

Wie lösche ich nun die gleichen Einträge aus der Array. Bzw. Noch besser wäre es, wenn ich sie in eine andere Array schreiben kann.

Vielen Dank Peter

...zur Frage

Tabelle einlesen mittels Multidimensionalem Array (VBA)?

Guten Morgen zusammen

Ich wollte wissen, wie ich eine Tabelle mittels einem Multidimensionalem Array einlesen kann. Jedoch soll es dynamisch eingelesen werden, also nicht Hardkodiert. Also der Array(1, 1) hätte den Wert "1", der Array(1, 2) hätte den Wert "Aufbau", der Array(2, 1) hätte den Wert "2", usw. Es werden jedoch nur die Zellen eingelesen, welche grün sind. Wenn in der Zelle der Spalte B kein Wert drin steht (z.B. B33) dann wird die ganze Zeile nicht eingelesen.

Ich benötige nur den Anfang, also das Einlesen der Art und noch nicht den Teil mit Projekte.

Ich danke bereits im Vorau

...zur Frage

Java: Array wird nicht richtig ausgegeben?

Hallo,

kann mir bitte wer sagen, warum das Array nicht richtig ausgegeben wird.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen