Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.06.2017 11:10:44 |
lonni |
|
|
|
16.06.2017 11:41:42 |
Gast9328 |
|
|
|
16.06.2017 12:34:46 |
lonni |
|
|
|
30.06.2017 11:02:27 |
Gast56160 |
|
|
Tabellenbereich aus anderer .xlsx-Datei importieren |
30.06.2017 12:21:27 |
Gast9328 |
|
|
Von:
Gast9328 |
Datum:
30.06.2017 12:21:27 |
Views:
594 |
Rating:
|
Antwort:
|
Thema:
Tabellenbereich aus anderer .xlsx-Datei importieren |
Option Explicit
Sub DatenHolen2()
'vergib einen Namen für die Zieltabelle(n) z.B.
Const C_ZIELE As String = "ArrakisStdExport,MaterialienNass"
Dim arrZiele() As String
Dim arrE As Variant
'und den Kopierbereich
Const C_TODO As String = "A1:Q112"
Dim ExportDatei
Dim WBZiel As Workbook, WSZiel As Worksheet
Dim WBQuelle As Workbook
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xlsx", , "Bitte jeweiligen Arrakis Std.-Export öffnen ...")
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
'Zieltabellen vorhanden
arrZiele = Split(C_ZIELE, ",")
For Each arrE In arrZiele
On Error GoTo fail
Set WSZiel = WBZiel.Worksheets(arrE)
On Error GoTo 0
'ggf. Ziel löschen
WSZiel.Cells.Clear
'Fallentscheidung
Select Case arrE
Case "ArrakisStdExport"
WBQuelle.Worksheets("Auswertung nach AP").Range(C_TODO).Copy WSZiel.Cells(1)
Case "MaterialienNass"
WBQuelle.Worksheets("Bestellzeilen FM-FL").UsedRange.Copy WSZiel.Cells(1)
End Select
Next arrE
fail:
Select Case Err.Number
Case 0
'OK
Case 9
Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
WSZiel.Name = arrE
Resume
Case Else
Call MsgBox("unbekannter Fehler in DatenHolen()", vbExclamation)
End Select
WBQuelle.Close False
Set WBZiel = Nothing
Set WBQuelle = Nothing: Set WSZiel = Nothing
Application.ScreenUpdating = True
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
16.06.2017 11:41:42 |
Gast9328 |
|
|
|
16.06.2017 12:34:46 |
lonni |
|
|
|
30.06.2017 11:02:27 |
Gast56160 |
|
|
Tabellenbereich aus anderer .xlsx-Datei importieren |
30.06.2017 12:21:27 |
Gast9328 |
|
|