Ich habe folgendes Problem
Ich möchte alle selektierten Zeilen zählen, was ich dank Eurer Hilfe nun so mache:
Sub test()
Dim i As Integer, k As Long, z As Long, s As String
z = 0
s = "*"
For i = 1 To Selection.Areas.Count
k = Selection.Areas(i).Row
If InStr(1, s, "*" & k & "*", vbTextCompare) = 0 Then
s = s & k & "*"
z = z + 1
End If
Next i
MsgBox "Anzahl der Zeilen: " & z
End Sub
Wenn ich aber nun den Autofilter setzte habe ich bei den Ergebniszeilen ggf. größe Sprünge bei den Zeilennummern. Wenn ich die Erbeniszeilen nun selektiere und zähle, werden auch die Zeilen, die dazwischen liegen, mitgezählt.
Wie kann ich das umgehen? Will tatsächlich nur dir sichtbaren Zeilen zählen!
Liebe Grüße
Andrea