Wenn ich im Sheets1 den Autofilter setze, möchte ich den ersten Wert von Spalte W nach V1 kopieren.
Filter ist ab Zeile 2, Zeile 1 hat Überschriften.
Könnte mir dazu bitte jemand weiterhelfen?
Danke
SG, Heinz
Sub ErsteZelle()
Dim rngBereich As Range
Dim strZelle As String
With ActiveSheet.AutoFilter
Set rngBereich = .Range.Columns(23).SpecialCells(xlCellTypeVisible)
If rngBereich.Cells.Count > 1 Then
strZelle = Split(rngBereich.Address, ",")(1)
Range(strZelle).Copy Range("V1")
End If
End With
End Sub
=INDEX(W:W;AGGREGAT(15;6;ZEILE(A1:A100)/TEILERGEBNIS(3;INDIREKT("A"&ZEILE(A1:A100)));2))
als Makro lässt sich das ganze auch in einer Zeile ausführen:Columns(1).SpecialCells(xlCellTypeVisible).Areas(1 - Rows(2).Hidden)(2 + Rows(2).Hidden).Copy Range("D1")
Gruß Daniel