Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1460to1464
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
Inhaltsverzeichnis

VBA: Daten per Button aus anderer Datei kopieren

VBA: Daten per Button aus anderer Datei kopieren
08.12.2015 16:17:17
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

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Daten per Button aus anderer Datei kopieren
08.12.2015 16:30:35
UweD
Hallo
umgekehrt wird ein Schuh daraus.
URSPRUNG.copy ZIEL
ungetestet...
            wkbVorlage.Sheets("ON").Range("G4").Copy .Range("A10")
wkbVorlage.Sheets("ON").Range("AB4").Copy .Range("B10")
Gruß UweD

AW: VBA: Daten per Button aus anderer Datei kopieren
09.12.2015 10:02:55
Markus
Danke für die schnelle Antwort, leider funktioniert der Code immer noch nicht.
Der Code sieht jetzt so aus:
Private Sub CmdDatenLaden_Click()
Dim wkbVorlage As Workbook
Set wkbVorlage = ThisWorkbook.path & "\" & Range("B1").Value
wkbVorlage.Sheets("ON").Range("G4").Copy ThisWorkbook.Sheets("Input").Range("A10")
wkbVorlage.Sheets("ON").Range("AB4").Copy ThisWorkbook.Sheets("Input").Range("B10")
Set wkbVorlage = Nothing
End Sub
Beim Start kommt folgende Fehlermeldung: Laufzeitfehler '424': Objekt erforderlich
Beim Debuggen markiert er folgende Zeile:
Set wkbVorlage = ThisWorkbook.path & "\" & Range("B1").Value

Anzeige
AW: VBA: Daten per Button aus anderer Datei kopieren
09.12.2015 10:42:44
UweD
Hallo nochmal
    'wenn Datei geöffnet ist
Set wkbVorlage = Workbooks(Range("B1").Value)
'wenn Datei noch geschlossen ist
Set wkbVorlage = Workbooks.Open(ThisWorkbook.Path & "\" & Range("B1").Value)

Gruß UweD

365 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige