mir stellt sich folgende Frage, ich möchte mit Hilfe eines CommandButtons eine Arbeitsmappe auslesen, die Arbeitsmappe besteht aus mehreren Tabellenblättern, die auch wieder auf verschiedenen Tabellenblättern eingefügt werden sollen.
Ich habe eine Datei mit 4 auszulesenden Tabellenblättern und möchte die in die ersten 4 Tabellenblätter meiner Ziel-Arbeitsmappe einfügen.
Mein Ansatz ist folgender, das erste Tabellenblatt einzulesen ist auch kein Problem, nur die restlichen kann ich nicht einlesen.
Private Sub CommandButton1_Click()
Dim pfadQuelle As Variant
Dim pfadZiel As String
Dim nameQuelle As String
Dim nameZiel As String
Dim limit As Integer
Application.ScreenUpdating = False
pfadQuelle = Application.GetOpenFilename(Title:="Bitte eine Datei auswählen", FileFilter:=" _
_
Excel,*.xls?", MultiSelect:=True)
If TypeName(pfadQuelle) = "Boolean" Then
GoTo Fehler
End If
nameZiel = ActiveWorkbook.Name
'MsgBox nameZiel
If UBound(pfadQuelle) > 1 Then
limit = 1
MsgBox "Es wurden mehr als 1 Datein ausgewählt!"
Else
limit = UBound(pfadQuelle)
End If
Dim index As Integer
For index = 1 To limit
Workbooks.Open (pfadQuelle(index))
nameQuelle = ActiveWorkbook.Name
'MsgBox nameQuelle
Workbooks(nameQuelle).Sheets(1).Range("A1:AR63").Copy _
Destination:=Workbooks(nameZiel).Sheets(index).Range("A1")
Workbooks(nameQuelle).Sheets(2).Range("A1:AR63").Copy _
Destination:=Workbooks(nameZiel).Sheets(index).Range("A1")
Workbooks(nameQuelle).Sheets(4).Range("A1:AR63").Copy _
Destination:=Workbooks(nameZiel).Sheets(index).Range("A1")
Workbooks(nameQuelle).Sheets(5).Range("A1:AR63").Copy _
Destination:=Workbooks(nameZiel).Sheets(index).Range("A1")
Workbooks(nameQuelle).Close SaveChanges:=False
Next index
MsgBox "Einlesen Abgeschlossen"
Exit Sub
Fehler:
MsgBox "Daten wurden nicht eingelesen!"
Application.ScreenUpdating = True
End Sub
Es wäre toll,wenn mir jemand helfen könnte!
Vielen Dank und liebe Grüße
Joline