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