kennt jemand eine Möglichkeit, die selektierten Zeilennummern
bei aktiviertem Autofilter an ein Makro zurückzugeben ?
Dank im voraus
Dirk
leider hast Du nicht geschriebnen was Du damit machen willst. Bei eingeblendeten Zeilen ist die Zeilen Höhe verschieden von Null
Schleife auf nur sichtbare Zellen
Du kannst Deine For Each Zeile wie folgt ergänzen:
For Each zelle In bereich.SpecialCells(xlCellTypeVisible)
Dann ist bereich auf den sichtbaren Teil eingeschränkt.
von Gerhard
Gruß hajo
vielen Dank für die prompte Info.
Ich würde gerne eine Auswahl via Textbox solange selektieren,
bis nur noch eine Reihe übrig ist, um dann das Ergebnis weiterzuverarbeiten.
Das sieht bisher so aus, leider gibt die Count-Eigenschaft
aber nix gescheites aus. ;-((
Gruß Dirk
Public treffer As String
Private Sub TextBox1_Change()
Dim inhalt As String
inhalt = TextBox1.Text
inhalt = "=*" & inhalt & "*"
Selection.AutoFilter Field:=1, Criteria1:=inhalt, Operator:=xlAnd
If Range("c7").CurrentRegion.SpecialCells(xlCellTypeVisible).Count = 1 Then
treffer = Range("c7").CurrentRegion.SpecialCells(xlCellTypeVisible).Value
MsgBox treffer
End If
End Sub