Hi,
ich will mit diesem Code die UsedRange der gefilterten Daten abrufen.
Dim rngGefiltert As Range
Set rngGefiltert = wksManuell.UsedRange.SpecialCells(xlCellTypeVisible)
If (rngGefiltert.Rows.Count) > 7 Then
wksManuell.Range("A8:E" & lngletzteZeile).Copy
wksNachweiseManuell.Range("A5").PasteSpecial xlPasteFormats
wksNachweiseManuell.Range("A5").PasteSpecial xlPasteValues
End If
Allerdings ist das Ergebnis von rngGefiltert.Rows.Count = 7.
Wie kann das denn sein?
So sieht meine Tabelle aus mit Filter:
Weiss jemand Rat?
Danke Euch! :)
Flo