Hallo liebe Leute ;) ,
Ich werk schon 2 Stunden daran aber ich komme einfach nicht dahinter. Ich kopiere von einem anderen Excel Sheet eine Tabelle ins aktuelle Sheet. Danach möchte ich aber die Datei, von der Kopiert wurde wieder schließen.
Hier mein vorläufiger Code:
Private Sub btn_tfz_Click()
Dim i As Boolean
Dim Ziel As Workbook
Set Ziel = ThisWorkbook 'für Excel Zwischenspeicherung
i = Application.Dialogs(xlDialogOpen).Show 'öffne Quelldatei
Worksheets(1).Range("1:40000").Copy 'kopiere alles zur Zieldatei
Ziel.Worksheets(2).Activate 'wechselt zur Zieldatei zurück
Ziel.Worksheets(2).Range("1:65535").PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False 'setzt Zwischenablage in Datei ein
Worksheets(2).Cells(1, 1).Select 'zeigt Zieldatei wieder an
'Ziel.Source.Worksheets(1).Activate
'Schließen
'If i = True Then
'Set Source = ActiveWorkbook
'MsgBox Source.Name & " wird wieder geschlossen."
'Else
' MsgBox "Nichts ausgewählt"
'Exit Sub
'End If
'Source.Close SaveChanges:=False 'schließen
End Sub
Ich hoffe einer von euch kann mir helfen. ;)
lg |