Guten Tag,
ich habe ein Problem beim ausgeben von Variablen aus einer Collection. Es taucht immer die Fehlermeldung "Objekt erforderlich" auf. db.Count funktioniert ohne Probleme.
Sub alle_Dateien_Ausgeben(db As Collection)
Dim v, h, z As Integer
v = 1
h = 1
Application.ScreenUpdating = True
masterWorkbook.Sheets(3).Activate
y = db.Count 'Testzwecke
For z = 1 To db.Count
If h Mod 34 = 0 Then
v = v + 1
h = 1
End If
masterWorkbook.Sheets(3).Cells(v, h) = CStr(db.Item(z))
h = h + 1
Next z
End Sub
Weiß jemand die Lösung?
|