Daten aus anderer Datei importieren

Private Sub Workbook_Open() Windows("Skills.xlsx").Activate Sheets("Skills").Select Columns("A:B").Select Selection.Copy Windows("Evaluation-Form_Split-File.xlsm").Activate Sheets("Skills").Select Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Skills.xlsx").Activate Sheets("Skills Definitions").Select Columns("A:C").Select Application.CutCopyMode = False Selection.Copy Windows("Evaluation-Form_Split-File.xlsm").Activate Sheets("Skills Definitions").Select Columns("A:C").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nachtrag

24.02.2016 12:40:55

Alex

AW: Nachtrag

24.02.2016 13:38:47

ChrisL

AW: Nachtrag

24.02.2016 13:40:25

ChrisL

AW: Nachtrag

24.02.2016 14:42:23

Mike

AW: Nachtrag

24.02.2016 13:50:43

Steve

AW: Nachtrag

24.02.2016 14:41:46

Mike

Hallo Mike,
probier mal dies aus:

Private Sub Workbook_Open()
Dim Filename As String
Dim wkbQ As Workbook
Filename = ActiveWorkbook.Path & "\Skills.xlsx"
Set wkbQ = Workbooks.Open(ThisWorkbook.Path & Filename, , ReadOnly:=True)
' Öffnen nur mit Lesezugriff
wkbQ.Sheets("Skills").Columns("A:B").Copy
ThisWorkbook.Sheets("Skills").Columns("A:B").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
wkbQ.Sheets("Skills Definitions").Columns("A:C").Copy
ThisWorkbook.Sheets("Skills Definitions").Columns("A:C").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
wkbQ.Close ' Schließen
End Sub

Dabei wird beim Öffnen die Mappe der Variable wkbQ (Quelle) zugeordnet und du kannst sie ohne jedes Mal Windows("Skills").blablabla zu schreiben einfach ansprechen und genauso mit einer Zeile auch wieder schließen. Es ist zudem einfacher die Mappe nur mit Lesezugriff zu öffnen, dann meckert er beim Schließen nicht wegen Speichern rum.
Die Mappe "Evaluation..." ist die Mappe in der sich das Makro befindet. Das bedeutet du kannst diese Mappe mittels 'ThisWorkbook' ansprechen.
Als letzter Tipp: Selectieren brauchst du in 99% aller Fälle nicht, der Makrorekorder zeichnet das jedoch so auf, da der Benutzer ja die Zellen anwählen muss. Jedes Mal wo du '.Select' und in der nächsten Zeile 'Selection.' schreibst kannst du dies zusammenfassen.
Den Rest hast du ja schon erledigt gehabt.
lg Steve
PS.: Du hast bei deiner Anmerkung vergessen das Häkchen für ungelöst zu setzen und damit deinen Post selbst als beantwortet markiert gehabt. Aufpassen!

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Datei importieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Datei importieren

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

334 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread