Auto Werte duplizieren

Forumthread: Auto Werte duplizieren
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Auto Werte duplizieren

08.08.2003 14:23:16

Martin

Hallo zusammen,
für mein Problem habe ich leider keine gute Überschrift gefunden, aber
vielleicht hat trotzdem jemand eine Idee oder einen Hinweis:
Tja zur Sache:
In einer Quelltabelle habe ich eine Liste der folgenden Art
(die Punkte dienen nur der Formatierung)
Spalte 1··· Spalte 2
0,5···········2
0,7···········4
0,9···········1
Das soll jetzt in einer Zieltabelle so umgeformt werden,
daß folgendes herauskommt
0,5
0,5
0,7
0,7
0,7
0,7
0,9
Die Zahl in der ersten Spalte soll also sooft wiederholt werden,
wie der Zähler in der zweiten Spalte angibt. Für sowas gibt´s nicht
zufällig eine Funktion ? Naja bin auch schon mit Hinweisen glücklich -:)
Hinterher sollen die Zwischenwerte auch noch interpolliert werden, aber
das Problem ist erstmal verschoben...
Grüße Martin

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auto Werte duplizieren

08.08.2003 14:49:29

WernerB.

AW: Auto Werte duplizieren

08.08.2003 14:49:29

WernerB.

Hallo Martin,
mein Vorschlag ("Tabelle3" = Zieltabelle):


Sub Martin()
Dim c As Range
Dim laRQ As Long, laRZ As Long, i As Long
laRQ = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & laRQ)
With Sheets("Tabelle3")
For i = 1 To Cells(c.Row, 2).Value
laRZ = .Cells(Rows.Count, 1).End(xlUp).Row
If laRZ = 1 And .Cells(1, 1).Value = "" Then laRZ = 0
.Cells(laRZ + 1, 1).Value = c.Value
Next i
End With
Next c
End Sub

Viel Erfolg wünscht
WernerB.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!