Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blattinhalte dreier Blätter in neues Blatt kopieren

Gruppe

Kopieren

Problem

Die Daten in den Tabellen 1 bis 3 sollen in eine neue Tabelle kopiert werden.

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

StandardModule: basMain

Sub Kopieren()
   Dim iCounter As Integer, iRow As Integer
   Application.ScreenUpdating = False
   Worksheets.Add after:=Worksheets(Worksheets.Count)
   iRow = 1
   For iCounter = 2 To 4
      Worksheets(iCounter).Range("A1").CurrentRegion.Copy _
         Cells(iRow, 1)
      iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   Next iCounter
   Application.ScreenUpdating = True
End Sub