Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus einer anderen Datei daten importieren

Aus einer anderen Datei daten importieren
25.09.2017 16:08:14
hofi
Hallo zusammen,
ich hab verzweifelt nach einer Lösung gesucht haber leider nichts gefudnen.
Ich möchte in meinem aktiven Tabellenblatt(Workbooks("Mappe1").Worksheets("Tabelle1")) über eine Steuerelement folgendes Erreichen:
Es soll der Windows-Explorer geöffnet werden, in dem ich dann eine bestimmte Excel-Datei auswählen kann. Von dieser Excel Datei möchte ich den Bereich "A:BV" kopieren und in mein eigentliches Tabellenblatt einfügen. Die geöffnete Excel-Datei soll sich dann wieder automatisch schließen.
Kann mir jemand von euch weiter helfen?
Schon mal danke im Voraus!
Grüße Andi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus einer anderen Datei daten importieren
25.09.2017 16:33:15
UweD
Hallo
so?
Sub Extern()
    On Error GoTo Fehler
    
    Dim TB1 As Worksheet, TB2 As Worksheet, Pfad As String, Vorgabe As String, ZSp As Integer
    Dim Dlg As FileDialog, Datei As String
    
    Set TB1 = ActiveWorkbook.Sheets("Tabelle1")
    
    Pfad = "C:\Temp\"
    Vorgabe = "Musterdatei*"
    ZSp = 1 'Zielspalte 
    
    Set Dlg = Application.FileDialog(msoFileDialogFilePicker) 'Datei wählen 
    With Dlg
        .AllowMultiSelect = False
        .InitialFileName = Pfad & Vorgabe
        .InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs - die Dateien als Detail 
        .Title = "Datei auswählen"
    End With
    
    If Dlg.Show = True Then
        Datei = Dlg.SelectedItems(1)
        Set TB2 = Workbooks.Open(Filename:=Datei).Sheets("Tabelle1")
        
        TB2.Columns(1).Resize(, 74).Copy TB1.Columns(ZSp) 'kopieren 
        
        Workbooks(Dir(Datei)).Close False
    End If
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Aus einer anderen Datei daten importieren
25.09.2017 17:30:10
hofi
Funktioniert so leider nicht.
Es öffnet sich der Explorer, er lässt mich keine DAtei auswählen, bzw zeigt mir nicht mal eine datei an
AW: Aus einer anderen Datei daten importieren
25.09.2017 18:02:35
UweD
Hast du die Vorgabe mal angepasst
Z. B. Vorgabe = "*.xls*"
AW: Aus einer anderen Datei daten importieren
26.09.2017 09:01:11
hofi
Hab ich total übersehen
Fnktioniert genau so wie ich wollte
Danke Dir!!
Prima! Danke für die Rückmeldung. owT
26.09.2017 10:37:57
UweD

301 Forumthreads zu ähnlichen Themen

Öffnen einer anderen Excel Datei
Alex

Folgendes Problem:
Aus einer Excel Datei öffne ich mit einem Makro eine andere.
Bei der neu geöffneten Datei werden automatisch weitere Befehle ausgeführt,
unter anderem auf ein anderes Tabellenblat zu wechseln.
Dadurch, dass die andere Datei noch offen ist sucht er in dieser Da...
24.08.2008 10:55:42
Thread-ID: 1004222
3 Beiträge
Anzeige
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Anzeige
Hyperlink auf Sheet in anderer Datei
Christoph

Hallo zusammen, mal wieder ein kleines Problem:
Ich lese aus einer Zelle den Text Karteikartenneu\A.xls#'Nachname Vorname Ort'!A4 ein.
Ziel des unten stehenden Codes ist es, im Unterverzeichnis Karteikartenneu die Datei A.xls zu öffnen und das Sheet Nachname Vorname Ort im Vordergrund z...
21.10.2008 08:04:00
Thread-ID: 1017836
6 Beiträge
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
automatische Verbindung in andere Datei?
Sascha

Hallöchen, ich nerv mal wieder...
Folgende Angelegenheit:
Ich habe verschiedenen Auflistungen in Dateien, die nach Monaten benannt sind. Pro Monat sind es 2-3 Dateien, also August 1-2008, August 2-2008, August 3-2008, September 1-2008, September 2-2008, Oktober 1-2008 ect.
In einer...
14.11.2008 12:31:29
Thread-ID: 1024532
5 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Kopf- & Fußzeile auf andere Dateien übertragen?
Jessi

Hallo zusammen,
habe mal wieder eine Frage:
Habe 175 Dateien, die ich mit gleicher Kopf- & Fußzeile versehe muss. Die Dateien sind alle gleich nummeriert:
001.xlsm
002.xlsm
(...)
175.xlsm
Gibt es ggf. eine geschickte Möglichkeit z.B. das erste Tabellenblatt richt...
06.12.2008 18:56:00
Thread-ID: 1030728
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
14
3
2
9
5
1
4
4
8
4
3
2
2
6
3
4
2
8
5
6
1
5
1
13