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

Tabellenblätter nach Kriterien

Forumthread: Tabellenblätter nach Kriterien

Tabellenblätter nach Kriterien
23.05.2021 16:30:44
Peter
Hallo zusammen!
Ich bin neu hier und hoffe, Ihr könnt mir bei einem VBA-Problem weiterhelfen.
Ich habe eine Arbeitsmappe mit über 100 Tabellenblättern. Nun möchte ich, dass ich mittels VBA mit einem Suchbefehl z.B. "Finanzen" alle Tabellenblätter, die jeweils in der Zelle "C3" oder "C4" die Bezeichnung "Finanzen" haben, als neue Arbeitsmappe ausgeben.
Hatte jemand eine Idee wie ich das anstellen könnte?
Herzlichen Dank für Eure Hilfe!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter nach Kriterien
23.05.2021 18:48:46
ralf_b 

Sub neueMappe()
Dim ws, i, nam, strWs(), suchwort, Antwort
nam = ThisWorkbook.Name: nam = Split(nam, ".")
nam = ThisWorkbook.Path & "\"  '& nam(0)
suchwort = ThisWorkbook.Worksheets("Start").Range("A1") 'Suchwort in A1
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Start" Then
If ws.Range("C3").Value = suchwort Or ws.Range("C4").Value = suchwort Then
i = i + 1
ReDim Preserve strWs(1 To i)
strWs(i) = ws.Name
End If
End If
Next ws
'Blätter auswählen
ThisWorkbook.Sheets(strWs).Copy
Application.DisplayAlerts = False
nam = nam & "Test" & Format(Now, "_DDMMYYYY_hhmmss") 'dateiname
ActiveWorkbook.Close SaveChanges:=True, Filename:=nam
Application.DisplayAlerts = True
ThisWorkbook.Sheets(1).Select
End Sub

Anzeige
AW: Tabellenblätter nach Kriterien
24.05.2021 14:11:20
Hartmann
Herzlichen Dank Ralph, für die schnelle Antwort.
Das funktioniert super, genau wie ich es mir vorstellte.
Lieber Grusse, Peter
AW: Tabellenblätter nach Kriterien
27.05.2021 13:05:16
Peter
Ich habe noch eine Anschlussfrage an euch Experten.
Was muss ich im VBA anpassen damit auch Tabellenblätter in die neue Mappe kopiert werden, die nicht nur "Finanzen" im Feld C3 oder C4 haben, sondern auch Tabellenblätter die Doppelnahmen zum Beispiel "Finanzen / Personal" haben.
Konkret, so dass alle Tabellenblätter in eine neue Arbeitsmappe kommen, die den Begriff "Finanzen" in C3 oder C4 enthalten.
Vielen Dank für eure Hilfe.
Lieber Gruss, Peter
Anzeige
AW: Tabellenblätter nach Kriterien
27.05.2021 15:08:18
EtoPHG
Hallo,
Ersetze:

If ws.Range("C3").Value = suchwort Or ws.Range("C4").Value = suchwort Then
durch

If Instr(suchwort, ws.Range("C3").Text) Or Instr(suchwort, ws.Range("C4").Text) Then
Gruess Hansueli
Anzeige
AW: Tabellenblätter nach Kriterien
27.05.2021 16:05:02
GerdL
Moin,
besser umgedreht.

If InStr(ws.Range("C3").Text, suchwort) Or InStr(ws.Range("C4").Text, suchwort) Then
Gruß Gerd
Danke Gerd, (mein Hirn setzt Kalk an) (owT)
27.05.2021 16:09:34
EtoPHG

Forumthreads zu verwandten Themen

Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 13:17:51
Thread-ID: 1014965
3 Beiträge
Daten auf ein oder mehrere Blätter verteilen
Boris

Hallo Forum,
ich habe eine sehr lange Preisliste (kommt aus einer Filemaker-DB) mit je
Artikelnummer, Preis und Warengruppe. Bislang habe ich das mühsam mit
Word zusammengebastelt, damit es so aussieht:
http://www.boriswinter.de/Preisliste_demo.pdf
Ok, nicht lachen, ich ka...
11.07.2009 15:32:27
Thread-ID: 1087858
3 Beiträge
aus mehreren Datesätze EINER machen
Joachim

Hallo zusammen,
vielleicht kann mir jemand helfen: Ich habe eine Excelmappe mit Daten ab Zeile 15.
Jede Zeile ist immer ein Datensatz. Ein Datesatz sieht so aus (ich nenn nur mal die betroffenen Zellen):
Spalte D :
reiner Text (string) zB: "LAGER"
Spalte E :
Preis (Zahl...
14.09.2009 16:27:52
Thread-ID: 1102643
13 Beiträge
Anzeige
Aus mehreren Tabellenblätter eine machen
Sascha

Hallo ihr
Ich muss aus mehreren Tabellenblättern eine machen um dann die Daten mittels einer Pivot Tabelle auszuwerten.
Diese Tabellenblätter haben alle den gleichen Kopftext, einzig die darunterliegenden Daten sind verschieden ;)
Nun muss z.B. Tabelle 1, Tabelle 2 usw. in Tabelle...
08.07.2010 00:19:25
Thread-ID: 1166034
2 Beiträge
Liste auf mehrere Arbeitsblätter aufteilen
Rene

Hallo,
ich habe eine lange Liste, die auf 20 bis 30 Arbeitsmappen aufgeteilt werden müssen.
zB alle Zeilen mit einem bestimmten Text oder Zahl in Spalte A.
In einer weiteren Zelle steht die Versionsnummer des Blattes, zB in D1: Version 1
In die bereits vorhandenen Arbeitsblätte...
11.07.2010 13:04:07
Thread-ID: 1166246
2 Beiträge
Zeichenfolge auf 2 Zellen aufteilen
reiner

hallo Leute,
in einer Tabelle sind in Spalte L Telefonnummern gespeichert in der Form: "555555" bzw. "030/66666";
also mit oder ohne deutsche Vorwahlnummer in jeder beliebigen Zeichenlänge.
Ich will die Zeichenfolge auftrennen; in 1 Spalte sollen nur die Vorwahlnummern und in der 2....
03.03.2011 10:09:13
Thread-ID: 1203976
5 Beiträge
Datenbestand auf mehrere Tabellenblätter verteilen
Kai

Hallo
ich habe im Tabellenblatt "Bestand" Daten drin stehn. Jede Zeile ist praktisch ein Datensatz.
Alle DS haben in der Spalte C einen Status drin stehn. einer davon ist zB "NEU"
Nun möchte ich mit einem Makro das Tabellenblatt "Bestand" durchlaufen. Überall, wo in der Spalte C = "...
05.03.2011 06:46:36
Thread-ID: 1204011
1 Beitrag
Tabelle nach Kriterien auslesen und addieren
Alex

Hallo liebe Excelfreunde,
leider kenne ich mit VBA Programmierung nicht aus und habe folgendes Problem:
https://www.herber.de/bbs/user/74855.jpg
In der ersten Tabelle sind Produkte mit deren Maschinendurchlauf und Zeiten definiert.
In den Spalten ist das Datum mit der dazugehöri...
16.05.2011 16:57:53
Thread-ID: 1214692
6 Beiträge
Aufteilen einer Tabelle nach dem Inhalt von Zellen
komander

Hi
Ich suche nach einer möglichkeit einen kompletten datensatz nach dem Inhalt einer bestimmten spalte auf verschiedene blätter aufzuteilen, also z.b. alle Männer auf blatt1 und alle Frauen auf blatt2. In einer Spalte steht schon für Männer ein M und für Frauen ein w. Es wäre gut, wenn man...
30.05.2002 19:33:13
Thread-ID: 124874
3 Beiträge
seriendruck auf 2 Seiten
Karsten

Hallo erstmal, denn ich habe mich gerade angemeldet.
Stand: Bis vor 5 Jahren habe ich etliche Tabellen für meine Arbeit mit Excel gemacht ... danach nichts mehr. VHS-Kurs + selbst + nicht auf den Kopf gefallen + Foren - kein Makro, kein VBA.
Jetzt fragte mich mein Nachfolger: Kannst du...
17.04.2012 10:42:39
Thread-ID: 1259524
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum