Nr-Generator mit VBA
11.03.2019 21:12:20
Peter
mein Name ist Peter und ich versuche gerade vergeblich einen Nummerngenerator zu basteln und habe schon herausgefunden, dass es wohl nur mit VBA funktionieren wird.
Das Problem dabei ist, dass ich von VBA leider keinen blassen Schimmer habe und nach 3 Tagen suchen und herumprobieren auch nicht wirklich weiterkomme.
Daher hoffe ich, dass mir die Experten hier aus dem Forum weiterhelfen können.
Der Nummerngenerator soll anhand von 3 zu wählenden DropDown-Feldern eine Artikelnummer erzeugen.
Die Nummer beginnt immer mit "xyz".
Unter den Kategorien Produkt, Haupt-BG und Unter-BG kann dann die entsprechende Auswahl für die Buchstabenzugehörigkeit getroffen werden.
Hier werden dann den DropDown-Feldern zugeordnete Nummern eingetragen (z. B."xyz4011").
Das habe ich bis hierhin auch mit Formeln hinbekommen.
Jetzt kommt aber die Stelle wo ich auch mit lesen, suchen und probieren nicht mehr weiter komme:
Beim Klick auf den Button "Artikelnummer übertragen" soll die Nummer erweitert werden und zwar mit einer automatisch fortlaufenden Nummer im Format xxxxx (also z. B. xyz401100001).
Anschließend soll die Nummer in die Spalte "übertragene Nummern" kopiert werden und dann in die nächste Zeile springen um das Spiel beim Klicken auf den Button wieder von vorn zu beginnen.
Dabei soll die zuvor generierte Nummer erhalten bleiben und nur einmal vergeben werden.
Ich habe auch schon ein wenig mit den Makros herumexperimnentiert, komme aber hier wie gesagt nicht wirklich weiter.
Ich habe mal probehalber ein Makro erstellt was leider eher schlecht als recht funktioniert: Sub test() ' test Makro Range("I2").Value = Range("I2").Value + 1 ActiveCell.Offset(1, 0).Activate End Sub
Es zählt zwar die Nummer hoch und springt eine Zelle weiter, allerdings nicht im richtigen Format und ohne die vorangestellten Zeichen ("xyz4011").
Außerdem wird die Nummer immer in die selbe Zelle I2 geschrieben und nicht in die nächste darunter.
Die Beispieldatei habe ich mit eingefügt.
https://www.herber.de/bbs/user/128303.xlsx
Ich hoffe Ihr könnt mir helfen da ich wie gesagt mit VBA nicht wirklich bewandert bin.
Vielen Dank schon mal im Voraus
Mit freundlichen Grüßen
Peter