ich habe ca 100 Tabellenblätter angelegt, wovon ich auf 90 Blättern die Einträge über Makros löschen möchte.
Ich habe eine Prozedur angelegt die mir diese Aufgabe jeweils immer für ein Blatt erledigt. Jetzt rufe ich diese Prozedur 90 Mal auf um jedes Blatt zu aktualisieren (Einträge löschen). Beim ca 60. Blatt bleibt das Programm hängen und es geht nichts mehr. An den Variablen kann es eigendlich nicht liegen, da ich hier nicht viel Speicher verbrauche (nur 4 Integer-Variablen).
Liegt es darann daß ich eine Prozedur hintereinander nicht so oft aufrufen kann?
Hier in etwa mein Quelltext:
------------------------------------
Sub Tabelle_zurücksetzen(BlattNr as Integer, Spalte as Integer)
Dim Zeile as Integer
Worksheets(BlattNr).Activate
For Zeile = 4 to 58
Cells(Zeile,Spalte).Value = ""
Next Zeile
End Sub
Sub LöschungsAusführung_X
Dim BlattNr as Integer
For BlattNr = 1 to 90
Call Tabelle_zurücksetzen(BlattNr,4)
Next BlattNr
Worksheets("Tabelle91").Activate
End Sub
----------------------------------------
Die Prozedur LöschAusführung_X starte ich über eine Schaltfläche auf der Tabelle91.
Kann mir Jemand weiterhelfen?
Viele Grüße
Werner