Objektvariable nicht festgelegt

Private Sub cmb_IMSO_Click()
Dim i As Integer
Dim wkbUpload As Workbook  'Dateien, aus welcher die Daten heraus kopiert werden sollen
Dim wksUpload As Worksheet 'WS, aus dem die Daten heraus kopiert werden sollen (Upload")
Dim wkbZiel As Workbook   'Datei, in welche die Daten eingefügt werden sollen (COPA_IMSO)
Dim wksDaten As Worksheet  'WS, in das die Daten eingefügt werden sollen
Dim intNächsteZeile As Integer
Dim intAnzahlZeilen As Integer
If GetPassword = True Then
Application.ScreenUpdating = False
Application.StatusBar = "Der Vorgang wird u.U. einige Minuten dauern. Geduld bitte!"
Set wkbZiel = Workbooks.Open(strPath & "COPA_IMSO", _
password:="", WriteResPassword:="")  'öffnet Zieldatei
Set wksDaten = wkbUpload.Sheets("Daten")
intNächsteZeile = wksDaten.UsedRange.Rows.Count + 1  'ermittelt nächste zu nutzende Zeile
Application.DisplayAlerts = False
With Application.FileSearch
.LookIn = "Y:\Budget 2004\Turnover_ADMIN\COPA_Upload\"
.SearchSubFolders = False
.Filename = "OEM_*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i)
Set wksUpload = wkbUpload.Sheets("Upload")
intAnzahlZeilen = wksUpload.UsedRange.Rows.Count
'ermittelt Anzahl zu kopierender Zeilen
wksUpload.Range(Cells(4, 1), Cells(intAnzahlZeilen, 108)).Copy
wksDaten.Range("$A$" & intNächsteZeile).Select
wksDaten.PasteSpecial
'wksDaten.PasteSpecial Destination:=wksDaten.Range("$A$" & intNächsteZeile)
Application.CutCopyMode = False
wkbUpload.Close savechanges:=False
intNächsteZeile = intNächsteZeile + intAnzahlZeilen - 3
'berechnet nächste Zeile im wksDaten
wkbZiel.Save
Next i
End If
End With
wkbZiel.Close
Else
MsgBox "Password ist falsch"
End If
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "COPA-Datei wurde aktualsiert"
End Sub