Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werteliste schreiben

Forumthread: Werteliste schreiben

Werteliste schreiben
23.08.2006 08:48:32
Steve
Ich habe eine Tabelle die folgendermaßen aussieht
A # B
1 # 2
1 # 3
3 # 0
2 # 5
Nun möchte ich eine neue Zeile schreiben, die die Werte in B übernimmt, aber so oft wie der Wert in A ist:
C
2
3
0
0
0
5
5
Wie kann man das ermöglichen (keine VBA-Kenntnisse vorhanden)?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werteliste schreiben
23.08.2006 09:17:44
Hans
Hallo Steve,
wie folgt:

Sub Wiederholen()
Dim iRow As Integer, iRowT As Integer, iCounter As Integer
Columns(3).ClearContents
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
For iCounter = 1 To Cells(iRow, 1).Value
iRowT = iRowT + 1
Cells(iRowT, 3).Value = Cells(iRow, 2).Value
Next iCounter
iRow = iRow + 1
Loop
End Sub

gruss hans
Anzeige
AW: Werteliste schreiben
23.08.2006 09:18:48
UweD
Hallo
durch folgendes Makro

Sub Wiederholung()
Dim Sp%, LR&, i&, j&, k%
Sp = 1 'Spalte A
LR = ActiveSheet.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
j = 1
For i = 1 To LR
For k = 1 To ActiveSheet.Cells(i, 1)
ActiveSheet.Cells(j, 3) = ActiveSheet.Cells(i, 2)
j = j + 1
Next k
Next i
End Sub

- VB-Editor öffnen Alt+F11
- einfügen Modul
- in das neue Fenster rechts den Code reinkopieren
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Werteliste schreiben
23.08.2006 10:15:47
Steve
Ja danke, geht.
;

Beliebteste Forumthreads (12 Monate)

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