|
Ich benötige für das u.a. Makro eine Anpassung das er die Kopierten Daten in das Aktive Tabellenblatt kopiert und nicht ein extra Tabellenblatt erstellt ich hoffe ihr könnt mir helfen ich muss die liste bis heute Abend fertig haben :-(.
Sub Grundmakro2()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xls", , "Bitte die Datei
xyz.xls öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'Kopieren der Tabelle „Tabelle1“ aus Datei „xyz“
Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
WBQuelle.Worksheets("Planungsreport").Cells.Copy WSZiel.Cells(1)
WBQuelle.Close False
Set WBZiel = Nothing
Set WBQuelle = Nothing: Set WSZiel = Nothing
End Sub
P.S. das Makro habe ich Dankend aus einem Forum Kopiert da ich selbst wenig Ahnung von VBA habe.
mit freundlichen Grüßen
David |