Laufzeitfehler - Paste Special Objekt

Hallo Claus,

ich verstehe zwar noch nicht alles - klemme ich mich dahinter!

Der Code funktioniert prima!

Vielen Dank für deine Mühe!!!

Gruß Michael

Hallo Claus,

sorry. Mein Fehler.

Makro liegt hinter Austritt Monate.

Austritt Monate $F$6 ist ein Auswahlfeld mit Monaten, das entsperrt ist.

Nach der Meldung sind plötzlich die Tabellen Austritt Monate und Gesamt auch gesperrt! Was ich auch nicht verstehe.

Gruß Michael

Hallo Michael,

in welchem Blatt ist der Code hinterlegt? Wenn es entweder "Gesamt" oder "Austritt Monate" ist, wie kannst du da in F6 etwas ändern, wenn die Blätter geschützt sind?

Claus

Hallo Michael,

bei mir funktioniert der Code korrekt.

Hier ein paar Änderungen:

Sub Worksheet_Change(ByVal Target As Range)

'   Ausgeschiedene im Monat

If Target.Address <> "$F$6" Or Target.Count > 1 Then Exit Sub'   BILDSCHIRM aus

    Application.ScreenUpdating = False

    

'   Blattschutz aus

    Sheets("Gesamt").Unprotect ("XXXXXX")

    Me.Unprotect ("XXXXXX")'   Austritt Monate - Daten C8/UK207 l?schen

    Me.Range("C8:UK207").ClearContents'   Gesamt - Spezialfilter

    With Sheets("Gesamt")

        .Range("C7:UK207").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

        .Range("WQ1:WS2"), Unique:=False'       Austritt Monate - gefilterte Daten aus Gesamt einf?gen

        Set Ziel = Me.Range("C8")

        .Range("C8:UK207").Copy

        Ziel.PasteSpecial Paste:=xlPasteValues

        Application.CutCopyMode = False

        

'       Gesamt - Spezialfilter l?schen

        On Error Resume Next

        .ShowAllData

    End With

  '   Austritt Monate - B7

    Application.Goto Me.Range("B7")

'   Blattschutz ein

    Sheets("Gesamt").Protect ("XXXXXX")

    Me.Protect ("XXXXXX")

'   BILDSCHIRM ein

    Application.ScreenUpdating = TrueEnd Sub

Claus

Hallo Claus,

Ich hab mal was probiert.

ohne ByVal und ohne 'If Target.Address = "$F$6" Then

funktioniert das Makro! Also muss hier der Fehler liegen - Keine Ahnung warum!

Sub Test()

' Ausgeschiedene im Monat

' BILDSCHIRM aus

Application.ScreenUpdating = False

' Austritt Monate - Monat auswählen

'If Target.Address = "$F$6" Then

' Blattschutz aus

Sheets("Gesamt").Unprotect ("XXXXXX")

Sheets("Austritt Monate").Unprotect ("XXXXXX")

' Austritt Monate - Daten C8/UK207 löschen

Sheets("Austritt Monate").Range("C8:UK207").ClearContents

' Gesamt - Spezialfilter

With Sheets("Gesamt")

.Range("C7:UK207").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

.Range("WQ1:WS2"), Unique:=False

' Austritt Monate - gefilterte Daten aus Gesamt einfügen

Set Ziel = Sheets("Austritt Monate").Range("C8")

.Range("C8:UK207").Copy

Ziel.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Application.Goto Ziel

' Gesamt - Spezialfilter löschen

On Error Resume Next

.ShowAllData

End With

'End If

' Austritt Monate - B7

Sheets("Austritt Monate").Select

Range("B7").Select

' Blattschutz ein

Sheets("Gesamt").Protect ("XXXXXX")

Sheets("Austritt Monate").Protect ("XXXXXX")

' BILDSCHIRM ein

Application.ScreenUpdating = True

End Sub

Gruß Michael