Microsoft Excel

Herbers Excel/VBA-Archiv

Spalten aus bestimmten Blättern auslesen


Betrifft: Spalten aus bestimmten Blättern auslesen von: Benji
Geschrieben am: 09.09.2019 15:03:49

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
Geschrieben am: 09.09.2019 15:59:38

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

Beiträge aus dem Excel-Forum zum Thema "Spalten aus bestimmten Blättern auslesen"