Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1504to1508
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
Inhaltsverzeichnis

Suche und Ausgabe von Info aus unbekannten Tab

Suche und Ausgabe von Info aus unbekannten Tab
20.07.2016 08:22:13
Info
Ich möchte mit VBA eine Suchfunktion erstellen die sich in einem Tab befindet.
Der dort eingefügte Begriff kommt in der ganzen Datei nur einmal vor, allerdings ist unbekannt in welchem der vielen Tabs.
Der Output den ich erhalten möchte ist dann aber nicht in welchem Tab sich der Begriff befindet, sondern (ähnlich eines SVerweis) die Information die sich 3 in der selben Zeile, aber drei Spalten rechts von dem Suchbegriff befindet.
Bitte um Hilfe
(Mit einfachen WENN() / ODER() / SVERWEIS() würde ich es auch hinbekommen, aber ich fürchte, dass die große Verschachtelung die Datei zu einem riesen Speichervolumen bringen würde...)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche und Ausgabe von Info aus unbekannten Tab
20.07.2016 09:03:03
Info
Hi
das geht in meinem Test so
Sub test()
Dim WS As Worksheet
Dim Suchergebnis As Range
Dim strSuche As String
strSuche = "Suchbegriff"
For Each WS In ThisWorkbook.Worksheets
Set Suchergebnis = WS.Cells.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
MsgBox Suchergebnis.Offset(0, 3).Value
End If
Next
End Sub

MfG Tom
AW: Suche und Ausgabe von Info aus unbekannten Tab
20.07.2016 10:18:23
Info
Super gut schonmal.
Aber wenn ich das richtig verstehe, würde ich hier "Suchbegriff" als festen Parameter haben und immer nur nach dem einen, festgelegten Begriff suchen.
Ich möchte aber, dass ich immer und immer wieder andere Begriffe in einem Feld eingebe nach denen dann gesucht wird.
Beispielsweise im Tab namens "Suchen" im Feld C3 ...
Anzeige
AW: Suche und Ausgabe von Info aus unbekannten Tab
20.07.2016 10:25:32
Info
Hi
so wird in allen Blättern außer im Blatt "suchen" nach dem
Begriff aus Zelle "C3" gesucht
Sub test()
Dim WS As Worksheet
Dim Suchergebnis As Range
Dim strSuche As String
strSuche = Worksheets("suchen").Range("C3")
For Each WS In ThisWorkbook.Worksheets
Set Suchergebnis = WS.Cells.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing And WS.Name  "suchen" Then
MsgBox Suchergebnis.Offset(0, 3).Value
End If
Next
End Sub

MfG Tom

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige