Hallo,
der Code ist in der angegebenen Form unvollständig.
Es fehlt ein with. Zusätzlich fehlt am Ende ein "end if".
Der vollständige lauffähige Code könnte so aussehen:
Sub Demo()
Dim lngRow As Long, lngCol As Long
With Worksheets(1)
If .AutoFilterMode Then
.Cells.AutoFilter
lngRow = .Cells.Find("*", .Cells(1), -4123, 2, 1, 2, False).Row
lngCol = .Cells.Find("*", .Cells(1), -4123, 2, 2, 2, False).Column
On Error GoTo 0
End If
End With
End Sub
Was macht dieser Code?
Es wird nachgeschaut, ob in der ersten Tabelle ein Autofilter aktiv ist. Falls dem so ist, wird die Anzahl der Spalten und Zeilen den Variablen lngRow bzw. lngCol übergeben.
LG, Ben
|