Tabelle auswerten
#1
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


Angehängte Dateien
.xlsx   Mappe1.xlsx (Größe: 12 KB / Downloads: 7)
Antworten Top
#2
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


Angehängte Dateien
.xlsx   Mappe1.xlsx (Größe: 12 KB / Downloads: 6)
Antworten Top
#3
Hallo,

warum machst du das nicht einfach mit dem Autofilter?
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antworten Top
#4
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?
Antworten Top
#5
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
Antworten Top
#6
Hi Karl
Hier ein Beispiel.
Gruss Charly


Angehängte Dateien
.xlsx   Auswertung.xlsx (Größe: 14,54 KB / Downloads: 10)
Antworten Top
#7
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#8
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


Angehängte Dateien
.xlsx   Mappe1.xlsx (Größe: 17,14 KB / Downloads: 5)
Antworten Top
#9
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste