TB in andere Datei verschieben
Peter
ich habe folgendes Problem: Ich habe eine Datei, aus der ich mehrere Sheets in eine andere Datei kopieren möchte. Das Makro führe ich aus der Quelldatei aus, die Zieldatei ist dann eine beliebige andere Datei, die ich per Makro öffne. Habt ihr eine Idee, was ich falsch mache bzw. Tipps für mich?
Vielen Dank vorab!
Beste Grüße,
Peter
Private Sub TBVerschieben_Click()
Dim k As Integer
Dim varName As Variant
Dim Datenanalyse_Datei
Set Datenanalyse_Datei = ActiveWorkbook
k = MsgBox("Sollen die Tabellenblätter in eine andere Datei verschoben werden?", vbYesNo + _
vbQuestion, "Sicherheitsabfrage")
If k = 6 Then
varName = Application.GetOpenFilename("Exceldateien,*.xls*,Alle Dateien,*.*")
If varName = False Then Exit Sub
Workbooks.Open Filename:=varName
Datenanalyse_Datei.Activate
Sheets(Array("1", "2", "3")).Select
'Hier kommt die Fehlermeldung "Index außerhalb des gültigen Bereiches":
Sheets(Array("1", "2", "3")).Copy Before:=Workbooks(varName).Sheets(9)
Windows(Datenanalyse_Datei).Activate
End If
End Sub
Anzeige