Clever-Excel-Forum

Normale Version: Tabelle auswerten
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
Hallo,

warum machst du das nicht einfach mit dem Autofilter?
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?
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
Hi Karl
Hier ein Beispiel.
Gruss Charly
Moin!
Ein "wenig" einfacher als Charly CNX:
In H5: =FILTER(A5:D21;TEXT(A5:A21;"JJJJMMMM")=I1&I2)

HIJK
1Jahr2023
2MonatMärz
3
4DatumFahrstreckeZweck der FahrtFahrer
524.03.2023KölnTest 16Fahrer D
625.03.2023MünchenTest 17Fahrer A

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

Gruß Ralf
Vielen Dank Euch

aber irgendwie hab ich das noch nicht so wie ich wollte  22

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
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