Suchen per VBA in externer Arbeitsmappe

Kurt · 2022-10-27T15:28:15+00:00

Hallo Community, ich bitte euch wieder einmal Händeringend um eure geschätzte Hilfe. Was möchte ich tun und nicht per VBA schaffe: Ich möchte aus der Arbeitsmappe "Interpreten" in der zu öffnenden externen Arbeitsmappe "Country" nach Namen suchen und markieren (siehe beigefügtes Bild). Doch dieser sollte, wenn möglich für über 2000 Namen universell einsetzbar sein. Mit dem Recorder konnte ich nicht das erwünschte Ergebnis erzielen Ich danke euch im Voraus recht herzlich für eure Hilfe Lg Speedy [Bild: Userbild]

Hallo MCO,
erstmal danke für deine Mühe.
Leider funzt er bei mir nicht. Er öfnet die Datei, markiert mir die Spalte "B" bis zum letzten Eintrag, doch er gibt mir den gesuchten Namen nicht aus.
Den Befehl "such_wb.Close 1" habe ich raus genommen da er mir die zu öffnende Datei sofort wieder schloss.
Unten abgebildet der von mir abgeänderte Makro.


Sub Interpr_suche()
Dim twb  As Workbook
Dim such_wb As Workbook
Dim interpret As Range
Dim such_rng As Range
Set twb = ThisWorkbook
'Set such_wb = Workbooks.Open("Hier muss der Pfad der Datei rein")
Set such_wb = Workbooks.Open("Z:\Musik\Titel-Interpreten\Country_Folk.xlsm")
Set such_rng = such_wb.Sheets(1).Range("B:B")
'Durchlauf
For Each interpret In Range("A4:A9999").SpecialCells(xlCellTypeConstants)
Set gefunden = such_rng.Find(what:=interpret, lookat:=xlWhole)
If Not gefunden Is Nothing Then
interpret.Interior.ColorIndex = 4
gefunden.Interior.ColorIndex = 4
Else
'interpret.Interior.ColorIndex = 3
End If
Next interpret
End Sub

Grüße Kurt

Hallo
Der Interpret steht nun in der Spalte C (!) wir suchen aber in Spalte B (!)
Ändere folgendes:
Set such_rng = such_wb.Sheets(1).Range("B:B")
auf
Set such_rng = such_wb.Sheets(1).Range("C:C")


Sub Interpr_suche(SuchText As String, Genre As String)
Dim twb  As Workbook
Dim such_wb As Workbook
Dim gefunden As Range
Dim such_rng As Range
Dim wb_name As String
Set twb = ThisWorkbook
' Ermittlung des Filepfades
Set gefunden = twb.Worksheets("Genre").Range("A:A").Find(what:=Genre, lookat:=xlWhole)
If Not gefunden Is Nothing Then
wb_name = gefunden.Offset(0, 2).Value
If wb_name = "" Then
Call MsgBox(Genre & vbLf & "Es wurde kein Pfad gefunden", vbCritical, "Pfad")
Exit Sub
End If
Else
Call MsgBox(Genre & vbLf & "Genre wurde nicht gefunden", vbCritical, "Genre")
Exit Sub
End If
' Suche im Workbook
Set such_wb = Workbooks.Open(wb_name)
Set such_rng = such_wb.Sheets(1).Range("C:C")
Set gefunden = such_rng.Find(what:=SuchText, lookat:=xlWhole)
If Not gefunden Is Nothing Then
such_wb.Activate
gefunden.Select
Else
twb.Activate
Call MsgBox(SuchText & vbLf & "Leider nicht gefunden" & vbLf & _
"Worksheet Name: " & such_wb.Sheets(1).Name & vbLf & _
"Worksheet Count: " & such_wb.Worksheets.Count, _
vbCritical, "Interpret")
End If
End Sub

Peter

Suchen per VBA in externer Arbeitsmappe

Forumthread: Suchen per VBA in externer Arbeitsmappe

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Suchen per VBA in externer Arbeitsmappe

Forumthread: Suchen per VBA in externer Arbeitsmappe

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread