Selection in gefilterter Tabelle

Sub Bearbeitungs_Druck_Auswahl()
Dim rngDruck As Range, rngLimits As Range
With Sheets("Protokoll") '.Visible'
Set rngDruck = Range(Cells(Selection.Row, 1), Cells(Selection.Rows.Count + Selection.Row -   _
_
_
1, 3)) 'Für Etiketten ausgewählter Bereich'
Set rngLimits = Range(Cells(4, 1), Cells(Rows.Count, 3).End(xlUp)) 'Eingrenzung aus Spalte   _
_
_
SN, Bauv. und Pos.'
Set rngFarbe = Range(Cells(Selection.Row, 1), Cells(Selection.Rows.Count + Selection.Row -   _
_
_
1, 2))
End With
Set rngkopie = Sheets("Etikettendruck").Cells(2, 1) 'Bereich in den kopiert werden soll'
Set rngClear = Sheets("Etikettendruck").Range(Sheets("Etikettendruck").Cells(2, 1), Sheets(" _
Etikettendruck").Cells(Rows.Count, 3)) 'zu löschender Bereich'
If Intersect(ActiveCell, rngLimits) Is Nothing Then 'überprüft, ob ausgewählter Bereich in   _
_
_
Eingrenzung liegt'
MsgBox "Die aktive Zelle liegt nicht im definierten Zielbereich!"
Else
If MsgBox("Möchten Sie die Seriennummern und Positionen im markierten Bereich ü _
bernehmen?", vbYesNo, "Richtig markiert")  vbYes Then Exit Sub
rngClear.Clear
rngkopie.Resize(rngDruck.Rows.Count, rngDruck.Columns.Count).Value = rngDruck.Value ' _
kopiert Werte'
rngFarbe.Interior.ColorIndex = 8 '6'
End If
End Sub

With Sheets("Protokoll") '.Visible'