Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bereich in andere Datei kopieren

Bereich in andere Datei kopieren
10.06.2015 13:26:34
Chris
Hallo,
ich hab ein eigentlich einfaches Problem aber steh irgendwie auf dem Schlauch.
Ich möchte einen Bereich A2:I150 meines Sheets "Übersicht" einfach in ein Sheet "Tabelle1" in einer anderen Datei Test.xlsx kopieren, die geschlossen ist.
Die Daten sollen überschrieben werden, es wird immer deselbe Bereich kopiert und eingefügt.
Dabei würde ich gerne in der Zelle M5 den Pfad angeben in der die Zieldatei liegt und das Makro soll diesen Pfad übernehmen.
Wenn die Datei nicht in diesem Pfad liegt, dann soll sich wenn möglich der Explorer zum Auswählen des Pfades öffnen,.
Ich weiß, ist wahrscheinlich ganz einfach.
Danke für eure Mühe.
Gruß Chris

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich in andere Datei kopieren
10.06.2015 15:33:37
Chris
Danke dir für den Link.
Ich werde mir das mal in Ruhe ansehen.
Gruß Chris.

Anzeige
AW: Bereich in andere Datei kopieren
10.06.2015 16:16:16
UweD
Hallo
so ?
Sub alle_Dateien_Verzeichnis()
Dim Dlg As FileDialog
Dim Pfad, Datei$, WB1, TB1, WB2, TB2
Set WB1 = ActiveWorkbook
Set TB1 = Sheets("Übersicht")
Application.ScreenUpdating = False
Dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen
Pfad = TB1.Range("M5")
Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\")
Datei = "Test.xlsx"
If Len(Dir(Pfad & Datei)) = 0 Then
If Dlg.Show = True Then
Pfad = Dlg.SelectedItems(1)
Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\")
If Len(Dir(Pfad & Datei)) = 0 Then
MsgBox "Datei nicht vorhanden"
Exit Sub
End If
End If
End If
Workbooks.Open Filename:=Pfad & Datei
Set WB2 = ActiveWorkbook
Set TB2 = Sheets("Tabelle1")
TB1.Range("A2:I150").Copy TB2.Range("A2")
WB2.Close SaveChanges:=True
End Sub
Gruß UweD
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige