Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten kopieren aus externer Datei

Daten kopieren aus externer Datei
01.12.2005 09:22:46
pauker
Hallo,
ich habe eine Datei mit zwei Datenblättern Adressen und wichtig. Das Dtenblatt wichtig besteht aus mehreren (nicht zusammenhängenden) Spalten des Blattes Adressen. Da die Datei weitere Datenblätter hat, ist sie schon sehr gross.
In einer zweiten Datei habe ich nur das Datenblatt Adressen.
Nun möchte ich (mit VBA) erreichen, dass (durch drücken eines Buttons in meiner selbsterstellten Menüleiste) das Datenblatt Adressen in meiner grossen Datei alles aus dem Datenblatt Adressen der kleinen externen Datei übernimmt. Dies soll aber nicht automatisch geschehen, sondern nur nach dem drücken des Buttons.
Ich hoffe, ich habe mich verständlich ausgedrückt.
gruss
der pauker

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten kopieren aus externer Datei
01.12.2005 09:52:52
Rocky
Hallo,
probier mal das:

Sub Datenholen()
' du musst dich in der großen Datei befinden
Application.ScreenUpdating = False
Sheets("Adressen").Activate
'löschen alles Vorhandenen Daten
Cells.ClearContents
'Dateiauswahl
s = Application.GetOpenFilename(" Exceldateien(*.xls),*.xls")
If s = False Then
MsgBox "Sie haben den Vorgang abgebrochen", vbInformation, "Abbruch-Information"
End If
Workbooks.Open Filename:=s
'aus dem ersten Tabellenblatt der neu geöffnetten Datei alles Kopieren
Sheets(1).Cells.Copy
' andere Datei auswählen
Windows(2).Activate
ActiveSheet.Cells(1, 1).Activate
ActiveSheet.Paste
'neue Datei auswählen und schließen
Windows(2).Activate
Application.CutCopyMode = False
ActiveWindow.Close
Application.ScreenUpdating = True
Range("A1").Select
End Sub

PS: erstell aber vorher ne Sicherheitskopie denn habs nicht getestet.
Gruß Rocky
Anzeige
AW: Daten kopieren aus externer Datei
01.12.2005 12:14:59
pauker
Hallo Rocky,
vielen Dank für deine Mühe!
gruss
der pauker
AW: Daten kopieren aus externer Datei
01.12.2005 10:25:56
WernerB.
Hallo pauker,
hier ein Makrobeispiel (ursprünglich von Hans W. Herber), mit dem die externe Datei nicht geöffnet werden muss.
Die notwendige Anpassung kannst Du ja selbst übernehmen.
Dieser Code liest Daten der Mappe1/Tabelle1/A1:E100 ein; Quell- und Zielmappe müssen im gleichen Verzeichnis liegen.

Sub AuslesenGeschlosseneDatei()
Dim rng As Range, _
sFile As String, sPath As String, _
oldStatusBar As Boolean
Application.ScreenUpdating = False
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "Mappe1.xls"
sPath = ThisWorkbook.path & "\"
Application.StatusBar = "Daten werden importiert. Bitte warten..."
With Sheets(1)
.Range("A1:E100").Formula = "='" & sPath & "[" & sFile & _
"]Tabelle1'!A1:E100"
Set rng = .Range("A1:E100")
End With
rng.Cells(1).Copy rng
rng.Value = rng.Value
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Daten kopieren aus externer Datei
01.12.2005 12:13:10
pauker
Hallo WernerB,
vielen Dank für deine Mühe!
gruss
der pauker
AW: Daten kopieren aus externer Datei
01.12.2005 10:38:04
Daniel
Hallo Pauker,
ich habe dir einen Ansatz gebastelt ich hoffe ich habe dich richtig verstanden und es hilft dir weiter:


      
Private Sub CommandButton1_Click()
Dim Spaltenlänge As Integer
'Anzeige sperren
Application.ScreenUpdating = False
'File mit den Quelladressen öffnen
Workbooks.Open "C:....Pfad deiner Quelldatei\SourceFile.xls"
'Auswerten wieviele Einträge vorhanden sind
Spaltenlänge = Workbooks("SourceFile.xls").Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A länge ermitteln
'Einträge kopieren und im Eigenen File speichern
Workbooks("SourceFile.xls").Worksheets("Tabelle1").Range("A1:Z" & Spaltenlänge).Copy Destination:=ThisWorkbook.Worksheets("Tabelle1").Range("A1:Z" & Spaltenlänge)
'Quellfile mit den Adressen schliessen
ActiveWorkbook.Close
'Anzeige freigeben
Application.ScreenUpdating = True
End Sub
 


Gruss
Daniel
Anzeige
AW: Daten kopieren aus externer Datei
01.12.2005 12:11:57
pauker
Hallo Daniel,
vielen Dank für deine Mühe!
gruss
der pauker

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige