Office: Makro Fehlermeldung

Hallo,

Eine Frage:

wenn ich das ausführe:

Private Sub ComboBox1_Change()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Worksheets("Datenpflege").Activate
Range("AC:AD").ClearContents
Range("X:Y").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("AA1:AA2"), CopyToRange:=Range("AC1"), Unique:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Sheets("Eingabemaske").Select
Range("I19").Select
End Sub


kommt die Fehlermeldung:"Die Select Methode des Range objektes konnte nicht ausgeführt werden!"

Woran liegt das?

Vielen Dank und Gruss
hai

 

Hallo!

Ändere mal diese Zeile

Code:

Sheets("Eingabemaske").Select

in

Code:

Sheets("Eingabemaske").Activate

Hilft das?

 

geht nicht

leider funzt das auch nicht. Der Teil mit Range wird gelb markiert. Liegt da vielleicht der Fehler?

 

Funzt

jetzt klappts:

Sheets("Eingabemaske").Activate

hab einfach die Range Funktion weggelassen. Trotzdem kehrt eszu der Zelle zurück, wo es war.

Vielen Dank für die Hilfe

Gruss
hai