Thema Datum  Von Nutzer Rating
Antwort
Rot Filter nutzen trotz Blattschutz und gesperrter Zellen
 10.07.2019 15:10:21 seebär
NotSolved
24.07.2019 11:41:48 mike
NotSolved

Ansicht des Beitrags:
Von:
seebär		 Datum:
10.07.2019 15:10:21		 Views:
739		 Rating:
     
Antwort:
  Ja
Thema:
Filter nutzen trotz Blattschutz und gesperrter Zellen		 
Hallo Ihr VBA Könner

Ich kann das Tabellenblatt nicht filter, wenn der Blattschutz gesetzt ist und auch ein paar Zellen gesperrt sind, da es sich um
Formel Zellen handelt.

Und ich möchte auch gerne, so wie unten geschrieben, die Zeile, die ins Archiv gewandert ist, wieder zurück holen können, wenn ich
das Datum wieder lösche.

Kann mir da jemand helfen??


Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="test"
    Dim lngErste As Long
    If Target.Column = 12 Then
        If Target.Count = 1 Then
            If IsDate(Target) Then
                With Worksheets("Archiv")
                    lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
                        .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
                    Rows(Target.Row).Copy
                    .Cells(lngErste, 1).PasteSpecial Paste:=xlValues
                    Rows(Target.Row).Delete shift:=xlUp
                End With
            End If
        End If
    End If
     ActiveSheet.Protect Password:="test"
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Filter nutzen trotz Blattschutz und gesperrter Zellen
 10.07.2019 15:10:21 seebär
NotSolved
24.07.2019 11:41:48 mike
NotSolved