Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren