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.
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
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.
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.
Zitat: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
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.
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