Herbers Excel-Forum - das Archiv
Spalten aus bestimmten Blättern auslesen
- Spalten aus bestimmten Blättern auslesen von Benji vom 09.09.2019 15:03:49
- AW: Spalten aus bestimmten Blättern auslesen - von fcs am 09.09.2019 15:59:38
- AW: Besten Dank! - von Benji am 09.09.2019 17:12:07
- AW: Besten Dank! - von Benji am 09.09.2019 17:17:04
- AW: Besten Dank! - von fcs am 09.09.2019 17:51:24
- AW: Besten Dank! - von Benji am 10.09.2019 07:00:56
Betrifft: Spalten aus bestimmten Blättern auslesen
von: Benji
Grüß Euch liebe Helfer,
Ich habe eine größere Datei mit mehreren verschiedenen Blättern.
Eine ganze Reihe von Blättern fängt mit den gleichen 1. 3 Buchstaben an. BSP: ABC1 - ABC2 - ABC3... Die Anzahl dieser Blätter wird auch immer mehr. Es kommen immer wieder welche dazu. Die Blätter mit ABC... sind alle gleich aufgebaut.
Ich würde gern in einem weiteren Tabellenblatt eine Übersicht erstellen, wenn in den den Blättern die mit ABC beginnen, in deren Spalte C ein bestimmter Wert vorkommt. Hier kann dann die komplette Zeile angezeigt werden.
Wie kann ich das am Besten umsetzten?
Vielen Dank und Grüße,
Benji
Betrifft: AW: Spalten aus bestimmten Blättern auslesen
von: 1712034.html
Hallo Benji,
ich denke dass eine Lösung per Makro am effektivsten ist.
Das entsprechende Makro klappert in allen ABC-Blättern die Werte in SPlate C ab und kopiert bei Übereinstimmung mit dem Suchwert die Zeilen in die Übersicht.
Zum Beginn des Makros werden die Altwerte in der Übersicht gelöscht.
Hier eine Beispiel-Datei mit einem entsprechenden Makro.
https://www.herber.de/bbs/user/131932.xlsm
LG
Franz
Betrifft: AW: Besten Dank!
von: 1712055.html
Geschrieben am: 09.09.2019 17:12:07
Hallo Franz,
wunderbar, so hab ich mir das vorgestellt.
Besten Dank!
Grüße Benji
Betrifft: AW: Besten Dank!
von: 1712057.html
Geschrieben am: 09.09.2019 17:17:04
Hallo Franz,
eine zusätzliche Frage hätte ich noch.
Kann man hier noch einbauen, dass er mir in Spalte T den Namen des Tabellenblattes anzeigt, aus dem der Eintrag stammt?
Grüße
Betrifft: AW: Besten Dank!
von: 1712063.html
Geschrieben am: 09.09.2019 17:51:24
Hallo Benji,
ergänze im entsprechenden Abschnitt des Makro die Zeile zum Eintragen des Blattnamens:
If .Cells(Zeile_Q, 3).Value = varSuch Then
Zeile_Z = Zeile_Z + 1
.Rows(Zeile_Q).Copy Destination:=wksZ.Cells(Zeile_Z, 1)
wksZ.Cells(Zeile_Z, 20).Value = .Name
End If
Franz
Betrifft: AW: Besten Dank!
von: 1712143.html
Geschrieben am: 10.09.2019 07:00:56
Guten Morgen Franz,
super, dank Dir recht herzlich!
Grüße Benji