Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Daten per Button aus anderer Datei kopieren

Forumthread: VBA: Daten per Button aus anderer Datei kopieren

VBA: Daten per Button aus anderer Datei kopieren
08.12.2015 15:55:55
Markus
Hallo zusammen!
Folgende Funktion möchte ich über den Button CmdDatenLaden ausführen:
Den Inhalt der Zellen G4 und AB4
des Tabellen-Blatts "ON"
des im gleichen Verzeichnis liegende Excel-Files
mit dem Namen aus dem Inhalt der Zelle B1
in die Zellen A10 und B10 des
aktiven Tabellen-Blatts "Input"
der offenen Datei kopieren.
Private Sub CmdDatenLaden_Click()
Dim wkbVorlage As Workbook
Set wkbVorlage = ThisWorkbook.path & "\" & Range("B1").Value
With ThisWorkbook.Sheets("Input")
.Range("A10").Copy wkbVorlage.Sheets("ON").Range("G4")
.Range("B10").Copy wkbVorlage.Sheets("ON").Range("AB4")
End With
Set wkbVorlage = Nothing
End Sub

Leider funktioniert der Code so nicht. Könnt ihr mir bitte helfen?
Beste Grüße
Markus

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Daten per Button aus anderer Datei kopieren
09.12.2015 14:55:24
Michael
Hallo Markus!
So evtl?
Sub CmdDatenLaden_Click()
Dim Quelle As Workbook
Dim Ziel As Workbook
Application.ScreenUpdating = False
Set Ziel = ThisWorkbook
With Ziel
Workbooks.Open Filename:=.Path & "\" & .ActiveSheet.Range("B1").Value
Set Quelle = ActiveWorkbook
Quelle.Sheets("ON").Range("G4").Copy .Sheets("Input").Range("A10")
Quelle.Sheets("ON").Range("AB4").Copy .Sheets("Input").Range("B10")
End With
Quelle.Close
Application.ScreenUpdating = True
End Sub
Hier ist die Annahme, dass die Zieldatei auch die Datei ist, aus der das Makro aufgerufen wird.
LG
Michael
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige