Tabelle auswerten

[karl1965]

Hallo,

hab wieder mal ein Problem mit einer Formel

kann mir hier jemand weiterhelfen.

In meinen Beispiel sind in der Tabelle A5 bis D21 die Beispieldaten

In der Zelle I1 gebe ich das Jahr ein und in I2 das Monat als Filterkriterium ein

In der Spalte H bis K sollten dementsprechend die Datensätze für das entsprechende Monat erscheinen.

Ist echt super wenn hier jemand fit ist und mir weiterhelfen kann

DANKE SCHON MAL

[karl1965]

Hallo,

hab wieder mal ein Problem mit einer Formel

kann mir hier jemand weiterhelfen.

In meinen Beispiel sind in der Tabelle A5 bis D21 die Beispieldaten

In der Zelle I1 gebe ich das Jahr ein und in I2 das Monat als Filterkriterium ein

In der Spalte H bis K sollten dementsprechend die Datensätze für das entsprechende Monat erscheinen.

Ist echt super wenn hier jemand fit ist und mir weiterhelfen kann

DANKE SCHON MAL

[Klaus-Dieter]

Hallo,

warum machst du das nicht einfach mit dem Autofilter?

[rate mit]

Hallo,

hast du dir schon einmal die FILTER - Funktion angesehen??? (=FILTER(....))




Nachtrag:
Diese Anfrage gibt es doppelt....  Tabelle auswerten (clever-excel-forum.de) - wie nennt man Crossposting im selbem Forum?

[Egon12]

Hallo,

Vorschlag in VBA:
ins Modul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    If Not Intersect(Target, Range("I1:I2")) Is Nothing Then
        With Application
            .EnableEvents = False
            .ScreenUpdating = False
        End With
        Range("H5:K" & Cells(Rows.Count, 8).End(xlUp).Row + 1).ClearContents
        For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
            If Format(Cells(i, 1), "mmmmyyyy") = Range("I2") & Range("I1") Then
                Range("A" & i & ":D" & i).Copy
                Cells(Cells(Rows.Count, 8).End(xlUp).Row + 1, 8).PasteSpecial
            End If
        Next i
        With Application
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    End If
End Sub

Sollte die Liste sehr lang sein, braucht es u.U. den Weg via Array

Gruß Uwe

[Charly CNX]

Hi Karl
Hier ein Beispiel.
Gruss Charly

[RPP63]

Moin!
Ein "wenig" einfacher als Charly CNX:
In H5: =FILTER(A5:D21;TEXT(A5:A21;"JJJJMMMM")=I1&I2)

	H	I	J	K
1	Jahr	2023
2	Monat	März
3
4	Datum	Fahrstrecke	Zweck der Fahrt	Fahrer
5	24.03.2023	Köln	Test 16	Fahrer D
6	25.03.2023	München	Test 17	Fahrer A

Zelle	Formel
H5	=FILTER(A5:D21;TEXT(A5:A21;"JJJJMMMM")=I1&I2)

Gruß Ralf

[karl1965]

Vielen Dank Euch

aber irgendwie hab ich das noch nicht so wie ich wollte 

Als Anlage lade ich nochmal ein Beispiel hoch

in N2 und N3 soll der Datumsbereich festgelegt werden und in Spalte M bis W ausgegeben werden

Diese Datei soll mit Excel 2018 kompatibel sein geht leider nicht mit =Filter()

Kennt sich hier wer mit Array Formeln aus wäre dass nicht damit möglich ?

DANKE SCHON MAL

[steve1da]

Hola,

Code:

=WENNFEHLER(INDEX(A$5:A$44;AGGREGAT(15;6;ZEILE($A$5:$A$44)-4/(($A$5:$A$44>=$N$2)*($A$5:$A$44<=$N$3));ZEILE(A1)));"")

Gruß,
steve1da