Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle auf weiteres Blatt filtern

Forumthread: Tabelle auf weiteres Blatt filtern

Tabelle auf weiteres Blatt filtern
02.07.2021 10:40:26
Andreas
Hallo liebe Mitglieder,
ich habe eine Frage zur Spiegelung von Tabellen.
Eine Excel-Mappe hat zwei Tabellenblätter. Auf Tabellenblatt 1 stehen in einer Liste mit mehreren Spalten (darunter eine Datumsangabe) unzählige Einträge.
Auf einem zweiten Tabellenblatt möchte ich nun die Einträge des Tabellenblattes 1 in gefilterter Form (zb. nur vom Tag 1.7.) anzeigen, der Rest soll nicht angezeigt werden. Dies soll auch automatisiert geschehen, sobald man auf Blatt 1 etwas hinzufügt oder ändert. Wichtig ist auch zu wissen, dass die Tabelle von Blatt 2 nur eine begrenzte Zeilenanzahl hat, die für die Einträge vom Tag x ausreichend erscheinen.
Hat da jemand eine brauchbare Lösung?
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachgefragt...
02.07.2021 10:50:20
migre
Hallo Andreas,
...um Dir hier zu helfen ist eine Bsp-Mappe von Dir hilfreich und unerlässlich, damit das hier nicht wieder ein Gestochere im Nebel wird. Die Bsp-Mappe sollte Deine beiden Tabellenblätter mit ein paar (!), anonymisierten Bsp-Daten enthalten, ggf. gleich so, dass (D)ein mögliches Wunschergebnis im Tabellenblatt 2 ersichtlich ist.
Insbesondere dass die Tabelle von Blatt 2 nur eine begrenzte Zeilenanzahl hat, die für die Einträge vom Tag x ausreichend erscheinen. ist für uns so nicht nachvollziehbar.
Grds. ist soetwas gut umsetzbar.
LG Michael
Anzeige
AW: Nachgefragt...
02.07.2021 13:00:58
Andy
Damit war gemeint, dass Blatt 1 immer fortlaufende Zeilen hat, die befüllt werden.
Blatt 2 hat zb nur 10 Zeilen, da auf Blatt 1 nicht mehr als 10 x ein Eintrag zum Datum x getätigt wird. Somit reichen für die gefilterten Daten 10 Zeilen.
AW: Nachgefragt...
02.07.2021 13:02:18
Andy
Bin heute Abend wieder am Rechner , dann kann ich ein Beispiel einstellen
Anzeige
AW: Tabelle auf weiteres Blatt filtern
02.07.2021 20:01:55
Andy
Ich habe die Datei mal hochgeladen.
Es sollen die gesammelten Daten von Blatt 1 in der zugehörigen Tabelle auf Blatt 2, 3, 4 usw. gefiltert werden.
Dabei soll keine Datenpflege auf den Blättern 2,3,4 usw erfolgen, sondern nur ein Abbild der Daten aus Blatt 1 zum betreffenden Datum.
Das Datum ist immer der Name des Blattes, was als Filter verwendet werden soll, da künftig neue Blätter nach gleichem Schemata nach Datum
angelegt werden.
https://www.herber.de/bbs/user/146928.xlsx
Anzeige
AW: Tabelle auf weiteres Blatt filtern
03.07.2021 14:27:38
Andy
Hat niemand eine Idee ?
AW: Tabelle auf weiteres Blatt filtern
04.07.2021 10:12:52
Werner
Hallo,
versuch mal:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strDatum As String, ws As Worksheet, boVorhanden As Boolean
Application.ScreenUpdating = False
If Target.Count = 1 Then
If Target.Row > 2 Then
If Not Intersect(Range("A:H"), Target) Is Nothing Then
If WorksheetFunction.CountBlank(Range(Cells(Target.Row, "A"), _
Cells(Target.Row, "H"))) = 0 Then
strDatum = Cells(Target.Row, "A")
For Each ws In ThisWorkbook.Worksheets
If ws.Name = strDatum Then
Range("A2").AutoFilter Field:=1, Criteria1:=strDatum, Operator:=xlAnd
With Worksheets(strDatum)
.Range("I5:O24").ClearContents
With AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns("B:H").Copy
End With
.Range("I5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("A2").AutoFilter
End With
boVorhanden = True
Exit For
End If
Next ws
If Not boVorhanden Then
MsgBox "Fehler: Das Blatt " & strDatum & " ist nicht vorhanden."
End If
End If
End If
End If
End If
End Sub
Das Makro gehört ins Codemodul des Tabellenblattes "Alle Daten".
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Das Makro startet erst dann, wenn im Blatt "Alle Daten" alle Spalten ausgefüllt wurden.
Gruß Werner
Anzeige
AW: Tabelle auf weiteres Blatt filtern
04.07.2021 12:47:26
Andyy
Hallo Werner,
vielen lieben Dank schonmal für dein Engagement.
Funktioniert schonmal, nur leider nicht in der Art und Weise, wie ich mir es vorstellte.
1. Wenn man eine Zeile ausfüllt werden nicht immer zwangsweise alle Felder ausgefüllt. Daher wäre es super, wenn die Aktion vielleicht startet, wenn man das Blatt Alle Daten verlässt bzw. das Datumsblatt aufruft.
2. Wenn ein Datensatz gelöscht wird, verbleibt der Eintrag am Tagesblatt. Analog müsste dann auch der Eintrag gelöscht werden.
Ich brauch sozusagen immer eine 1:1 Spiegelung des Tages aus dem Alle Daten Hauptblatt
Kannst Du mir da vielleicht noch mal helfen?
LG Andy
Anzeige
AW: Tabelle auf weiteres Blatt filtern
04.07.2021 13:01:44
Andyy
Von der Vorstellung müsste es wohl so gehen....
Ich betrete das Tageblatt # Hole die Tagesdaten aus dem Hauptdatenblatt (Alle Daten) # Filter die Tabelle nach dem Tag des TAgesblattes # Lösche die Tabelle auf dem Tagesblatt # Kopier die neuen Tagesdaten hinein. # Ändert sich der Datensatz auf dem Hauptblatt, aktualisiert sich alles wieder beim Betreten.
Anzeige
AW: Tabelle auf weiteres Blatt filtern
04.07.2021 13:41:18
Werner
Hallo,
dann versuch mal so:

Option Explicit
Private Sub Worksheet_Deactivate()
Dim i As Long, ws As Worksheet, strDatum As String, daDatum As Date
Application.ScreenUpdating = False
If ActiveSheet.Name Like "##.##.####" Then
strDatum = ActiveSheet.Name
daDatum = ActiveSheet.Name
With Worksheets("Alle Daten")
If WorksheetFunction.CountIf(.Columns("A"), daDatum) > 0 Then
.Range("A2").AutoFilter Field:=1, Criteria1:=strDatum
With ActiveSheet
.Range("I5:O24").ClearContents
With Worksheets("Alle Daten").AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns("B:H").Copy
End With
.Range("I5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
.Range("A2").AutoFilter
End If
End With
End If
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
AW: Tabelle auf weiteres Blatt filtern
04.07.2021 15:27:02
Andyy
Vielen lieben Dank Werner,
ich glaube so funktioniert es jetzt ! Damit kann ich glaub was anfangen...Danke nochmal
Gerne u. Danke für die Rückmeldung. Und....
04.07.2021 16:54:00
Werner
Hallo,
...wenn Probmel gelöst, dann den Beitrag nicht auf offen stellen.
Gruß Werner
;

Forumthreads zu verwandten Themen

Anfang/Ende von Tabellen auf einem Arbeitsblatt
Tabellen

Hallo,
ich möchte gerne ein Makro haben, das mir die Anfangs- und Endwerte verschiedener Tabellen, auf einen Tabellenblatt, ausgibt.
Habe schon in älteren Beiträgen gesucht, aber leider nichts passendes gefunden.
Hier eine Beispieldatei:
https://www.herber.de/bbs/user/74134.xls<...
26.03.2011 15:37:32
Thread-ID: 1207710
5 Beiträge
Daten aus Tabelle auf einzelne Blätter verteilen
Benjamin


Hallo Gemeinde,
ich habe noch mal ein Problem. Datei dazu:
https://www.herber.de/bbs/user/83506.xlsx
Ich habe letztens von euch Hilfe bekommen als es darum ging,
aus dem Blatt "Protokoll" (Inhalt kommt aus externem Programm),
nur Daten mit heutigem Datum auf das Blatt "...
22.01.2013 10:28:53
Thread-ID: 1295334
7 Beiträge
Teildaten aus Tabelle auf ein anderes Blatt
Tobiax

Hallo!
Ich habe eine Datei mit mehreren Sheets: https://www.herber.de/bbs/user/83561.xlsx
Im Sheet "Gesamt" sind chronologisch sortiert Buchungen von 4 Firmen mit je 2 Werten. Es kann auch sein, daß eine Firma mehrere Einträge pro Tag hat oder mal einen Tag nichts hat.
Jede Firma h...
24.01.2013 20:57:49
Thread-ID: 1295911
2 Beiträge
Tabellenberechnung auf ein Blatt beschränken
Rosenfeld

Hallo zusammen,
ich habe für eine Datei die Berechnungsart:
Application.Calculation = xlCalculationManual
und möchte diese nur für ein bestimmtes Tabellenblatt (z.B. Tabelle49!) ändern in:
Application.Calculation = xlCalculationAutomatic
Geht das? und wie muss ich das anstel...
08.11.2015 16:17:44
Thread-ID: 1456954
9 Beiträge
Tabelle 2x auf ein Blatt A4
Clemens

Hallo,
der Umwelt zu Liebe möchte ich gerne folgendes Problem lösen:
Gibt es eine Möglichkeit, eine Tabelle,die im Original auf A4 eine halbe
Seite im Hochformat darstellen würde beim Ausdrucken 2 x übereinander auszudrucken?
Ich brauche die Tabelle immer 2x und drucke sie dann...
17.02.2016 08:35:35
Thread-ID: 1475929
3 Beiträge
Hyperlink - Cursor auf anderem Blatt zentrieren
Petra

Hallo alle zusammen,
ich habe zwei Tabellenblätter, auf dem ersten werden viele Reihen und Spalten ausgefüllt (eine Art Terminkalender). Auf dem zweiten Blatt habe ich Hyperlinks, die auf die Monate im ersten Blatt verweisen. Das funktioniert auch soweit gut. Nur leider steht dann immer der...
25.02.2018 15:25:24
Thread-ID: 1610960
2 Beiträge
Daten von Tabellenblättern auf 1 Tabellenblatt
Tabellenblättern

Hallo allerseits.
folgendes Problem: ich habe 20 Tabellenblättern (verschiedene Kollektivverträge)mit jeweils unterschiedlichen Werten, jedoch sind die Werte immer in den gleichen Zellen (J7:J90).
Auf dem ersten Tabellenblatt soll dann folgende Funktion entstehen: je nach dem welchen Ko...
27.06.2018 08:55:08
Thread-ID: 1630784
2 Beiträge
Tabellenblätter auf ein Blatt zusammenfassen
Peter

Hallo,
ich brauche mal bitte eure HILFE.
Ich möchte mehrere Tabellenblätter auf einem Tabellenblatt zusammenfügen und immer wenn neue Einträge von einzelnen Personen erstellt werden sollen Sie sich automatisch in der Zusammenfassung integrieren. Sortierung soll dann immer nach "Tag" sei...
18.09.2018 11:22:39
Thread-ID: 1646154
4 Beiträge
Daten aus Tabelle automatisch auf mehrer Blätter v
Ingo

Hllo,
ich versuche mal mein Problem verständlich zu beschreiben (bitte dazu auch meine beigefügte Excel-Datei betrachten):
Ich habe eine Datentabelle mit einer Auflistung verschiedener Inhalte.Diese einzelnen Zeileninhalte möchte ich automatisch auf einzelne neue Blätter in bestimmte Fe...
14.10.2018 21:42:51
Thread-ID: 1651193
2 Beiträge
2 Tabellen auf einem A4 Blatt
Rüdiger

Hallo, mal, eine kurze Frage an die Spezialisten:
Besteht die Möglichkeit zwei Tabellen, die in jeweils zwei getrennten Arbeitsblättern sind auf einer A4 Seite untereinander auszudrucken?
Vielen Dank im voraus Rüdiger
19.08.2003 12:34:43
Thread-ID: 296789
2 Beiträge
Verknüpfung von Tabellenblatt 1 auf Tabellenblatt
Sabine Haber
hallo,

ich hoffe auf schnelle Hilfe. Mein Problem: Habe Tabellenblätter angelegt von KW 1 bis KW 52. z.B. KW 2 soll Summe von KW 1 übernehmen, KW 3 soll Summe von KW 2 übernehmen usw. Formel lautet z.B. =D21+'KW 2'!D101 diese weißt aber Fehlerhaft Summen auf. Warum?
Würde mich über schnel...
06.10.2003 16:19:00
Thread-ID: 319577
4 Beiträge
Tabellenblätter auf ein Blatt drucken
Christine

Hallo,
ich versuche die Daten von 2 verschiedenen Tabellenblättern zusammen auf eine A4 Seite zu drucken, allerdings erfolglos, bis auf einmal, aber da weiß ich nicht welchen zauberknopf ich da gedrückt habe.
Ich habe 2 Tabellen, die ich auf jeweils halbseitig (2 Seiten pro Blatt) auf e...
03.09.2004 17:41:56
Thread-ID: 480082
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige