Werte in einer spalte auf mehrere aufteilen

26/08/2010 - 08:35 von Volker Neurath | Report spam
Hallo zusammen,

ich tüftle gerade für eine Bekannte an einer Excel-aufgabe.
Die bekommen in der 4ma aus einem messsystem Daten nach Excel, wobei die
Messdaten in einer spalte untereinander stehen.
Diese Daten müssen aber in ein weiteres System - und dort müssen die
Daten in einer bestimmten form *nebeneinander* stehen, nàmlich immer in
5er Blöcken

Mal ein Beispiel:

Quelldaten

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Ziel
1 6 11
2 7 12
3 8 13
4 9 14
5 10 15

Das ganze muss dynamisch sein, d.h unabh#àngig davon, wieviele Werte
geliefert werden, funktionieren.
Ich steh hier gerade màchtig auf dem Schlauch, auch weil ich gerade den
Kopf mit Access voll (und zu) habe ;)

Volker

Wenn es vom Himmel Zitronen regnet -- lerne, Limonade zu machen.
 

Lesen sie die antworten

#1 Claus Busch
26/08/2010 - 09:05 | Warnen spam
Hallo Volker,

Am Thu, 26 Aug 2010 08:35:19 +0200 schrieb Volker Neurath:

Quelldaten

1
2
3
4
5
6
7


.
.

Ziel
1 6 11
2 7 12
3 8 13
4 9 14
5 10 15



probiers mal so (eventuell anpassen, falls du eine Überschrift hast):

Sub Uebertragen()

Dim LRow As Long
Dim i As Long
Dim m As Integer

m = 2
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 6 To LRow Step 5
Cells(i, 1).Resize(5, 1).Copy _
Destination:=Cells(1, m)
m = m + 1
Next
'Range("A6:A" & LRow).Delete

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen