Werte in spalte vervielfältigen

[PeterN]

Hola los todos!

Ich habe EINE Spalte mit eindeutigen Werten.

Gibt es eine Formel mit der ich alle Werte innerhalb dieser Spalte ver-x-fachen und in Blöcken untereinander schreiben kann?

Beispiel:

Wert1
Wert2
Wert3

Formel für alle Werte mal 2 ergäbe:

Wert1
Wert1
Wert2
Wert2
Wert3
Wert3

In meinem konkreten Fall habe ich eine Spalte mit 200 eindeutigen Werten, die ich in Blöcken zu jeweils 274 untereinander bräuchte, also insgesamt 54800 Zeilen.

[LuckyJoe]

Hi Peter,

das geht wohl nur mit VBA; ein einfaches Beispiel habe ich beigefügt und für alles Variablen genommen, die du im Einzelfall anpassen musst:

Sub Vervielfachen()

    Dim AnfangsZeile As Integer
    Dim LetzteZeile As Integer
    Dim Spalte As Integer
    Dim Faktor As String
    Dim i As Integer
    
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    ' ggf. anpassen: 
    Spalte = 1          ' Spalte A 
    AnfangsZeile = 1
    LetzteZeile = 200
    ' oder so: 
    ' LetzteZeile = ActiveSheet.Cells(Cells.Rows.Count, Spalte).End(xlUp).Row 
    
    ' vervielfachen mit 
    Faktor = 273        ' 1 weniger, da eine Zelle mit Wert ja schon vorhanden ist 
    
    For i = LetzteZeile To AnfangsZeile Step -1
        Rows(Cells(i, 1).Row).Copy
        Rows(Cells(i, 1).Row).Resize(Faktor).Insert Shift:=xlDown
    Next
    
    Application.CutCopyMode = False
    
    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

End Sub

[PeterN]

Hi!

Super! Danke!

Ich habe eine Liste mit 200 Werten angehängt.

Könntest Du mit BITTE Deinen Code mit dieser Liste verknüpfen, mir einen START Button einfügen und dann hochladen?

Ich habe schon mehrfach probiert Codes in neue Listen einzufügen oder bestehende Codes zu überschreiben. Leider ist es mir bisher nicht gelungen.

[schauan]

Hallo Peter,

hier mal ein Formelbeispiel für 3x. Die Formel brauchst Du nur runterziehen. Anschließend tust Du die Spalte B kopieren und die Spalte A mit Inhalte einfügen - Werte (Button 123) überschreiben. Dann löschst Du die "Hilfsrechnung".  

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	Wert1	Wert1
2	Wert2	Wert1
3	Wert3	Wert1
4		Wert2
5		Wert2
6		Wert2
7		Wert3
8		Wert3
9		Wert3
10		0

Zelle	Formel
B1	=INDEX(A:A;AUFRUNDEN(ZEILE()/3;0);1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Das mit den Makros ist auch kein Hexenwerk.
Du fügst einen Button und weist ihm das Makro zu.
Dazu klickst Du im Zuweisungsdialog auf "Neu"
Da erscheint dann ein neues Makro, z.B.

Option Explicit

Sub Rechteck1_Klicken()

End Sub

und zwischen Sub... und End Sub fügst Du den Code ein. Anschließend nimmst Du einmal die eingefügte Zeile mit Sub … weg und einmal End Sub

[LuckyJoe]

Hallo Peter,

anbei die aktualisierte Datei, die ich wegen des Makros als "*.xlsm" gespeichert habe.

Ganz witzig: unter Excel 2003 auf einem 9 Jahre alten PC hat das ganze knapp 5 Sekunden gedauert. Mit einem 2 Jahre altem PC und Excel 2016 dauert das bei mir über eine Minute. Office 2007 kann ich hier nicht testen. Wenn das also nur eine einmalige oder nicht so häufige Arbeit sein soll, dann kann man sich mal eine Minute gedulden. Solltest du so etwas öfters brauchen, dann würde ich das anders programmieren (vielleicht mit einem Array).

Viel Erfolg.

[PeterN]

Der André ist:

A) einer von den Besten
N) einer von den Schnellsten
D) einer von den Nettesten
R) einer von den Hilfreichsten
E) einer von den Sympathischsten

P.S. Multiple Choice ist möglich

Danke & Gruss

Peter

---

Hi!

Super 2!

Danke 2!

Bei mir hat es auch ca. 5 Sek. gedauert.

Gruss

Peter