VBA - Text finden und aus Tabelle ausgeben

Hallo zusammen,
ich habe eine kniffeliges VBA Thema, das ich mit meinen wenigen VBA Kenntnissen nicht hinbekomme:
Im Tabellenblatt1 gibt es eine Tabelle mit Überschriften und dazugehörigen Werten darunter. Im Tabellenblatt2 gibt es eine Liste mit Text in jeder Zeile in der Wörter aus der Tabelle versteckt enthalten sind.
Die Aufgabe wäre nun, das VBA in jeder Zeile nach einem Wort aus der Tabelle in TB1 sucht und wenn er eines identifiziert hat, dann in der Spalte neben der Zeile, die dazugehörige Überschrift aus der Tabelle hinschreibt, wo er das Wort gefunden hat.
Im Anhang mal die Tabelle dazu. Und in Tabelle3 ist es gezeigt wie es nach der VBA Ausführung aussehen soll, damit es verständlicher ist.
https://www.herber.de/bbs/user/105619.xlsx
Wer kann mir hier helfen?
Danke
Maxaniac

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Mach() Dim WS1 As Worksheet, WS2 As Worksheet Dim iZeile1 As Long, iZeile2 As Long, iSpalte As Long Dim bFound As Boolean Set WS1 = Worksheets("Tabelle1") Set WS2 = Worksheets("Tabelle2") Application.ScreenUpdating = True For iZeile1 = 2 To WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row bFound = False For iSpalte = 1 To WS1.Cells(1, WS1.Columns.Count).End(xlToLeft).Column For iZeile2 = 2 To WS1.Cells(WS1.Rows.Count, iSpalte).End(xlUp).Row If InStr(1, UCase(WS2.Cells(iZeile1, 1)), UCase(WS1.Cells(iZeile2, iSpalte))) > 0 _ Then WS2.Cells(iZeile1, 2) = WS1.Cells(1, iSpalte) bFound = True Exit For End If Next iZeile2 If bFound Then Exit For Next iSpalte Next iZeile1 End Sub

Hallo ChrisL,
jetzt hab ich mir mal den Code genauer angeschaut. Ich möchte ja lernen und deshalb möchte ich das auch verstehen. Was mir nicht so ganz klar ist für was die fett markierten folgenden Zeilen gut sind?
Ich hab diese mal ganz frech rausgeschmissen und wenn ich das mache, dann funktioniert das Script noch genauso (zumindest was man sehen kann)?

Sub Mach()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile1 As Long, iZeile2 As Long, iSpalte As Long
Dim bFound As Boolean
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
Application.ScreenUpdating = True
For iZeile1 = 2 To WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row
bFound = False
For iSpalte = 1 To WS1.Cells(1, WS1.Columns.Count).End(xlToLeft).Column
For iZeile2 = 2 To WS1.Cells(WS1.Rows.Count, iSpalte).End(xlUp).Row
If InStr(1, UCase(WS2.Cells(iZeile1, 1)), UCase(WS1.Cells(iZeile2, iSpalte))) > 0   _
_
Then
WS2.Cells(iZeile1, 2) = WS1.Cells(1, iSpalte)
 bFound = True
Exit For
End If
Next iZeile2
If bFound Then Exit For
Next iSpalte
Next iZeile1
End Sub

Danke
Maxanaic

Beliebteste Forumthreads (12 Monate)

VBA - Text finden und aus Tabelle ausgeben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

339 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Text finden und aus Tabelle ausgeben

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

339 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread