Thema: Kalendersteuerelement an Tabellenblattwerte binden

StandardModule: basMain

Sub ZeilenKopieren()
   Dim iEnd As Integer, iRow As Integer
   Dim sStart As String
   Application.ScreenUpdating = False
   sStart = InputBox("Startzeile:", , 3)
   iEnd = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = CInt(sStart) To iEnd Step 2
      Rows(iRow).Hidden = True
   Next iRow
   Rows(sStart & ":" & iEnd).SpecialCells(xlCellTypeVisible).Copy _
      Worksheets("Tabelle2").Range("A1")
   Worksheets("Tabelle2").Columns.AutoFit
   Rows.Hidden = False
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und Calendar