Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo an Alle,

ich krame diesen Beitrag mal aus der Versenkung heraus:

'** Auslesen der gewählten Tabelle
'** Angenommen die -Auswahl "Airbus" und "Bombadier" stehen in Zelle B10
'** Wichtig: die Auswahl muss genauso lauten, wie die Tabellenblätter von denen kopiert werden soll
 = ActiveSheet.Range("B10").Value
 
Set Quelle = ActiveWorkbook.Worksheets(blatt) '<-- gewähltes Blatt wird definiert als Quelle, alles andere wie gehabt
Set Ziel = ThisWorkbook.Worksheets(3)
Kann mir jemand diesen Abschnitt erklären?

Also ich möchte folgendes machen und denke, dass der Code, der von Officer gepostet wurde, eigentlich genau das macht was ich möchte:

Ich öffne eine leere Excel-Datei die das  Makro enthält. In diesem Makro soll eine weitere Excel-Datei ausgewählt sein, die geöffnet wird der komplette Inhalt kopiert wird und in der "leeren" Excel-Datei mit dem Makro soll dann der Inhalt eingefügt werden. Meine Wunschvorstellung wäre es, dass ich angeben kann, dass wenn in Spalte B2..B100 der Name "Test1" steht die komplette Zeile in eine eigene Mappe kommt. Steht in Spalte B10 zB Test2 kommen alle Einträge in Mappe Test2.

Irgendwie verzweifel ich gerade und hoffentlich kann mir jemand auf die Sprünge helfen!

Sub Import_mit_Dialog() 
Dim Quelle As Object, Ziel As Object
Dim Datei As String

On Error GoTo Fehler

'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")

'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then 
  MsgBox "keine Datei ausgewählt", , "Abbruch"
  Exit Sub
End If

'MsgBox "Ausgewählte Datei: " & Datei, , ""

'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei

Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)

'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)

ActiveWorkbook.Close

'Speicher freigeben
Set Quelle = Nothing 
Set Ziel = Nothing 

Exit Sub 

Fehler:
Set Quelle = Nothing 
Set Ziel = Nothing 

    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End SubSo das ist mein bisheriger Code, das Problem ist noch, dass ich nicht weiß wie ich bestimmte Zeilen in eine eigene Mappe kopiere..