Teilstring suchen und Address ausgeben

Habe da 'mal eine Frage. Ich möchte zum Abschluss meines Berufslebens meine Kollegen mit einer kleinen VBA für Excel 2016 "beglücken".
Die bisher ausschließlich händische Arbeit für diese Aktion ist enorm zeitintensiv und langweilig, sowie, da ausschließlich manuelles Abtippen, fehlerträchtig.
Bin eigentlich mit dem Programm nahezu fertig, was mir noch fehlt, ist die Suche nach einem bestimmten Teilstring innerhalb eines Textes in einer beliebigen Tabellenzelle.
Konkret: Irgendwo in der Tabelle in einer Zelle steht der String: "RL v. 14.09.2017, RL-Nr. 19265 RL-Schein R/17381" wobei der Text nach "RL v." immer anders lautet.
Nun möchte ich die Zelle (Address?), in der sich der String befindet über den Teilstring "RL v." anzeigen lassen.
Wie kann ich das am besten realisieren?
Suche seit Tagen nach entsprechenden Hilfen in div. Foren - ohne Ergebnis :-(.
Spaltenweises Suchen habe ich gefunden, nur nichts für eine komplette Tabelle.
Geht da irgendwas mit .Find()?
Schon 'mal herzlichen Dank für jede Hilfe!!!!
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub suchen() Dim objRange As Object With Sheets("Tabelle1") 'Tabellenname anpassen! Set objRange = .UsedRange.Find(What:="RL v.", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False) If Not objRange Is Nothing Then objRange.Select 'als Beispiel! objRange enthält die gefundene Zelle! End If End With Set objRange = Nothing End Sub

Sub suchen() Dim wks As Worksheet Dim rngFind As Range, rngRows As Range Dim sFind As String, sSearch As String sSearch = "RL v. 14.09.2017, RL-Nr. 19265 RL-Schein R/17381" 'Text könnte auch in einer _ anderen Tabelle stehen. z.B. sSearch = Tabelle2.cells(1,1) Set rngFind = Cells.Find(sSearch) If rngRows Is Nothing Then Set rngRows = rngFind End If If Not rngFind Is Nothing Then sFind = rngFind.Address Do Set rngRows = Application.Union(rngRows, rngFind.EntireRow) Set rngFind = Cells.FindNext(After:=rngFind) If rngFind.Address = sFind Then Exit Do Loop End If If rngFind Is Nothing Then MsgBox "Suchbegriff wurde nicht gefunden!" Else MsgBox "Suchbegriff wurde in Zeile" & rngFind.Address & " gefunden!" End If End Sub

Beliebteste Forumthreads (12 Monate)

Teilstring suchen und Address ausgeben

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teilstring suchen und Address ausgeben

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

9 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread