Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Import Daten von externer Tabelle in Tabellenblatt
 03.07.2019 11:52:15 Hatsch
NotSolved
03.07.2019 11:59:20 X-Post
NotSolved
03.07.2019 12:17:53 Hatsch
NotSolved
03.07.2019 12:20:05 Gast71251
NotSolved
03.07.2019 12:21:28 Hatsch
NotSolved

Ansicht des Beitrags:
Von:
Hatsch		 Datum:
03.07.2019 11:52:15		 Views:
902		 Rating:
     
Antwort:
  Ja
Thema:
VBA Import Daten von externer Tabelle in Tabellenblatt

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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Import Daten von externer Tabelle in Tabellenblatt
 03.07.2019 11:52:15 Hatsch
NotSolved
03.07.2019 11:59:20 X-Post
NotSolved
03.07.2019 12:17:53 Hatsch
NotSolved
03.07.2019 12:20:05 Gast71251
NotSolved
03.07.2019 12:21:28 Hatsch
NotSolved