=machs(A1) alle Teiler einer Zahl

[Ettenna63]

Hallo zusammen,
ich habe diese Formel von hier:

Bitte kostenlos registrieren, damit du die Links siehst.

Der Beitrag von ransi entspricht dem, was ich haben möchte, aber so funktioniert das nicht bei mir.
Hat jemand eine Lösung?
Vielen Dank im Voraus

 

[Frank Ziemann]

Nur zum Verständnis, hast du jetzt einfach nur "=machs(A1)" in die Zelle B1 geschrieben oder hast du auch vorher die Funktion "machs(Zahl)" definiert mit der Formel die in deinem Link steht?

Denn ohne die Funktion vorher zu definieren kennt Excel ja gar keine Funktion "machs(Zahl)"

 

[Ettenna63]

Ich habe nur "=machs(A1)" hinein geschrieben.
Was muss ich machen, damit die Formel funktioniert?

 

[buerzel]

Alt + F11, Einfügen → Modul und den Code der Funktion machs da reinkopieren (das, was aus deinem Link unten im gelben Kasten steht). Den VBA-Editor schließen und machs anwenden.

 

[Ettenna63]

Vielen Dank,
funktioniert einwandfrei.
Ich habe die Daten nun, mit Text in Spalten, in einzelne Zellen eingefügt.
Gibt es eine Möglichkeit, diese Zahlen einer Spalte zuzuweisen?

 

[buerzel]

Ginge schon ... Dazu muss (mindestens) die letzte Zeile des Codes umgeschrieben werden:

machs = Join(arr, ", ")

setzt den String zusammen. Da müsste immer die jeweilige Spalte erhöht werden. Kein großes Ding, wenn man „Bock” und Zeit hat.

Vlt. „erbarmt” sich ja jemand deiner ...

 

[rodolfo4711]

Wie erstellst du jetzt die Teiler in den Spalten B bis K? Mit welcher Funktion oder welchem Makro ?

Und dann soll in den Spalten M bis ... in der entsprechenden "Teiler-Spalte" (M für 2, N für 3, usw) der Teiler drinstehen, so wie jetzt in M5, P12 oder U12? habe ich das so richtig verstanden?