VBA: Automatische Produktnummerierung (wenn möglich?)

[HAMRacer44]

Guten Morgen zusammen,

für die Spezialisten hier ist dieses Problem wohl Kindergarten, aber ich beiße mir da dran schon einige Tage die Zähne aus...

Ich habe eine UserForm in der ein Kürzel für den Artikel sowie der Bereich, in dem die Nummerierung der Artikel stattfinden soll, eingetragen wird. Diese Werte werden nach Eingabe in ein anderes Blatt (Tabelle3) übergeben, um die Nummerierung dann zeilenweise einzutragen. Das der Eintrag der ersten hochgezählten Zahl (StartNummer + 1) eingetragen wird, habe ich mittels untenstehendem Code bewerkstelligt:

Code:

  With Tabelle3
    For i = txtPPNummerStart To txtPPNummerEnde
      .Cells(5, lastSpalteNummerierung) = txtPPKürzel & txtPPNummerStart + 1
      z = z + 1
      Next
  End With

*Anmerkung zum Code: "txtPPNummerStart" und "txtPPNummerEnde" sind Textfelder, in denen die Zahlen im UserForm eingetragen werden (z.B. Start = 1000; Ende = 2000); txtPPKürzel ist das firmeninterne Kürzel, welches bei der Nummerierung zwingend mit eingetragen/übergeben werden muss.

Nun zu meiner Frage: Kann man eine Schleife programmieren, in der nicht nur in Zeile 5 der jeweiligen Spalte der StartNummer-Eintrag um 1 hochgezählt wird, sondern dass der gesamte Nummernbereich hochgezählt wird (also im Prinzip so: "Starte mit txtPPKürzel & txtPPNummerStart + 1 und zähle so lange um 1 hoch [z.B. bis Zeile 1000] bis bei txtPPKürzel & txtPPNummerEnde angelangt"). Leider sind die Nummernbereiche sehr unterschiedlich groß, d.h. ich kann nicht im Vorhinein sagen, wie lange hochgezählt werden soll (also ob 1000 oder 3000 mal hochgezählt werden soll)

Ich hoffe die Frage ist nicht allzu kompliziert formuliert.

Danke euch für eure Hilfe und lieben Gruß
HAMRacer44

[Klaus-Dieter]

Hallo,

leichter verständlich wird es sicher mit einer Beispieldatei, am besten mit händisch eigetragenem Wunschergebnis.

[Kuwer]

Hallo,

Code:

  With Tabelle3
    For i = txtPPNummerStart To txtPPNummerEnde
      .Cells(5 + Z, lastSpalteNummerierung) = txtPPKürzel & i
      Z = Z + 1
    Next i
  End With

Gruß Uwe

[HAMRacer44]

Hallo Kuwer,

deine Lösung funktioniert problemlos. Vielen herzlichen Dank!

Lieben Gruß und schönes WE

HAMRacer44