Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichenfolge über VBA suchen

Forumthread: Zeichenfolge über VBA suchen

Zeichenfolge über VBA suchen
02.06.2022 13:35:39
Caro
Hallo, ich schon wieder.
Nächstes Problem:
In Tabelle 2 in Zelle B1 habe ich eine Teil-Zeichenfolge stehen, welche ich mit einem Makro gerne in Spalte A von Tabelle 1 finden möchte. Wenn die entspechende Zelle gefunden wurde soll in dieser Zeile die Spalte ausgewählt werden.
z.B.
Tabelle 2 (B1) = xyz
Tabelle 1 (A365)= abxyz1 --> select Zelle (L365)
Gruß
Caro
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeichenfolge über VBA suchen
02.06.2022 13:49:52
ReginaR
Hi Caro,
das könnte man so lösen:

Public Sub Finde_teil()
Dim rng_fund As Range
Dim str_suchtext As String
str_suchtext = Worksheets("Tabelle2").Range("B1")
Set rng_fund = Worksheets("Tabelle1").Columns(1).Find(str_suchtext, LookAt:=xlPart)
If Not rng_fund Is Nothing Then
Worksheets("Tabelle1").Cells(rng_fund.Row, 12).Select
End If
End Sub
Gruß Regina
Anzeige
AW: Zeichenfolge über VBA suchen
02.06.2022 14:07:54
Caro
Sehr gut, ich danke die schon mal. Und wie kann ich dann in die gefunde Zelle Cells(rng_fund.Row, 12) etwas rein kopieren was in Tabelle 2 (Zellen P38-S38) steht?
AW: Zeichenfolge über VBA suchen
02.06.2022 15:01:51
ReginaR
Hi,
hier um das Kopieren ergänzt:

Public Sub Finde_teil()
Dim rng_fund As Range
Dim str_suchtext As String
str_suchtext = Worksheets("Tabelle2").Range("B1")
Set rng_fund = Worksheets("Tabelle1").Columns(1).Find(str_suchtext, LookAt:=xlPart)
If Not rng_fund Is Nothing Then
Worksheets("Tabelle1").Cells(rng_fund.Row, 12).Select
Worksheets("Tabelle2").Range("P38:S38").Copy _
Destination:=Worksheets("Tabelle1").Cells(rng_fund.Row, 12)
End If
End Sub
Hinweis: Das Select ist für das Kopieren nicht notwendig. Wenn also der Cursor nicht explizit in die Spalte L gesetzt werden soll, kann die Zeile mit dem Select auch raus.
Gruß Regina
Anzeige
AW: Zeichenfolge über VBA suchen
03.06.2022 06:32:16
Caro
Hallo Regina,
vielen Dank nochmal für deine Hilfe.
Ich konnte es Dank dir jetzt so lösen und es funktioniert:
Dim rng_fund As Range
Dim str_suchtext As String
str_suchtext = Worksheets("Tabelle2").Range("B1")
Set rng_fund = Worksheets("Tabelle1").Columns(1).Find(str_suchtext, LookAt:=xlPart)
If Not rng_fund Is Nothing Then
Worksheets("Tabelle2").Range("P38:S38").Copy _
Worksheets("Tabelle1").Cells(rng_fund.Row, 12).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Gruß
Caro
Anzeige
AW: Zeichenfolge über VBA suchen
03.06.2022 06:53:34
Caro
Ok, irgendwie ging es mit meiner Variante doch nur einmal. Ich habe jetzt die Ergebnisse mit PasteSpecial in die nächste Zeile kopieren lassen und es dann wieder mit deiner Variante versucht und jetzt scheint es zu gehen :)
AW: Zeichenfolge über VBA suchen
02.06.2022 14:08:18
Nepumuk
Hallo Caro,
bei so mageren Angaben, nur ein Beispiel:

Public Sub Test()
Dim lngRow As Long
Dim strText As String
strText = Worksheets("Tabelle2").Range("B1").Text
With Worksheets("Tabelle1")
For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If InStr(1, .Cells(lngRow, 1).Text, strText) > 0 Then
Call Application.Goto(Reference:=.Cells(lngRow, 12))
Exit For
End If
Next
End With
End Sub
Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige