Hallo an alle,
ich möchte per VBA Daten von einer bzw. zwei externen Tabellen in das Tabellenblatt einer bestehenden Tabelle hineinkopieren und die Daten sollten 1:1 übernommen werden.
Habe dazu bereits ein Ribbon gebastelt, IMPORT EXTERNE DATEN, mit 2 Optionen: Einlesen Daten Agentur und Einlesen Daten Profis. Die Ribbons scheinen zu funktionieren, aber:
-Jedes mal wenn ich die Datei öffen kommt die Meldung, dass das Makro onload fehlt
-Irgendwie klappen meine beiden Makros zum kopieren nicht, es löscht mir zwar die Zieltabelle aber fügt nichts ein
Option Explicit
Sub Agentur()
Dim WBZiel As Workbook, ExportDatei As String
Dim WBQuelle As Workbook
Set WBZiel = ThisWorkbook
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Bitte die Datei zum Kopieren öffnen ...")
If Not CVar(ExportDatei) = False Then
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Agentur").Delete
Application.DisplayAlerts = True
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
WBQuelle.Sheets("Agentur").Copy ThisWorkbook
WBQuelle.Close False
End If
End Sub
Sub Profis()
Dim WBZiel As Workbook, ExportDatei As String
Dim WBQuelle As Workbook
Set WBZiel = ThisWorkbook
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Bitte die Datei zum Kopieren öffnen ...")
If Not CVar(ExportDatei) = False Then
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Profis").Delete
Application.DisplayAlerts = True
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
WBQuelle.Sheets("Profis").Copy ThisWorkbook
WBQuelle.Close False
End If
End Sub
|