Gruppe
Allgemein
Problem
Wie kann ich über AutoFilter gefilterte Daten in ein zweites Tabellenblatt übertragen, ohne sie in die Zwischenablage zu übernehmen?
StandardModule: mHWH
Sub Uebertragen()
Dim iCounter As Integer, iRow As Integer
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCounter).Hidden = False Then
iRow = iRow + 1
Worksheets("Tabelle2").Cells(iRow, 1).Value = _
Cells(iCounter, 1).Value
End If
Next iCounter
End Sub