Laufzeitfehler 1004
17.02.2021 13:24:01
Frederick
Ich habe ein problem mit dem aktivieren einer Zeller während einer for each cell in range schleife.
Hier der gesamte Code:
Sub Berechnung()
Dim Mßnm As String
Mßnm = "BoraII"
For Each Cell In Sheets("Daten").Range("A1:A500")
Cell.Activate
If InStr(1, ActiveCell.Value, BoraII, 0) > 0 Then
ActiveCell.Offset(0, 4).Copy
Sheets("Auswertung").Cells(3, 6).PasteSpecial
Sheets("Auswertung").Cells(2, 6).Value = Sheets("Auswertung").Cells(2, 6).Value + _
Sheets("Auswertung").Cells(3, 6).Value
Sheets("Auswertung").Cells(3, 6).ClearContents
End If
Next
End Sub
Wenn ich das ganze so ausführe bekomme ich den Laufzeitfehler 1004 mit der Anmerkung:"Die activate-Methode des Range Objekts konnte nicht ausgeführt werden.
Danke schonmal im vorraus
Frederick