Filtern & Copieren ohne VBA

[Chrischl]

Hi,

hab so den WInk bekommen, dass es hier natürlich nicht ideal ist eine Datei mit Makros einzustellen, daher hier nochmal die Verison ohne Makros.

Inhalt des Makros war:

-----
Sub Ausdruck()
'
' Ausdruck Makro
'

'
    Sheets("Ausdruck Fahrstunden").Select
    Range("A13:J55").Select
    Selection.ClearContents
    Range("A13").Select
    Sheets("Eingabe Fahrstunden").Select
    ActiveSheet.Unprotect
    Range("M13").Select
    ActiveSheet.Range("$A$11:$S$57").AutoFilter Field:=13, Criteria1:="X"
    Range("A13:J55").Select
    Selection.Copy
    Sheets("Ausdruck Fahrstunden").Select
    Range("A13").Select
    ActiveSheet.Paste
    Range("A13").Select
    Sheets("Eingabe Fahrstunden").Select
    Range("M13").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$11:$S$57").AutoFilter Field:=13
    Range("A13").Select
    Selection.AutoFilter
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

-----

Viele Grüßse