Office: Reihe...aus (A1) = 30 wird (A2) = 30; 29; 28; usw 3; 2; 1

Hallo Ihr Excel Experten,

ich suche eine Lösung für folgendes Problem:
es soll eine Arte Reihe bzw Verkettung berechnet werden die eine Liste zurückgibt welche mit dem Anfangswert beginnt und dann runter zählt bis 0 (Null)
mit der eingebauten Verkettung oder Reihe funzt es leider nicht
Ich brauche das als Art Zählliste. d.h. in einer Zelle wird ein Wert eingetragen und in der anderen Zelle bekommt man dann eine rückwärtslaufende Reihe zum abstreichen beginnend mit dem Wert aus der ersten Zelle
Beispiel:

A1 A2
30 30; 29; 28; 27; 26; usw..... 3; 2; 1
7 7; 6; 5; 4; 3; 2; 1
127 127; 126; 125; 124; usw.... 3; 2; 1

diese Reihe auch noch schön mit Komma oder / oder ;
und das alles in EINER Zelle
VBA Code kann ich kopieren ;-)

wäre super wenn es dafür eine Lösung geben würde

vielen Dank und herzliche Grüsse
Jürgen

 

Hallo!

Am praktischsten dürfte hier eine benutzerdefinierte Funktion sein:

Code:

Function Zähler(Zelle As Range) As String
Dim i&
For i = 1 To Fix(Zelle.Value)
Zähler = i & "; " & Zähler
Next i
Zähler = Left(Zähler, Len(Zähler) - 2)
End Function

Kopiere den Code in ein normales Modul und die Funktion steht dir in der Tabelle zur Verfügung, z.B.

=zähler(A1)

 

Super es funktioniert

vielen herzlichen Dank Schatzi,

genau das was ich gebraucht habe......

und das soooooo flott :lol: