Daten aus anderer Arbeitsmappe auslesen und import

Hallo liebes Forum-Team und Forum-Leser/Schreiber!
Ich bin in Diplomarbeits-Endphase und habe (leider!) kaum mehr Zeit, lange im I-net und in Foren herumzusurfen (was ich- glaubt mir- sicher tun müsste da meine vba-Kenntnisse eher zum Heulen sind), deshalb die verzweifelte direkte Anfrage!!!!!!
Ausgangssituation:
In einem Tabellenblatt wird aufgrund Auswahl verschiedener Drop-Downmenus eine Art Buchstaben-Zahlen-Kürzel in einer Zelle generiert. (Bsp. l1a3d2p2c2: Buchstaben fix und an fixer Stelle, Zahlen variieren).
Dieses Kürzel kann sich in 5 vorhandenen verschiedenen anderen externen Tabellenblättern mit definierten Namen und anderem Laufwerk wiederfinden. (Namen: "Matrix_Design1", "Matrix_Design2", usw... bis "Matrix_Design5")
Aufgrund der Zahl (1 bis 5), die bei dem "d" im Kürzel rechts steht kann ich das externe Tabellenblatt, in dem ich nachsehen muss, spezifizieren: Bsp: Kürzel "l1a3d2p2c2" findet sich in Tabelle "Matrix_Design2", wegen dem 2er neben dem "d")
Ich brauche nun ein Makro das folgendes kann:
- (Ausgehend von meinem Tabellenblatt in dem ich arbeite): Start durch Button
- Öffnen des "richtigen" Tabellenblattes, aufgrund der Zahl neben dem "d" (es sind in den "Matrix-Tabellenblättern" jeweils Spalten bis DC einschliesslich und Zeilen bis 169 belegt, also würde es Zeit sparen, sofort das richtige zu durchsuchen)
- Finden der Zelle, in dem das Kürzel enthalten ist
- 1:1 Übernahme der Daten (Zahlen und Buchstaben) der Spalte der Zielzelle und der Spalte vor der Zielzelle, beginnend in der nächsten Zeile der Zelle bis zur nächsten leeren Zeile.
(Bsp: Kürzel steht in Zelle B2, alle Zellen von A1-G25 sind gefüllt. Es soll also der Bereich von A3-B25 kopiert werden)
- Einblenden eines ausgeblendeten Tabellenblattes (in der Mappe, von der aus ich starte) und Einfügen der Daten des kopierten Bereiches, ausgehend von Zelle A2 (erste Zeile soll Überschriftszeile werden).
- Schliessen des durchsuchten externen Tabellenblattes
Das ist "kurz gesagt" mein Problem und meine Frage in die digitale Runde!
Ich würde mich sehr freuen, wenn dies jemand bewerkstelligen kann und mir damit eine Risen Hilfe ist!!!!!
Wie gesagt, ich bin normalerweise ein Mensch, der sich selbst auf den Hosenboden sitzt, aber diese Sache ist nur eine Kleinigkeit daneben, die ich noch brauche...
Deshalb: Vielen vielen Dank im Voraus, wenn es konstruktive Hilfe gibt, bzw. einen Hinweis auf einen Forumseintrag oder Link, in dem ich nachschauen kann!
Schöne Grüsse,
Sonja

Hallo Sonja und andere Interessierte,
Studensponsoring die 2. (nach Yves)
Hier mein Lösungsvorschlag. Datei funktioniert natürlich nur, wenn die Quelldateien Matrix_Design1 bis 5 existieren.
https://www.herber.de/bbs/user/64304.xls
Gruß
Franz

Sub DatenSuchen()
'Sucht in den Matrix_Design-Dateien nach einem Suchbegriff und
'kopiert Daten in das Zielblatt
Dim Suchbegriff As String
Dim wbAktiv As Workbook, wksAktiv As Worksheet
Dim wksZiel As Worksheet
Dim wbQuelle As Workbook, wksQuelle As Worksheet, strWb As String, strWks As String
Dim ZelleGefunden As Range, Bereichdaten As Range
Dim varVerzeichnisQuelle
Dim ZelleSuchbegriff As Range
On Error GoTo Fehler
Set wbAktiv = ActiveWorkbook
Set wksAktiv = ActiveSheet
'Tabelle in die die Daten kopiert werden sollen
Set wksZiel = wbAktiv.Worksheets("ZielTabName")
Set ZelleSuchbegriff = Selection ' oder auch feste Zelladresse:  wksAktiv.Range("C8")
Suchbegriff = ZelleSuchbegriff.Value
'Quell-Dateinamen und Blattnamen ermitteln
If InStr(1, Suchbegriff, "d") > 0 Then
strWb = "Matrix_Design" & Mid(Suchbegriff, InStr(1, Suchbegriff, "d") + 1, 1)
strWks = "design" & Mid(Suchbegriff, InStr(1, Suchbegriff, "d") + 1, 1)
Else
MsgBox "Buchstabe ""d"" nicht im Suchbegriff """ & Suchbegriff & """ enthalten."
GoTo Ende
End If
'Verzeichnis mit den 5 Quelldateien wählen - als festen Wert vorgeben
'varVerzeichnisQuelle = "C:\Lokale daten\Test"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "Bitte Ordner mit den 5 Datendateien wählen und OK"
If .Show  False Then
varVerzeichnisQuelle = .SelectedItems(1)
Else
GoTo Ende
End If
End With
Application.ScreenUpdating = False
'Prüfen, ob Datei im gewählten verzeichnis
With Application
strWb = Dir(varVerzeichnisQuelle & .PathSeparator & strWb & ".xl*")
If strWb  "" Then
'Quelldatei öffnen
Set wbQuelle = .Workbooks.Open(Filename:=varVerzeichnisQuelle _
& .PathSeparator & strWb, ReadOnly:=True)
'Quelltabellenblatt setzen
Set wksQuelle = wbQuelle.Worksheets(strWks)
Else
MsgBox "Quelldatei """ & strWb & ".xl*"" im Verzeichnis """ & _
varVerzeichnisQuelle & """ nicht gefunden!"
GoTo Ende
End If
End With
'Suchbegriff suchen
Set ZelleGefunden = wksQuelle.Cells.Find(What:=Suchbegriff, LookIn:=xlValues, _
lookat:=xlWhole)
If ZelleGefunden Is Nothing Then
MsgBox "Suchbegriff""" & Suchbegriff & """ in Datei """ & _
wbQuelle.Name & """, Blatt """ & wksQuelle.Name & """ nicht gefunden!"
GoTo Ende
Else
With wksQuelle
'Von Fundstelle Bereich 1 Spalte nach links, 1 Zeile nach unten bis _
zur nächsten Leerzeile unterhalb der Fundstelle merken
Set Bereichdaten = .Range(ZelleGefunden.Offset(1, -1), ZelleGefunden.End(xlDown))
End With
'gefundene Daten in die Zieltabelle kopieren.
With wksZiel
.Visible = xlSheetVisible 'Zieltabelle einblenden
'Altdaten im Blatt löschen
.Range(.Cells(2, 1), .Cells(2, 2).End(xlDown)).ClearContents
'Daten Kopieren
Bereichdaten.Copy Destination:=.Cells(2, 1)
End With
'Quelle wieder schliessen
wbQuelle.Close savechanges:=False
Set wbQuelle = Nothing
End If
Ende:
Fehler:
Application.ScreenUpdating = True
With Err
If .Number  0 Then
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End If
End With
'Objektvariablen zurücksetzen
Set wbAktiv = Nothing: Set wksAktiv = Nothing
If Not wbQuelle Is Nothing Then wbQuelle.Close savechanges:=False
Set wbQuelle = Nothing
Set wksZiel = Nothing
Set wbQuelle = Nothing: Set wksQuelle = Nothing
Set ZelleGefunden = Nothing: Set Bereichdaten = Nothing
End Sub

Daten aus anderer Arbeitsmappe auslesen und import

Forumthread: Daten aus anderer Arbeitsmappe auslesen und import

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Daten aus einer anderen Arbeitsmappe auslesen und importieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Arbeitsmappe auslesen und import

Forumthread: Daten aus anderer Arbeitsmappe auslesen und import

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Daten aus einer anderen Arbeitsmappe auslesen und importieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread