Kopieren von Daten aus mehreren Dateien

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Kopieren von Daten aus mehreren Dateien
von: Daniel
Geschrieben am: 27.08.2015 10:35:46

Hallo Zusammen,
ich habe mal wieder ein Problem und hoff Ihr könnt mir wieder einmal weiterhelfen :)
Ich habe den folgenden code in einer Userform und bekomme den Laufzeitfehler "424 objekt" erforderlich... die Variablen wbk und wbk2 sind als public außerhalb der sub definiert.


Private Sub CommandButton1_Click()
Dim varDateien As Variant
Dim lngAnzahl As Long
'set variables
Set Wkb = ThisWorkbook
With Application
  .ScreenUpdating = False
  .EnableEvents = False
  .Calculation = xlCalculationManual
End With
    
    'open Files
    varDateien = _
    Application.GetOpenFilename("Datei (*.xlsb),*.xlsb, Datei (*.xlsx),*.xlsx, Datei (*.xls),*. _
xls", False, "Bitte gewünschte Datei(en) markieren", False, True)
    
    'copy Files
    For lngAnzahl = LBound(varDateien) To UBound(varDateien)
        Set Wkb2 = Workbooks.Open(Filename:=varDateien(lngAnzahl))
        Wkb2.Sheets(Me.MonatImp).Range("$A$5:$Y$299").Copy _
        Destination:=Wkb.Sheets(Me.MonatImp).Range("A" & Wbk.Sheets(Me.MonatImp).Range("A299"). _
End(xlUp).Row + 2)
        Wkb2.Close
    Next
With Application
  .ScreenUpdating = True
  .EnableEvents = True
  .Calculation = xlCalculationAutomatic
End With
End Sub

Vielen Dank im vorraus

Bild

Betrifft: AW: Kopieren von Daten aus mehreren Dateien
von: Rudi Maintaire
Geschrieben am: 27.08.2015 10:47:12
Hallo,
die Variablen wbk und wbk2 sind als public außerhalb der sub definiert.
im Code steht wkb und wkb2
Option Explicit in den Kopf aller Module. Dann passiert das nicht.
Gruß
Rudi

Bild

Betrifft: AW: Kopieren von Daten aus mehreren Dateien
von: Daniel
Geschrieben am: 27.08.2015 10:58:45
Hallo Rudi,
Vielen Dank für das Scharfe Auge und den Tip :)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopieren von Daten aus mehreren Dateien "