VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zahlen eines Bereiches jeweils 4 mal in eine Spalte schreiben.

Gruppe

Allgemein

Bereich

Kopieren

Thema

Zahlen eines Bereiches jeweils 4 mal in eine Spalte schreiben.

Problem

Die Zahlen im Bereich B1:Y3 sollen jeweils 4 mal in Spalte AA geschrieben werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.




StandardModule: Modul1

Sub Aufteilen()
   Dim iRow As Integer, iCol As Integer
   Dim iCounter As Integer, iAct As Integer
   For iRow = 1 To 3
      For iCol = 2 To 25
         For iAct = 1 To 4
         iCounter = iCounter + 1
         Cells(iCounter, 27).Value = Cells(iRow, iCol).Value
         Next iAct
      Next iCol
   Next iRow
End Sub

    


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