Zwei Listen vergleich und einen Wert ausgeben

Hallo zusammen,
ich habe folgendes vor
in einem Arbeitsblatt RS-Übersicht lese ich Daten von Rundschreiben ein. Ein Titel lautet z.B.
Clearing- und Meldepflicht für außerbörsliche Derivatekontrakte (VIII)
Der Titel steht dabei in Spalte H.
Auf einem zweiten Arbeitblatt Zuständigkeiten habe ich eine Liste mit unbestimmter Anzahl von Zeilen. In Spalte A steht der Begriff Clearing- und Meldepflicht. Nach diesem Begriff möchte ich nun suchen. In der Spalte B steht der zuständige Mitarbeiter, den möchte ich ausgeben.
Ich möchte, dass in dem Blatt RS-Übersicht in Spalte R der Name des Mitarbeiters steht, der für den Begriff genannt ist. Ich habe aber leider keine Idee, wie ich nach Textteilen in einem Bereich suche und dann den entsprechenden Wert aus dem Bereich daneben ausgebe.
Wenn nötig, kann ich noch eine Musterdatei erstellen.
Gruß
Frank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
ich hab das Makro jetzt endlich ansehen können. Im Grundsatz hat das funktioniert.

Sub suchen2()
Dim begriff$
Dim i&, bis&, bis2&
Dim c As Range
bis = Sheets("Zuständigkeiten").Range("A" & Rows.Count).End(xlUp).Row
bis2 = Sheets("RS-Übersicht").Range("H" & Rows.Count).End(xlUp).Row
' Sheets("Namen_plus_Info").Activate
For i = 1 To bis
begriff = Sheets("Zuständigkeiten").Range("A" & i).Value
Set c = Sheets("RS-Übersicht").Range("H1:H" & bis2).Find(What:=begriff, _
LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not c Is Nothing Then
'     Sheets("RS-Übersicht").Range("R" & c.Row).Value = Sheets("Zuständigkeiten").Range("B" & i) _
.Value
If Mid(begriff, 1, 3) = Mid(c.Value, 1, 3) Then
Sheets("RS-Übersicht").Range("R" & c.Row).Value = _
Sheets("Zuständigkeiten").Range("B" & i).Value
Else
Sheets("Zuständigkeiten").Range("C" & i).Value = "[nicht 1. Stelle]"
End If
Else
Sheets("Zuständigkeiten").Range("C" & i).Value = "[nicht gefunden]"
End If
Next
End Sub

Aber ich habe jetzt zwei Probleme damit.
1. Wenn der Suchbegriff , z. B. Clearing, nicht am Zellenanfang steht, bekomme ich kein Ergebnis.
2. Ich habe den Begriff Clearing- und Meldepflicht für außerbörsliche Derivatekontrakte (VIII) in der Liste mehrfach stehen, weil das Rundschreiben mit verschiedenen Ergänzungen mehrfach erschienen ist. Im ersten Eintrag erhalten ich einen Zuständigen, danach leider nicht mehr.
Ich kann zwar ein wenig an Codes herumschrauben, aber das bekomme ich leider (noch) nicht hin. Hast du da eine Idee?
Gruß
Frank
P.S. Weiter oben hab ich eine Musterdatei gepostet.

Option Explicit Sub suchen150806() Dim begriff$, firstAddress$ Dim i&, bis&, bis2& Dim c As Range bis = Sheets("Zuständigkeiten").Range("A" & Rows.Count).End(xlUp).Row bis2 = Sheets("RS-Übersicht").Range("H" & Rows.Count).End(xlUp).Row For i = 1 To bis begriff = Sheets("Zuständigkeiten").Range("A" & i).Value Set c = Sheets("RS-Übersicht").Range("H1:H" & bis2).Find(What:=begriff, _ LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) ' Die Schleife für mehrere Treffer und überhaupt die ganze Suche ist angelehnt ' an die Info/das Beispiel unter ' www.herber.de/mailing/vb/html/xlmthfind.htm If Not c Is Nothing Then firstAddress = c.Address Do Sheets("RS-Übersicht").Range("R" & c.Row).Value = _ Sheets("Zuständigkeiten").Range("B" & i).Value Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address firstAddress Else Sheets("Zuständigkeiten").Range("C" & i).Value = "[nicht gefunden]" End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Zwei Listen vergleich und einen Wert ausgeben

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwei Listen vergleich und einen Wert ausgeben

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread