Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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)?

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige