VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kalendersteuerelement an Tabellenblattwerte binden

Gruppe

Dialog

Bereich

Calendar

Thema

Kalendersteuerelement an Tabellenblattwerte binden

Problem

Kalendersteuerelementwerte sollen an Tabellenblattwerte gebunden werden.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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