Ich lasse folgendes Makro ablaufen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" And [K6] = "X" Then
Target.Offset(2, 0).Value = Target.Offset(2, 7).Value
Target.Offset(4, 0).Value = Target.Offset(4, 7).Value
Target.Offset(6, 0).Value = Target.Offset(6, 7).Value
Target.Offset(8, 0).Value = Target.Offset(8, 7).Value
Target.Offset(0, 5).Value = Target.Offset(0, 8).Value
Sheets("Match").Visible = True
Sheets("Match").Select
ActiveSheet.Unprotect ("andre")
Sheets("Debitorenstamm").Range("A8:H65000").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Sheets("Debitorenstamm").Range("B2:B3"), CopyToRange:= _
Sheets("Match").Range("B8:I8"), Unique:=False
Sheets("Match").Select
ActiveSheet.Protect ("andre")
Range("C9").Select
End If
End Sub
Funktioniert auch alles super, bis auf die letzte Zeile("Range("C9").Select")!
Dann kommt die Meldung:
"Die Select-Methode des Range-Objectes konnte nicht ausgeführt werden."
Was ist falsch an dem Code? Ich brauche diese Zeile, sonst kann ich mit den nächsten Schritten nichts anfangen!!!
Deshalb bitte dringend Hilfe!