Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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
;

Forumthreads zu verwandten Themen

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