Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Jede zweite Zelle kopieren

Gruppe

Kopieren

Problem

Wie kann ich alle Zeilen ab einer durch InputBox-Eingabe festgelegten in ein zweites Arbeitsblatt kopieren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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