Office: (Office 2016) Werte bis zum maximalen Index generieren

Hallo,

ich habe eine Tabelle folgender Gestalt:
Nummer; maximaler Index
1;1
2;1
3;3
4;2
5;6

ich möchte daraus gerne eine zweite Tabelle in der folgenden Gestalt generieren:
Nummer; aufsteigender Index bis maximaler Index
1;1
2;1
3;1
3;2
3;3
4;1
4;2
5;1
5;2
5;3
5;4
5;5
5;6

Wie geht das? Herzlichen Dank für Hilfe!

 

ich interpretiere mal Nummern als Zahl? "1;1" ist keine Zahl sondern Text?
Ich würde mal vermuten das geht nur per VBA.

 

achso, das Semikolon symbolisiert eine Zelltrennung.
Die Nummer ist irgendeine Schlüsselnummer. In der Zelle rechts daneben steht eine Zahl, die den maximalen Index für die jeweilige Schlüsselnummer anzeigt. Ich brauche quasi für die gleiche Schlüsselnummer zusätzliche Werte bis zum maximalen Index in einer neuen Tabelle.

 

Moin

Stack sequences of various size - Microsoft Tech Community

 

das konnte ich nicht sehen, da ich nicht auf fremde Rechnmer schaue.
Du hast Extra keine Dateio verlinkt, da Du die Lösung selber an Deine Bediungungen anpassen wolltest.
Ich habe jetzt schon die Zeit investiert und Deine Datei nachgebnaut.
Ich habe eine Lösung erstellt, dier In meiner Datei geht.
Ich bin dann also raus, da Lösung erstellt.
Viel Erfolg.

Code:

Option Explicit

Sub Nummern()
    Dim LoLetzte As Long
    Dim LoI As Long
    Dim LoJ As Long
    Dim LoZeile As Long
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    For LoI = 1 To LoLetzte
        For LoJ = 1 To Cells(LoI, 2)
            Cells(LoZeile + 1, 4) = Cells(LoI, 1)
            Cells(LoZeile + 1, 5) = LoJ
            LoZeile = LoZeile + 1
        Next LoJ
    Next LoI
End Sub

Gruß Hajo

 

Hallo, herzlichen Dank, auch für das Makro!

Gibt es die tolle Formellösung auch auf deutsch? Leider darf ich keine Makros verwenden.

VG, Matrixas

 

Einfach die deutschsprachigen Funktionsnamen einsetzen und Dezimalpunkt durch Dezimalkomma ersetzen. Ebenso bei den Parametertrennern.
Und es gibt auch Online-Übersetzer für Excel-Formeln (z.B. von Mourad Louha).

 

Ok, danke... leider haben alle Formeln bei mir trotz Übersetzer • Excel-Translator nicht funktioniert. Es kam stets #Name? zurück. Hmm...

 

Deine Excel-Version ist zu alt.

 

Ok, geht auch mit Excel-Office 365 bei mir nicht.

 

z.B.
=REDUCE(hdr;Inputs;LAMBDA(u;n;_xlfn.VSTACK(u;SEQUENZ(n)))
geht nicht

 

REDUCE() und VSTACK() gibt es z.Z. nur in der Beta-Version.

Aber die Lösung von mtarler läuft mit Office 365:
Re: Formula Spill - Microsoft Tech Community

 

Hallo DL_

in deinem Link gibt es leider keine Lösung von mtarler. Kannst du mir bitte die Formeln von ihm für die Spalten D und E sowie die Zeilen 1 bis 13 (s.u.) hier reinkopieren oder einen anderen Link zusenden?

In Spalte A und B stehen in Zeile 1 bis 5 folgende Werte:
A|B
Nr|maxIndex
1 1|1
2 2|1
3 3|3
4 4|2
5 5|6

und in Spalte D und E in den Zeilen 1 bis 13 soll dann folgendes stehen:
D|E
Nr|aufsteigender Index bis maxIndex
1 1|1
2 2|1
3 3|1
4 3|2
5 3|3
6 4|1
7 4|2
8 5|1
9 5|2
10 5|3
11 5|4
12 5|5
13 5|6

Herzlichen Dank!

 

Da war wohl ein alter Link im Clipboard.

Re: Stacked sequences of various size - Microsoft Tech Community

 

Die Formel von mtarler:
=LET(in,Inputs,inc,SCAN(0,in,LAMBDA(c,I,I+c)),s,SEQUENCE(SUM(in)),s-XLOOKUP(s,inc+1,inc,0,-1))

übersetzt ins Deutsche Excel:
=LET(in;Inputs;inc;SCAN(0;in;LAMBDA(c;I;I+c));s;SEQUENZ(SUMME(in));s-XVERWEIS(s;inc+1;inc;0;-1))

liefert mir leider wieder #Name? (Office 365)

Kannst du mir bitte eine funktionierende Formel geben?