AW: Autofilter - vorletzte sichtbare Zeile ansprechen
23.07.2018 18:50:55
Luschi
Hallo Matto,
ich habe mal eine Lösung von Nonet von vor 10 Jahren angepaßt:
'siehe: https://www.ms-office-forum.net/forum/showthread.php?t=57331
'von NoNet
Sub ForNextRueckwaertsZellen()
Dim rg As Range
Dim lngZ As Long, intA As Integer, i As Integer, sAdr As String
i = 0
Set rg = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
For intA = rg.Areas.Count To 1 Step -1
For lngZ = rg.Areas(intA).Count To 1 Step -1
i = i + 1
If i = 2 Then
'vorletzte Addresse
sAdr = rg.Areas(intA)(lngZ).Address
GoTo ende
End If
Next
Next
ende:
Set rg = Nothing
MsgBox "vorletzte Adresse: " & sAdr, 4096 + 48, "zur Info..."
End Sub
Gruß von Luschi
aus klein-Paris