Office: Daten von einer Zelle in genau X mehrere Andere kopieren etc

Guten Tag,

ich habe eine Spalte mit versch. Messdaten und möchte einen Wert immer in z.B. 20 andere Zellen (untereinander) einfügen lassen und dann soll Excel den nächsten Wert aus den Messdaten nehmen.

Quasi zwei Spalten, in einer die Messdaten, in der Anderen sollen diese jeweils 20mal untereinander eingefügt werden und dann automatisch zum nächsten Wert (aus der ersten Messdatenspalte) wechseln.

Vielen Dank!!!

 

Hi,

kann man z.B. mit diesem Makro lösen:

Code:

Sub Vervielfaeltigung()
   Dim lngZeile As Long
   Dim lngStart As Long
   lngStart = 1
   lngZeile = 1
   Do
     Cells(lngZeile, 1).Copy Range(Cells(lngStart, 2), Cells(lngStart + 19, 2))
     lngStart = lngStart + 20
     lngZeile = lngZeile + 1
     If Cells(lngZeile, 1) = "" Then Exit Sub
   Loop
End Sub

Bis später,
Karin

 

Danke!

Vielen Dank!!! Funktioniert super! Genau das habe ich gesucht! :-D