Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auto Werte duplizieren

Auto Werte duplizieren
08.08.2003 12: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
Anzeige
AW: Auto Werte duplizieren
08.08.2003 12: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.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige