Hallo liebe wer-weiss-was Experten,
ich habe mir eine Adress-CD erworben, in der die Adressen nach Branchen sortiert in Excel Dateien von A bis Z abgespeichert sind.
Nun möchte ich gerne nach Ort selektieren und die Ergebnisse gleich in einer neuen Excel Tabelle übertragen haben.
Die vorhanden Zeilen sollen bei Übereinstimmung des Suchbegriffes (der Wohnort) komplett übernommen werden.
Da ich von Makros keine Ahnung habe, habe ich schon viel im Internet gesucht, jedoch noch nicht das richtige gefunden.
Das einzige Makro das ich gefunden habe ist dieses hier:
Sub Adressselektion()
Dim oMe As Object
Set oMe = Workbooks(„Alle.xls“).Worksheets(„Tabelle1“) 'ZielDatei/-Tabelle (also die gerade geöffnete) 
Const sDateiPfad As String = „C:\Dokumente und Einstellungen\Username\Desktop\Ärzte“ 'Pfad für zu durchsuchende Excel-Dateien; mit Backslash am Ende
Const iSbAnzahl = 3 'Nach 3 Begriffen suchen
Dim sSuchbegriff(iSbAnzahl) As String
sSuchbegriff(1) = „Ortsname“
sSuchbegriff(2) = „Neckar“
sSuchbegriff(3) = „Stuttgart“
Dim i As Integer
Dim sWbName As String
Dim rFound As Range
Dim vWert As Variant
Dim iZeile As Integer
iZeile = 2
Dim oFS As Object, oDatei As Object
Set oFS = CreateObject(„Scripting.FileSystemObject“)
For Each oDatei In oFS.GetFolder(sDateiPfad).Files
sWbName = oDatei.Name
Workbooks.Open (sDateiPfad & sWbName)
For i = 1 To iSbAnzahl
Set rFound = Workbooks(sWbName).Worksheets(1).Range(„e1:e10000“).Find(sSuchbegriff(i), LookIn:=xlValues)
If Not rFound Is Nothing Then
vWert = Cells(rFound.Row, rFound.Column + 2).Value
oMe.Cells(iZeile, i).Value = vWert
End If
Next
Workbooks(sWbName).Saved = True
Workbooks(sWbName).Close
iZeile = iZeile + 2
Next
End Sub
Ich habe versucht es anzupassen, doch ohne Ahnung ist es mir leider nicht gelungen 
Es selektiert richtig, aber liefert mir lediglich das Ergebnis der zweiten Spalte, jedoch nicht die ganze Zeile.
Für eure Hilfe bedanke ich mich schon mal im Voraus.