Text zwischen zwei jeweiligen Texten suchen - VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
ich hab mal was gebaut. Option Explicit Sub TT_suchen() On Error GoTo Fehler Dim TB3, TB2, i%, Fi1$, Fi2$, C Set TB3 = Sheets("Tabelle3") Set TB2 = Sheets("Tabelle2") Application.ScreenUpdating = False For i = 5 To 10 'aus E5 F10 Fi1 = TB2.Cells(i, 5) Fi2 = TB2.Cells(i, 6) Set C = TB3.UsedRange.Find(Fi1, LookIn:=xlValues) If Not C Is Nothing And C.Offset(0, 2).Value = Fi2 Then TB2.Cells(i, 7) = C.Offset(0, 1) End If Next Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub Das Makro sucht den Suchtext1, vergleicht 2 Zellen weiter, ob dort Suchtext2 steht und gibt den Text dazwischen zurück.
Das wiederholt sich für die 6 Datenpaare
(EUR habe ich durch überwiesen ersetzt.)
Tabelle2

	E	F	G
4			in G soll der zwischen den beiden Wörtern stehende Text erscheinen
5	Name	Vorname	Müller
6	Vorname	PLZ	Karl
7	Mitgliedsnummer	Mitglied seit	102345
8	Beitrag	überwiesen	100
9	Funktion	seit	Vorstand
10	Zweitwohnung	seit	keine
11

Funktioniert, mit einem Problem.
Wenn der Suchtext und Folgetext in die nächste Zeile rutschen.
Kannst du das ausschließen? Sonst muss die Suchlogig aufwändiger aufgebaut werden.
evtl. kannst du ja auf das suchen "danach verzichten"
Gruß UweD

Sub TT_suchen() On Error GoTo Fehler Dim TB3, TB2, i%, Fi1$, Fi2$, C Set TB3 = Sheets("Tabelle3") Set TB2 = Sheets("Tabelle2") Application.ScreenUpdating = False For i = 5 To 10 'aus E5 F10 Fi1 = LTrim(TB2.Cells(i, 5)) Fi2 = LTrim(TB2.Cells(i, 6)) Set C = TB3.UsedRange.Find(Fi1, LookIn:=xlValues) If Not C Is Nothing And LTrim(C.Offset(0, 2).Value) = Fi2 Then TB2.Cells(i, 7) = C.Offset(0, 1) End If Next Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub

Hallo Matthias und Uwe,
erneut noch wieder herzlichen Dank! - Ich hatte mir nun die beiden Codes zuhause heruntergeladen bzw. eingefügt. Ich muß zunächst gestehen, dass ich wohl was wichtiges, was mir heute aber auch erst auffiel, nicht erläutert habe: Die Texteile können manchmal in jeweils getrennten Zellen stehen, aber auch, so mußte ich feststellen, in einer Zelle (das wechselt wohl offensichtlich manchmal). Bei Deinem Code, Uwe, erhalte ich eine Fehlermeldung Fehler 91, Objektvariable oder With-Blockvariable nicht festgelegt. Der Code lässt dann in der Folge die erste Abfrage leer und packt den Vornamen und die Mitgliedsnummer in die richtigen Zellen. Die Zellen danach bleiben wieder leer.- Dein Code, Matthias, rennt soweit super, ohne ihn mit dem Code von Uwe vergleichen zu können (weil ich wirklich die Ahnung nicht habe). Könnte jedoch eine Anpassung denkbar sein, sodass sowohl Textfolgen in einer Zelle oder eben jeweils in getrennten Zellen (wie im Muster) zu finden sind? - Danke schon jetzt wieder für Eure Rückmeldungen.
Gruß - Wolfgang

Beliebteste Forumthreads (12 Monate)

	L
18	"Beitrag" "100,00 " "überwiesen"
19	Beitrag 100,00 überwiesen

Text zwischen zwei jeweiligen Texten suchen - VBA

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	E	F	G
5	Name	Vorname
6	Vorname	PLZ	Karl
7	Mitgliedsnummer	Mitglied seit	102345
8	Beitrag	überwiesen	100
9	Funktion	seit	Vorstand
10	Zweitwohnung	seit	keine

Text zwischen zwei jeweiligen Texten suchen - VBA

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread