Alle Arbeitsblätter nach Wert durchsuchen

Hallo
ich versuche krampfhaft eine Lösung für mein Problem herbei zu führen und komme einfach nicht auf einen Nenner. Könntet ihr mir dabei helfen?
Und zwar besitze ich ein Excel-File mit einem "Hauptarbeitsblatt" sowie mehreren generierten Arbeitsblättern. Auf den generierten Arbeitsblättern befinden sich eine Menge sinnloser Daten. Diese möchte ich gern filtern und auf das Hauptarbeitsblatt (Tabelle1) in eine von mir festgelegten Zelle übertragen.
Die Anzahl der generierten Arbeitsblätter variiert dabei immer wieder, sodass ich eine Lösung benötige, wie ich alle Arbeitsblätter (außer das Hauptarbeitsblatt) nach einen gewissen Wert durchsuchen kann und dann aber den nebenstehenden oder gar darunterstehenden Zellwert ausgeben kann. Da sie generiert sind ist der Aufbau dieser Arbeitsblätter zumindest immer gleich.
Beispiel:
Ich möchte alle Blätter nach dem Wort "Ansprechpartner" durchsuchen und den Zellwert, der 3 Zellen darunter liegt, in meinem Hauptarbeitsblatt in die Zelle bspw A1 kopieren.
das Suchkriterium "Ansprechpartner" befindet sich immer auf der Position A15
Der eigentliche Name vom Ansprechpartner aber befindet sich 3 Zellen darunter (A18). Ist auch festgelegt, da es von einem Programm generierte Seiten sind.
Jetzt soll der Wert von TabelleX.A18 auf TabelleHaupt.A1 kopiert werden.
Hättet ihr da eine Idee für mich?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim ws As Worksheet Dim i As Integer For Each ws In ThisWorkbook.Worksheets If Not ws.Name = "Hauptarbeitsblatt" Then If ws.Cells(15, 1).Value = "Ansprechpartner" Then i = i + 1 Sheets("Hauptarbeitsblatt").Cells(i, 1).Value = ws.Cells(18, 1).Value End If End If Next ws End Sub

Ja dachte mir, dass das etwas kompliziert ist. Leider funktioniert der Upload irgendwie nicht.
Ich hoffe ich kann diesen Link dafür posten?
https://gofile.io/?c=5kP8g8
Das ist eine Beispieldatei die ich eben schnell erstellt habe.
Leider funktioniert aus irgendeinem Grund der Quelltext gerade nicht?!
Als mir den Quelltext geschickt hast ging es eigenartigerweise. Weißt du woran das liegen könnte?
Den Integer i habe ich entfernt, da ich diesen eig. nicht benötige. Dieser war ja nur für die Zeile zuständig. Ich lege aber je Suchbegriff selber fest, wo er die Daten ausgeben soll.
Wie du in der Datei siehst gibt es 3 Reiter namens "Stückliste".
In den einzelnen Reitern findet man jeweils die Begriffe "PLFB 16P", "PNFB 13", "PLFB 15"
Ich möchte dem Programm jetzt irgendwie sagen können: "Bitte such alle Arbeitsblätter ab und such nach einen dieser Begriffe. Welcher davon ist mir egal. Sobald du ihn gefunden hast bleib auf diesem Arbeitsblatt stehen und gib mir die Daten für "Abmessung X", "Abmessung Y", "Farbe" (RAL...) auf meinem Blatt "Stammdaten" wieder aus. Danach kannst du die Suche nach ähnlichen Begriffen abbrechen."
Anbei aber auch mal eine Originale Datei, die mir meine Software so generiert.
https://gofile.io/?c=XhPBrg
Die ist schon etwas umfangreicher, aber noch wirklich winzig (gehalten). Normal geht so ein generiertes File locker über 15 Arbeitslätter mit einen ganzen Haufen sinnloser Daten.

Option Explicit Sub test() Dim strSuch As String, raFund As Range Dim ws As Worksheet, boVorhanden As Boolean strSuch = InputBox("Bitte Suchbegriff eingeben.", "Suche nach") If Not strSuch = vbNullString Then strSuch = Left(strSuch, 4) strSuch = Left(strSuch, 1) & "?" & Right(strSuch, 2) & "*" For Each ws In ThisWorkbook.Worksheets If Not ws.Name = "Hauptarbeitsblatt" Then With ws Set raFund = .Cells.Find(what:=strSuch, LookIn:=xlValues, lookat:=xlPart) If Not raFund Is Nothing Then Worksheets("Hauptarbeitsblatt").Range("A1") = raFund.Offset(3).Value boVorhanden = True Exit For End If End With End If Next ws Else Exit Sub End If If Not boVorhanden Then MsgBox "Suchbegriff nicht gefunden." End If Set raFund = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Alle Arbeitsblätter nach Wert durchsuchen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Arbeitsblätter nach Wert durchsuchen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread