Laufzeitfehler 1004
viktor
ich habe folgendes Problem:
(Alle Blätter sind in einer Mappe)
Aus einer Tabelle "Rohdaten" werden Daten pro FK selektiert und in einer weiteren Tabelle "Einzelbewertung_FüK" zusammengefasst. Es gibt 45 FüK's und für jeden soll eine eigene Mappe erstellt werden.
Damit der Anwender nicht 45 mal speichern muss, hab ich alles in eine Schleife gepackt, so dass alle FüK's nacheinander ausgelesen und gespeichert werden.
Wenn ich meinen Code per Debugger laufen lasse, erhalte ich keine Fehlermeldung. Sobald ich das Makro über den Button starte, erhalte ich nach dem ersten Durchlauf und erfolgreichem Speichern die Meldung 'Laufzeitfehler 1004 - Anwendungs -oder Objektdefinierter Fehler'.
Weiß jemand einen Rat?
Anbei mein Code
Sub BereichSpeichern()
Dim wksA As Worksheet
Dim strFK, speicherOrt, pfad, test As String
Dim a As Integer
a = 142
strFK = Cells(142, 1)
Set wksA = ActiveSheet
'Speicherpfad und Arbeitsblattname ermitteln
pfad = PfadPicker((strFK))
For Each Zelle In Range("FK_Gesamt")
' in FK Gesamt stehen alle Fük's
Application.Goto Workbooks("Testlauf.xls").Sheets("Einzelbeurteilung_FüK").Cells(a, 1)
strFK = ActiveCell.Value
Cells(6, 2).Value = strFK
speicherOrt = pfad & "\" & strFK & "_" & wksA.Name & ".xls"
Call DeleteForm
Call DatenKonst((strFK))
' DatenKonst ruft "Rohdaten" auf und überträgt die Daten pro FK in das aktuelle Blatt
' Danach wird das Blatt gespeichert und die nächste FüK's ist dran
Call Ablegen((speicherOrt))
a = a + 1
Next
End Sub
Viktor