Zeilen ausfüllen

12/03/2010 - 16:38 von Oliver Hohl | Report spam
Hallo Newsgroup

Unter Excel07 habe ich zwei Spalten
Spalte A Spalte B
1 10
2 20
3 30
4 40
Jetzt möchte ich, dass ein Element von Spalte A alle Elemente von Spalte B
enthàlt. D.h. das Datenblatt soll schlussendlich so aussehen:
Spalte A Spalte B
1 10
1 20
1 30
1 40
2 10
2 20
etc.

Da die Spalte A & B doch einige Elemente haben, möchte ich dies nicht
hàndisch machen.
Hat jemand einen Trick? Mir fàllt im Moment selbst mit Pivot/Transponieren
etc. nichts ein...

Vielen Dank und viele Grüsse
Oliver
 

Lesen sie die antworten

#1 Claus Busch
12/03/2010 - 17:18 | Warnen spam
Hallo Oliver,

Am Fri, 12 Mar 2010 07:38:02 -0800 schrieb Oliver Hohl:

Jetzt möchte ich, dass ein Element von Spalte A alle Elemente von Spalte B
enthàlt. D.h. das Datenblatt soll schlussendlich so aussehen:
Spalte A Spalte B
1 10
1 20
1 30
1 40
2 10
2 20
etc.



probiers mal so:

Sub Ausfuellen()

Dim Start As Integer
Dim Elemente As Long
Dim Reihe As Long
Dim i As Long
Dim m As Long

'Start = 2, wenn Überschrift vorhanden
'sonst Start = 1
Start = 2
'Elemente ist die Anzahl der Wiederholungen
Elemente = 4
'Reihe ist gewünschtes Ende der Reihe
Reihe = 250
m = 1

For i = Start To Elemente * Reihe Step Elemente
Cells(i, 1).Resize(Elemente, 1).Value = m
m = m + 1
Next

Cells(2, 2) = 10
Cells(3, 2) = 20
Cells(4, 2) = 30
Cells(5, 2) = 40

Range("B2:B5").AutoFill _
Destination:=Range("B2:B" & Elemente * Reihe), _
Type:=xlFillCopy

End Sub


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

Ähnliche fragen