Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub PruefenEinblenden()
   Dim iRow As Integer
   For iRow = 1 To 25
      If Not IsEmpty(Cells(iRow, 1)) Then
         Worksheets("Tabelle2").Rows(iRow).Hidden = False
      End If
   Next iRow
End Sub

    

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