VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Jede zweite Zelle kopieren

Gruppe

Allgemein

Bereich

Kopieren

Thema

Jede zweite Zelle 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

    


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