Auswertung aus Datenbank filtern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
wenn der Spaltenaufbau der beiden Tabellen gleich wäre...
dann so
- Rechtsclick auf den Tabellenblattreiter von "Tabelle Filtern NameDatum"
- Code anzeigen
- Makro dort einfügen
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler Dim TB1, TB2, LR1 As Double, LR2 As Double, EZ As Integer Dim NName As String, Von As Double, Bis As Double, Anz As Double Set TB1 = Sheets("Datenbank") Set TB2 = Sheets("Tabelle Filtern NameDatum") EZ = 5 'ab Zeile If Not Intersect(Range("C1", "F1:F2"), Target) Is Nothing Then NName = TB2.Range("C1") Von = CDbl(TB2.Range("F1")) Bis = CDbl(TB2.Range("F2")) If NName <> "" And Von > 0 And Bis > 0 Then If TB1.AutoFilterMode Then TB1.AutoFilterMode = False ' Autofilter ausschalten LR1 = TB1.Cells(TB1.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte LR2 = WorksheetFunction.Max(TB2.Cells(TB2.Rows.Count, 1).End(xlUp).Row, EZ) 'Reset Application.EnableEvents = False TB2.Range(TB2.Rows(EZ), TB2.Rows(LR2)).ClearContents With TB1.Range("$A$1:$W$" & LR1) 'Prüfen, ob Werte für diese Kriterien vorliegen Anz = WorksheetFunction.CountIfs(TB1.Columns(1), NName, _ TB1.Columns(2), ">=" & Von, _ TB1.Columns(2), "<=" & Bis) If Anz > 0 Then .AutoFilter Field:=1, Criteria1:=NName .AutoFilter Field:=2, Criteria1:=">=" & Von, Operator:=xlAnd, _ Criteria2:="<=" & Bis 'gefilterte Zeilen kopieren .Offset(1).Copy Destination:=TB2.Cells(EZ, 1) Else MsgBox "Keine Daten vorhanden" End If TB1.AutoFilterMode = False End With End If End If '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True If Err.Number <> 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub
LG UweD

Hallo Pat,
ich würde es als Pivottabellenbericht (alle gewünschten Spalten im Zeilenbereich anordnen) lösen.
Allerdings die Filterwerte für Name und Datum direkt in den DropDowns des Pivotberichtes auswähle, nicht in separaten Zellen.
Userbild

Tabelle Filtern NameDatumFormeln der Tabelle

Zelle	Formel
C1	=A5
F1	=MIN(B:B)
F2	=MAX(B:B)

Datengültigkeit der Tabelle

Zelle	Zulassen	Daten	Eingabe 1	Eingabe 2
C1	Liste		=name1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Wenn du die Filterwerte in separaten Zellen eingeben/auswählen willst, dann benötigst du Makros, um die Filter im Pivotbericht zu setzen.
Eine weitere Möglichkeit wäre der erweiterte Filter.
Da hab ich aber fast immer Schwierigkeiten, die gefilterten Daten auf einem separaten Blatt darzustellen.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread