folgenden Beispielcode gestoßen :
Dim Zeile As Long
Zeile = ActiveCell.Row
With Sheets("Kunden")
Do
Zeile = Zeile + 1
Loop Until Rows(Zeile).Hidden = False
Cells(80, 8).Select ' hier mein Versuch - greift aber nicht ?
Cells(Zeile, 8).Select
End With
Es soll ab Zeile 80 dann die nächste sichtbare Zeile gewählt werden
Bei mir sind in der Tabelle oberhalb Zeile 80 einige ( versch. ) Zeilen ausgeblendet, zB auch 20-29 ...
lasse ich das Makro laufen beginnt er offensichtlich bei Zeile 1 und wählt daher immer H30 anstatt zB H81 oder wenn gefiltert wird H102 oder so ...
je nachdem nach was halt gefiltert wird. Mein Autofilterbereich ist ab H81:AP10000
Deshalb hätte ich zunächst H80 angewählt und dann den Code ausgeführt - so dachte ich dass er dann die nächste sichtbare Zeile nimmt in Spalte H
Leider beginnt er nicht bei Zeile 80 sondern bei 1
Könnt ihr mir sagen wie ich das anpassen kann ?
Bin um jede Hilfe dankbar ,
LG udo