Fortlaufende Seriennummern mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
danke für den Vorschlag.
Leider habe ich nicht erwähnt, dass es unter umständen auch Zeilen giebt die nicht automatisch ausgefüllt werden sollten.
Ich versuche mal meine Aufgabenstellung zu konkretisieren:
Jeder Listeneintrag besteht aus einer Seriennummer und bis zu 5 Informationszeilen. Da die Liste (nur) zum Ausdrucken vorgesehen sein sollte, kann ich die Informationsfelder nicht nebeneinander Plazieren, sondern ich muss sie aus Platzgründen untereinander Platzieren.
Die Informationsfelder, werden entweder automatisch (fortlaufende Nummer), teilweise per Hand (vorausgefüllter Anfang) oder komplett per Hand (kein automatischer Eintrag) eingetragen.
Das sieht dann ungefär so aus:


15763-001 | Info1: xyz-078
| Info2: soundso13 __________
| Info3: teil 17a-001
| Bemerkung: __________
15763-002 | Info1: xyz-079
| Info2: soundso13 __________
| Info3: teil 17a-002
| Bemerkung: __________

Ob ein Feld automatisch ausgefüllt wird oder nicht entscheidet sich mit dem Macro Assistenen und wir von mir bereits im Macro abgefragt. Ich weiss hald nur noch nicht, wie ich die Daten Zeile für Zeile vom vorhergehenden auf den aktuellen Eintrag herunter bekomme.

Hallo,
das ist natürlich ein sehr interessanter Lösungsansatz, eine Formel zu benutzen.
Allerdings sollten die Sereinnummern-Felder sehr dynamisch gehalten werden, die Funktion der 5 Felder und somit auch die schreibweise der Seriennummer frei wählbar sind.
Ausserdem ist das Macro so konstruiert, dass man vor dem Drucken der Liste, diese noch manuell überarbeiten kann. Das währe natürlich fatal, wenn die Änderung einer Zeile durch die Formel auswirkungen auf den Rest des Dokuments hätte.
Das Ziel der Liste ist, dass der Benutzer bei veränderung der Anforderungen, diese anpassen kann, ohne einen Programmierer zu benötigen.
Aus diesem Grund importiere ich z.b. aus dem 2. Arbeitsblatt eine einfach zu wartende Liste in ein Listenfeld des Assistenten. ich überlege auch den aktuellen zustand der Eingabefelder des Assistenten in einem Arbeitsplatt zwischenzuspeichern.
Von da her währe es kein Problem die Seriennummern in einem eigenen Arbeitsblatt Spalte für Spalte mit .AutoFill zu erstellen um sie dann in die Liste rüber zu kopieren.
Ich hätte mir hald nur gedacht, dass es vielleicht eine Funktion giebt die in der Lage ist den Zahlenanteil eines Strings so zu erhöhren, wie .AutoFill das machen würde.

Beliebteste Forumthreads (12 Monate)

Fortlaufende Seriennummern mit VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fortlaufende Seriennummern mit VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread