Hallo zusammen,
ich habe folgendes Problem, dass ich eine ausgelesene Range aus Tabellenblatt "1" auch in Tabellenblatt "2" verwenden möchte. Allerdings bekomme ich folgenden Fehler: "Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden." Das betrifft allerdings nur Tabellenblatt "2";
Sub Clear()
Dim foundRng As Range
Dim foundRng1 As Range
Set foundRng = Sheets("1").Range("M2:AO2").Find("-6", LookIn:=xlValues).Offset(4, -1)
Set foundRng1 = foundRng.Resize(382, 1)
Application.ScreenUpdating = False
Sheets("1").Select
foundRng1.Select
Selection.ClearContents
Sheets("2").Select
foundRng1.Select
Selection.ClearContents
End Sub
Was muss ich anpassen?
Besten Dank
Chris
|