Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter nach Kriterien

Tabellenblätter nach Kriterien
23.05.2021 14: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!

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter nach Kriterien
23.05.2021 16: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 12: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 11: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 13: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
AW: Tabellenblätter nach Kriterien
27.05.2021 14: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 14:09:34
EtoPHG

300 Forumthreads zu ähnlichen Themen

Exceldatei automatisch in mehrere Dateien zerlegen
Sieben

Hallo Zusammen,
eine Frage zur Automatisierung von Arbeiten in Excel.
Habe jetzt eine Datei bekommen, in der pro Land ein Arbeitsblatt erstellt wurde. Ich möchte diese Arbeitsblätter einzeln als Exceldateien abspeichern.
Gibt es hier eventl. per VBA die Möglichkeit dazu, ohne jedes...
28.09.2009 15:33:46
Thread-ID: 1106048
3 Beiträge
Anzeige
Inhalt einer Tabelle in mehreren Tabellen anzeigen
Ivek

Hallo Community!
Ich habe wieder ein Problem! Ich will Inhalte aus der "Tabelle1" in weitere Tabellen (Tabelle2, Tabelle3, Tabelle4...) anzeigen. Dies funktionier auch. Ich habe dazu diesen Code verwendet:
Worksheets("ET").Activate
Worksheets("ET").Rows(i).Select
Selection.Copy<...
21.08.2012 14:31:26
Thread-ID: 1275882
7 Beiträge
Datei in mehrere Datei aufteilen
Peter

Liebes Forum,
ich habe eine einfache Datei (TestX). Nun soll diese Datei (TestX) per Makro auf mehrere Dateien z.B. Test1, Test2 und Test3 aufegeteilt werden wobei die Anzahl der Texte und somit dar Dateien variabel ist.
Bitte um Eure Hilfe.
TextX: https://www.herber.de/bbs/user/88...
18.12.2013 12:03:51
Thread-ID: 1342976
5 Beiträge
Anzeige
Tabelle nach mehreren Kriterien durchsuchen
Uli

Hallo,
ich habe ein Tabellenblatt mit 20 Spalten. Dazu habe ich eine Userform entworfen, die diese Tabelle nach mehreren Kriterien durchsuchen und die zutreffenden Zeilen in eine neue Tabelle schreiben soll.
Die Suchkriterien betreffen Spalte 12, 17 und 19.
Beispiel: Spalte 12 trif...
23.07.2015 12:29:09
Thread-ID: 1438067
3 Beiträge
Worksheet in einzelne Dateien speichern
th-dx100

Hallo Zusammen,
habe eine Liste mit ca.10000 Einträgen. Diese habe ich per Makro in einzelne Worksheets getrennt.
(Nach einen Suchkriterium).
Jetzt möchte ich die einzelnen Blätter in einzelnen Dateien abspeichern.
Wie kann ich das machen? Habe keinen Ansatz gefunden das in VBA...
19.10.2015 19:55:28
Thread-ID: 1453205
2 Beiträge
Tabelle nach Kriterien zusammenfassen
muehli

Hallo zusammen,
ich habe ein Problem, bei dem ich nicht weiter komme.
Ich habe eine Tabelle (siehe Anhang), die ich gerne zusammengefasst hätte.
Das Ganze soll per Button realisiert werden (VBA).
https://www.herber.de/bbs/user/100991.xlsx
Es gibt hier zwei Bedigungen, nach d...
23.10.2015 13:04:24
Thread-ID: 1453979
4 Beiträge
Tabelle nach Kriterien gruppieren
Olga
Hallo Spezialisten,
Tabelle gem. Vorgaben und wenn Titel fett gruppieren.
In Anlage meine Tabelle betreffend gruppieren.
Danke für Eure Hilfe!
Gruß
Olga
https://www.herber.de/bbs/user/102470.xlsm
29.12.2015 06:21:45
Thread-ID: 1466268
2 Beiträge
Tabelle in mehreren aufteilen
Mamo

Hallo,
ich rauche eure Hilfe;
Ich habe mehrere Tabellen, gleich aufgebaut, in einem Excelblatt. Nun möchte ich jede Tabelle in einem Blatt speichern. Das Blatt soll benannt werden nach der Bezeichnung der einzelnen Tabellen, was in Spalte B direkt über die Tabelle (Mathematik, usw) ste...
29.06.2016 12:31:18
Thread-ID: 1501556
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
6
4
17
2
1
3
1
10
2
18
27
13
9
5
2
4
9
3
2
8
2
2
5