Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.02.2025 20:21:06
Warum muss ich das Tabellenblatt aktivieren
15.02.2025 18:43:21
Textteil extrahieren
15.02.2025 17:52:36
power query, Quelldatei wird geändert
15.02.2025 14:45:42
Formel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus mehreren Sheets konsolidieren

Kategorie
Datenverarbeitung
Tags
#datalink #datenhandhabung #suchen
Relevante Fragen
Anzeige

Forumthread: Daten aus mehreren Sheets konsolidieren

Daten aus mehreren Sheets konsolidieren
Detlef
Hallo,
ich möchte aus meheren Sheets Daten konsolidieren.
Ich bekomme regelmäßig eine Excel Datei, in der auf mehrere Sheets verteilt für mich relevante Daten sind. Da es sehr mühsam ist, diese einzeln herauszusuchen, stelle ich mir Folgendes vor:
Ich gebe meinen Suchbegriff ein. Excel durchsucht danach auf allen Sheets die Spalte A und kopiert bei einem Treffer die jeweilige Zeile zusammen mit der Überschriftszeile 1 in eine neue Excel Datei.
Geht das?
Vielen Dank und viele Grüße, Detlef
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten aus mehreren Sheets konsolidieren
10.12.2009 21:09:24
Beni
Hallo Detlef,
öffne die Datei mit den Daten und starte dieses Makro in einer separaten Arbeitsmappe.
Gruss Beni
https://www.herber.de/bbs/user/66501.xlsm 
Sub Daten_aus_mehreren_Sheets_konsolidieren()
Wert = InputBox("Suchwert eingeben", "Titel")
W = CStr(Wert)
actWB = ActiveWorkbook.Name
For wb = 1 To Workbooks.Count
If wb = 3 Then MsgBox "Es dürfen nur zwei Workbooks geöffnet sein": Exit Sub
If Not Workbooks(wb).Name = actWB Then datWB = Workbooks(wb).Name
Next wb
Workbooks.Add
neuWB = ActiveWorkbook.Name
Windows(datWB).Activate
Set neuWB = Workbooks(neuWB).Sheets(1)
For sh = 1 To Sheets.Count
With Workbooks(datWB).Sheets(sh)
ls = .Cells(1, Columns.Count).End(xlToLeft).Column
Range(.Cells(1, 1), .Cells(1, ls)).Copy neuWB.Cells(1, 1)
For Z = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
nz = neuWB.Cells(Rows.Count, 1).End(xlUp).Row + 1
If CStr(.Cells(Z, 1)) = W Then
Range(.Cells(Z, 1), .Cells(Z, ls)).Copy neuWB.Cells(nz, 1)
End If
Next Z
End With
Next sh
End Sub

Anzeige

Forumthreads zu verwandten Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Datenaustausch zwischen Userformen
Peter

Hallo zusammen!
Von Userform1 aus (modal gestartet) wird die Userform2 gestartet. Beim Verlassen dieser mit Query Close hätte ich gerne in einem Textfeld auf Userform1 eine Statusmeldung (z.B: "Abbruch mit X").
Wie kann ich bei Userformen (beide sichtbar, modal gestartet) Daten hin und...
11.08.2008 16:46:00
Thread-ID: 1000912
5 Beiträge
Anzeige
Daten holen aus anderen Tabellenblättern
Albin

Hallo miteinander
Ich habe ein kleines grosses Problem. Muss bis ende Woche das Problem gelöst haben und ich weiss einfach nicht weiter.
In Tabelle 9000 Zelle I15 hab ich folgende Formel:
=SUMMEWENN('m-9000'!$G$1:$G$1869;B15;'m-9000'!$R$1:$R$1869)
Das heisst, ich gehe mit dies...
11.08.2008 18:57:30
Thread-ID: 1000967
2 Beiträge
Anzeige
Geometriereihe aus Geadaten erstellen (Winkel)
Mindjogger

Servus,
eine Problem aus der Praxis der Soolartechnik:
welchen Abstand muß ich haben, damit eine Verschattung nicht stattfindet?
Ich habe Module der Größe 80x160cm.
In welchem Abstand muß ich diese Setzen, wenn
- der Aufstellwinkel beliebig (zwischen 15 ind 40 Grad) sein k...
13.08.2008 21:55:00
Thread-ID: 1001668
6 Beiträge
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Daten auswerten
Karsten

Tach zusammen,
ich möchte eine Meßreihe auswerten. An verschiedenen Tagen bekomme ich Meßwerte.
Nun möchte ich ich auswerten:
1. Wieviel mal der Wert 1 das Ergebnis 1 gehabt hat.
2. An wieviel Tagen gemessen wurde.
Zur Verdeutlichung habe ich eine Probe Datei hochgeladen.
24.08.2008 09:28:16
Thread-ID: 1004211
4 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Daten aus Bereich filtern/auswerten Harte Nuss!
tekiela

Hallo,
ich habe folgende Datei hochgeladen:
Die Datei https://www.herber.de/bbs/user/55073.xls wurde aus Datenschutzgründen gelöscht
Ich muss Daten aus dem jeweiligen Monat auswerten. Geht speziell um Wochenenden und Feiertage in Schleswig-Holstein. Wieviel Tage (Sa.,So. + evtl. Fe...
31.08.2008 20:58:00
Thread-ID: 1006262
8 Beiträge
Daten aus verschiedene Zeilen nach Datenbank
Jessica

Hallo, liebe Excelfreunde,
irgendwie habe ich wieder einer solcher Tage, da komme ich nicht an die Lösung.
Ich möchte eine Datenbank aus den vorhandenen Daten machen.
Das Problem, die Daten stehen (in gleichmässigen Abständen) in verschiedenen Zeilen:
Spalte
D
Zeilen
...
08.09.2008 16:12:00
Thread-ID: 1008191
7 Beiträge
Daten aus geschlossener Mappe holen
WalterK

Hallo,
den folgenden Code von Josef Ehrensberger habe ich in der Recherche gefunden. Er kopiert aus allen Mappen, die sich in einem vorgegebenen Ordner befinden, die Zeile 2 der Tabelle1 und das funktioniert auch bestens.
Ich bräuchte allerdings eine (vielleicht) kleine Änderung, und zw...
08.09.2008 22:29:57
Thread-ID: 1008261
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige