Thema Datum  Von Nutzer Rating
Antwort
16.06.2017 11:10:44 lonni
Solved
Blau Tabellenbereich aus anderer .xlsx-Datei importieren
 16.06.2017 11:41:42 Gast9328
*****
Solved
16.06.2017 12:34:46 lonni
NotSolved
30.06.2017 11:02:27 Gast56160
*****
Solved
30.06.2017 12:21:27 Gast9328
*****
Solved

Ansicht des Beitrags:
Von:
Gast9328		 Datum:
16.06.2017 11:41:42		 Views:
608		 Rating:
     
Antwort:
 Nein
Thema:
Tabellenbereich aus anderer .xlsx-Datei importieren

z,B,

Option Explicit

Sub DatenHolen()

'vergib einen Namen für die Zieltabelle z.B.
Const C_ZIEL As String = "ArrakisStdExport"
'und den Kopierbereich
Const C_TODO As String = "A1:Q112"

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),*.xlsx", , "Bitte jeweiligen Arrakis Std.-Export öffnen ...")
    ExportDatei = CStr(ExportDatei)
    If ExportDatei = "Falsch" Then Exit Sub
    
    'Zieltabelle vorhanden
    On Error GoTo fail
    Set WSZiel = WBZiel.Worksheets(C_ZIEL)
    On Error GoTo 0
    
    'öffnen der ausgewählten Datei
    Set WBQuelle = Workbooks.Open(ExportDatei)
     
    'Kopieren der Tabelle „Tabelle1“ aus Datei „xyz“
    'nur den Bereich
    WBQuelle.Worksheets("Auswertung nach AP").Range(C_TODO).Copy WSZiel.Cells(1)
    
    WBQuelle.Close False
 
fail:
Select Case Err.Number
   Case 0
      'OK
   Case 9
      Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
      WSZiel.Name = C_ZIEL
      Resume
   Case Else
      Call MsgBox("unbekannter Fehler in DatenHolen()", vbExclamation)
End Select
      
    Set WBZiel = Nothing
    Set WBQuelle = Nothing: Set WSZiel = Nothing
End Sub

LG

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:



  • 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
16.06.2017 11:10:44 lonni
Solved
Blau Tabellenbereich aus anderer .xlsx-Datei importieren
 16.06.2017 11:41:42 Gast9328
*****
Solved
16.06.2017 12:34:46 lonni
NotSolved
30.06.2017 11:02:27 Gast56160
*****
Solved
30.06.2017 12:21:27 Gast9328
*****
Solved