Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro - Daten aus anderer xls kopieren

Makro - Daten aus anderer xls kopieren
Julia
Ich mal wieder :)
Ich bräuchte ein Makro zum Datenimport :)
Ausgangslage:
In meinem Ordner habe ich 2 xls-Dateien.
Eine reporting.xls und eine input.xls
Das Makro soll in der reporting.xls gestartet werden.
Aufgaben des Makro:
1.) Reporting.xls ist geöffnet. Aus ihr wird das Makro gestartet.
2.) Öffne die Datei input.xls (ohne absolute Pfadangabe, input.xls und reporting.xls werden immer im selben Ordner liegen)
3.) Kopiere alles aus input.xls (Sheet: Data)
4.) Das kopierte im Sheet Report der Datei reporting.xls einfügen. Achtug! : Nicht einfach einfügen. Sondern über "Inhalt einfügen, nur Werte"
5.) Schließe input.xls ohne speichern
6.) MsgBox in der reporting.xls. Import war erfolgreich!
Kann mir jemand helfen?
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
noch ein Zusatz
04.02.2011 14:16:30
Julia
Der aller erste Schritt vom Makro:
Lösche im Shet Report der reporting.xls ALLES
Alle Zellen löschen!
AW: noch ein Zusatz
04.02.2011 14:28:30
Rudi
Hallo,
in ein Modul (ungetestet):
Sub Julia()
Dim wks As Worksheet
Set wks = Workbooks.Open(ThisWorkbook.Path & "\input.xls").Sheets("Data")
wks.Cells.Copy
With ThisWorkbook.Sheets("Report")
.Cells.Clear
.Cells(1, 1).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
wks.Parent.Close False
MsgBox "Fettich!", vbOKOnly + vbInformation, "Gebe bekannt"
End Sub

Gruß
Rudi
Anzeige
Fehlermeldung
04.02.2011 14:32:10
Julia
erst mal danke für das Makro.
bekomme folgende Meldung:
Laufzeitfehler 1004
Die PasteSpecial-Methode des Ranges-Objektes konnte nicht ausgeführt werden
AW: Fehlermeldung
04.02.2011 14:36:42
Reinhard
Hallo Julia,
ungetestet,
schreib mal anfangs der With-Schleife ein
.Activate
Gruß
Reinhard
Fehlermeldung?
04.02.2011 14:40:00
Julia
Versteh nicht ganz an welcher Stele du meinst.
Anzeige
Nachtrag
04.02.2011 14:42:59
Julia
debugger meckert an dieser Stelle:
.Cells(1, 1).PasteSpecial xlPasteValues
Das löschen zuvor hat geklappt
jemand zufällig einen Tipp :)
04.02.2011 15:26:54
Julia
jemand zufällig einen Tipp :)
es geht
04.02.2011 15:43:04
Julia
Habs rausgefunden:
wenn ich die Passage
.Cells.Clear
lösche
Dann geht es. Vielleicht stört das löschen beim kopieren?
Anzeige
Reihenfolge der Befehle!
04.02.2011 15:44:29
Renee
Hi,
Sub Julia()
Dim wks As Worksheet
Set wks = Workbooks.Open(ThisWorkbook.Path & "\TmpImport.xls").Sheets("Data")
With ThisWorkbook.Sheets("Report")
.Cells.Clear
wks.Cells.Copy
.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
End With
wks.Parent.Close False
Application.CutCopyMode = False
MsgBox "Fettich!", vbOKOnly + vbInformation, "Gebe bekannt"
End Sub

GreetZ Renée
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
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