Hallo zusammen
Ich hatte gestern bereits um Hilfe gebeten. Fred unterbreitete mir folgenden Vorschlag:
Dim Anzahl As Double, Bereich As Range
Worksheets("Master Datei").Select
With Worksheets("Master Datei")
Set Bereich = .Range(.Cells(Spalte_Regel, Streckenanfang), .Cells(Spalte_Regel, Streckenende))
End With
Anzahl = 0
Anzahl = WorksheetFunction.CountA(Bereich)
Die erste Auslösung dieses Makros funktioniert bestens. Bereits beim 2. oder spätestens 3. daraufflolgenden Aufruf generiert es den Laufzeitfehler 1004 "Anwendungs- oder objektdefinierter Fehler", mit Bezug auf Set Bereich = .Range usw.
Wie kann ich das beheben?
Vielen Dank und Gruss
Gregor