Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

VBA: Daten per Button aus anderer Datei kopieren

Betrifft: VBA: Daten per Button aus anderer Datei kopieren von: Markus
Geschrieben am: 08.12.2015 16:17:17

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

  

Betrifft: AW: VBA: Daten per Button aus anderer Datei kopieren von: UweD
Geschrieben am: 08.12.2015 16:30:35

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


  

Betrifft: AW: VBA: Daten per Button aus anderer Datei kopieren von: Markus
Geschrieben am: 09.12.2015 10:02:55

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



  

Betrifft: AW: VBA: Daten per Button aus anderer Datei kopieren von: UweD
Geschrieben am: 09.12.2015 10:42:44

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


 

Beiträge aus den Excel-Beispielen zum Thema "VBA: Daten per Button aus anderer Datei kopieren"