Untersuche ob Wort aus einer Spalte in der Zelle

Guten Abend! Vermutlich leicht zu lösen aber ich habe schon sehr lange nicht mehr mit Excel gearbeitet.....
DIe Aufgabe die ich lösen muß ist wie folgt:
In Zelle B5423 steht ein Text der überprüft werden soll - nach folgenden Kriterien:
WEnn irgendwo im Text der Zelle B5423 eines der Wörter aus dem Zellenbereich $L$1:$L$70 steht gebe in Zelle A5423 den entsprechenden ZeilenWert aus dem Zellenbereich $M$1:$M$70 aus.
Mit VBN vermutlich leicht zu lösen.... kenn mich aber nicht damit aus ...
Mit SVerweis bin ich im Kreis gegangen....
Mit =WENN(ZÄHLENWENN(;;;) ebenfalls ......
Hier ein Beispiel mit DAten aus der Spalte L und M:
Billa Lebensmittel
Lutz Haushalt
Kelag Energie
ÖBB Transport
und dem zu überprüfenden Text aus Zelle B5423: "Vertrag 3845 Kelag"
ERgebnis in Zelle A5423 soll sein: Energie
Ich möchte mich bereits im Vorfeld ganz herzlich für jeden Hinweis zur Lösung meines Problemes bedanken!!!!!!!!!
LG CHristian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Suchen() Dim lZeile As Long With ThisWorkbook.Worksheets("Tabelle2") For lZeile = 1 To .Cells(.Rows.Count, 12).End(xlUp).Row If InStr(.Range("B5423").Value, .Range("L" & lZeile).Value) > 0 Then .Range("A5423").Value = .Range("M" & lZeile).Value Exit For End If Next lZeile End With End Sub

Hi CHristian,
ich spring mal ein, das musst du natürlich einfach anpassen.

Option Explicit
Public Sub StarteSuchen()
dim l as long
'Ergebnisse für B5423, B5450 und B5500
Call Suchen(5423)
Call Suchen(5450)
Call Suchen(5500)
'Ergebnisse für B5600 bis B5699
for l = 5600 to 5699
call Suchen(l)
next l
end Sub
Public Sub Suchen(lZeile as long)
Dim lZeile  As Long
With ThisWorkbook.Worksheets("Tabelle2")
For lZeile = 1 To .Cells(.Rows.Count, 12).End(xlUp).Row
If InStr(.Range("B5423").Value, .Range("L" & lZeile).Value) > 0 Then
.Range("A" & lZeile).Value = .Range("M" & lZeile).Value
Exit For
End If
Next lZeile
End With
End Sub

Wenn ab B5423 immer n Zeilen importiert werden, wobei n varriert aber keine leeren Zeilen zwischen B5423 und B5423+n vorkommen und B5423+n die letzte genutzte Zeile der Tabelle ist, gehts auch vollautomatisch:

Public Sub StarteSuchen()
dim l as long
dim lRow as long
lrow = activesheet.cells(rows.count,1).end(xlup).row
for l = 5423 to lrow
call Suchen(l)
next l
end Sub

Grüße,
Klaus M.vdT.

Public Sub StarteSuchen() Const e = 8943 Dim z As Long For z = e To e + 100 Call Suchen(z) Next z End Sub Public Sub Suchen(z As Long) Dim lZeile As Long With ThisWorkbook.Worksheets("Ab 30.3.2000") For lZeile = 1 To .Cells(.Rows.Count, 12).End(xlUp).Row If InStr(.Range("C" & z).Value, .Range("L" & lZeile).Value) > 0 Then .Range("B" & z).Value = .Range("M" & lZeile).Value Exit For End If Next lZeile End With End Sub

Public Sub StarteSuchen() 'Const e = 8943 'das ist leider grundfalsch! Was soll denn das "Const" davor? dim z as long Dim e As Long 'stattdessen dimensioniere als long oder integer 'der Wert kommt aus einer Inputbox, da nehmen wir die Standardinputbox von Excel e = inputbox("Bitte Wert eingeben!") 'kein Grund das Rad neu zu erfinden For z = e To e + 100 Call Suchen(z) Next z End Sub

Beliebteste Forumthreads (12 Monate)

Untersuche ob Wort aus einer Spalte in der Zelle

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

340 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Untersuche ob Wort aus einer Spalte in der Zelle

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

340 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