---

Hallo Zusammen,

ich habe ein kleines Rechenproblem welches ich mit Excel lösen möchte finde aber keinen Ansatz zur Lösung.

Problem:
Ich muss Aufkleber mit einzelnen Ziffern bestellen um damit zum Beispiel die Zahlen von 1 bis 164 auf Werkstücke zu kleben.
Die Ziffern sollen einzeln bestellt werden.
Es können aber auch die Zahlen von 50 bis 260 oder andere sein.
Ich meöchte in dem Excel Dokument zwei eingabefelder haben "von" und "bis" und dann möchte ich als Ergebnis wie viele "1er" "2er" "3er"... ich dazu brauche.

Danke und Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zaehlenwassonst.xls.txt

und dabei existiert hier so ein nettes Excelforum,
in dem gerne geholfen wird...

Spalte A ist Hilfsspalte

Zellen D4 "mmini";D5 "maxi" sind benannt

A1 den Wert aus D4

A2 und folgende basieren auf =IF(A1>=maxi;"";A1+1)

Zellen C8-C17 dienen der Visualisierung der Zahlen 0-9

Zellen D8-D17 enthalten Matrixformeln aka {=SUM((MID($A$1:$A$999;COLUMN(1:1);1)="1")*1)}
besser ist {=SUM((LEN($A$1:$A$999)-LEN(SUBSTITUTE($A$1:$A$999;C8;"")))/LEN(C8))}
- ist schneller :-)

falls über 1000 Zahlen gerechnet werden soll;
A999 nach unten kopieren... und Formeln anpassen.

und da das ganze Matrixformeln sind, rechnet der Rechner ein wenig :-)

und da eine Mappe oftmals hilfreich ist - geuppt

[thedit]=SUM((LEN($A$1:$A$999)-LEN(SUBSTITUTE($A$1:$A$999;C8;"")))/LEN(C8))[Toff]

[Diese Nachricht wurde von Thomas Harmening am 18. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

liste.xls.txt

Hallo,

ich würde dazu ein kleines Makro schreiben... ich hab das schon mal vorbereitet

In deiner Excel Tabelle schreibst du in B1 deine Startzahl, in B2 deine Endzahl. Dann das Makro ausführen und ab B4 werden die Zahlen mit dem Anhang "er" eingetragen.

Gruß
Roland

Sub auffuellen()
Dim von As Integer, bis As Integer

von = Range("B1").Value
bis = Range("B2").Value
Dim wert As String

Range("B4").Activate

For i = von To bis
wert = CStr(i) + "er"
ActiveCell.Value = wert
ActiveCell.Offset(1, 0).Activate
Next i

End Sub

------------------
Signatur? Was'n dat?

[Diese Nachricht wurde von Konersmann am 20. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Thomas,

funktioniert genau wie gewünscht.
So pipifax wie es sich nach der Aufgebestellung vermuten lässt ist es wohl nicht.

@Konersmann
Die Anzahl wie viele Ziffern ich zu bestellen habe erhalte ich mit Deinem Makro leider nicht.
Ich bekomme nur z.B. die Zahlen von 1 bis 60 mit einem "er" angehängt.
Trotzdem Danke für die Mühe.

Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

liste1500.xls.txt

Hallo Wolli,

bei mir funzt das Makro ohne Probleme.
Ich habe mal bis 1500 ausfüllen lassen.

Gruß
Roland

------------------
Signatur? Was'n dat?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Roland,

ich glaube wir haben uns bei der Aufgabenstellung missverstanden.
Ich will wissen wie viele ich von welchen Ziffern bestellen muss um die Zahlen von z.B. 1 bis 60 aufkleben zu können.

Wie viele Einser ich benötige kann ich aus Deiner Liste nicht erkennen.

Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP