S-Verweis

Halli Hallo,
ich hab da ne Frage, ich weis aber nicht ob dies im Excel möglich ist.
Also zur Beschreibung des Problems:
Ich habe so an die 100 Excel Dateien. In jeder Datei ist die Struktur die selbe.
Ich habe immer in der Spalte A1 B1 und C1 eine Zahl drin stehen.
So nun zur meiner Frage,
Gibt es eine Möglichkeit in einer sogenannten Hauptdatei eine art Sverweis zu machen, dass wenn ich in der Hauptdatei eine Nummer suche die in den besagten Feldern drinsteht, mir verschiedene Daten aus der Datei herholt?!
Also wisst ihr was ich meine, wenn nicht dann schreib ich des genauer hin.
Also wie gesagt, ich weis aber auch nicht ob des überhaupt geht.
Wäre super nett wenn mir jemand helfen könnte.
Vielen Danke
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus,
hab jetzt mal soviel gemacht, wie ich Info´s hatte. Wenn ich weitermachen soll.
Beantworte die im Code gestellten Fragen.

Option Explicit
Sub datenabgleich()
Dim myarr(2, 1000)
Dim intCounter As Integer, intArr As Integer
Dim strZWbk As String, strPath As String 'Dim strQuWbk As String - für später
Application.ScreenUpdating = False
    strZWbk = ThisWorkbook.Name
    strPath = ThisWorkbook.Path & "/"
    intArr = 0
    'Suchbegriff einlesen / Durch unstrukturierten Tabellenaufbau nötig
For intCounter = 13 To 60
    Select Case intCounter
        Case Is = 13, Is = 20, Is = 27, Is = 39, Is = 46, Is = 53, Is = 60
            With Sheets("PR10 ")
                myarr(0, intArr) = .Range("B" & intCounter): intArr = intArr + 1
                myarr(0, intArr) = .Range("D" & intCounter): intArr = intArr + 1
                myarr(0, intArr) = .Range("F" & intCounter): intArr = intArr + 1
                myarr(0, intArr) = .Range("H" & intCounter): intArr = intArr + 1
            End With
    End Select
Next
    'Dateinamen einlesen
    intArr = 0
With Application.FileSearch
    .NewSearch
    .LookIn = strPath
    .SearchSubFolders = False
    .Filename = "*.xls"
    .MatchTextExactly = False
    .FileType = msoFileTypeExcelWorkbooks
        If .Execute > 0 Then
            For intCounter = 1 To .FoundFiles.Count
                ' Jetzt wird\'b4s schwierig, brauche gemeinsamkeiten der Dateien
                ' Annahme Datei heisst immer Mat + Nummer.xls
                If Left(.FoundFiles(intCounter), 3) = "Mat" Then
                    myarr(1, intArr) = Right(.FoundFiles(intCounter), Len(.FoundFiles(intCounter)) - Len(strPath))
                    intArr = intArr + 1
                End If
            Next
        End If
End With
If intArr = 0 Then
    MsgBox "Keine Dateien gefunden, Suche abgebrochen !!!"
    Exit Sub
End If
    'Suchbegriff in A1 / B1 / C1
    'Wie heisst das Sheet in dem Gesucht werden muss ?
Application.ScreenUpdating = True
End Sub
MfG
Peter

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread