Hallo...
Was spricht dagegen für jeden Standort ein eigenes Tabellenblatt zu nehmen? In der ersten Spalte zwei Einträge machen um dann mittels ziehen per Maus die spalten automatisch nummerierten lassen?

Als Idee wie ich es angehen würde.
- Ein zusätzliches Blatt erstellen, wo die letzte Inventarnummer in drei Zellen pro Standort stehen. (z.B. A1 = R ; B1 = 21 ; C1=0001)
- Im Eingabeformular ein Auswahlfeld für den Standort
- Wenn bei der Eingabe der Standort ausgewählt wird, liest man die Werte aus dem Hilfsblatt, addiert 1 zu der Nummer, überprüft das Jahr und setzt die neue Inventarnummer zusammen. (z.B. R21-0002)
- beim Bestätigen der Eingabe, schreibt man die neuen Daten wieder aufs Hilfsblatt (z.B. A1 = R ; B1 = 21 ; C1=0002)

Hallo Johanne,

wenn ich das so richtig verstanden habe, dann versuch mal dieses hier



(Der Code kommt in die Userform1)

Um den Jahreswechsel zu simulieren, einfach mal die Uhr umstellen. Mal vor, mal zurück, mal aktuelles Jahr. Nach jedem Umstellen dann die Funktion testen. Sollte so klappen. Aber natürlich immer nur für das aktuelle Jahr wird der höchste Wert ermittelt.

Stellst du also auf 2019 zurück, dann wird der erste Eintrag x19-0001 lauten. Erst danach x19-0002 usw. Stellst Du auf 2020, dann geht das gleiche Spielchen wie bei 2019 los, ebenso bei 2021 usw. Wenn Du dann wieder auf 2019 umstellst, sollte es mit x19-0003 usw. weitergehen.

Da meine Routine immer für das aktuelle Jahr die letzte, somit die höchste Nr. ermittelt, ist die Sortierreihenfolge der Daten vollkommen egal. Es wird erst der Standort geprüft, dann das Jahr und nur innerhalb des aktuellen Jahres erfolgt die Ermittlung der letzten Zahl.

Ich hoffe, dass die Beschreibung im Code ausreicht. Wenn nicht einfach noch mal melden.

Glaube, dass könnte es sein, was Du suchst.

Gruß
Volker

Hallo Johanne,

schön, dass ich richtig lag und Dir helfen konnte.

Also folgendes (Mein Code):

Die Zeilen 3-5 kannst Du beliebig Deiner abzuspeichernden Felder erweitern. Diesen Weg habe ich eigentlich nur der Übersichtshalber gewählt.

Zeile 6-8 sind für das Zählen zuständig

Zeile 13-15: Hier werden den in Zeile 3-5 festgelegten Variablen die einzelnen Eingabefelder übergeben

Zeile 20-22, 57-59: Hier werden die Werte in die Tabelle geschrieben.

Wenn Du jetzt Deine Schreibweise von R20-0001 auf R-20-0001 anpassen willst/musst, dann sind die Zeilen

20, 43, 45, 57 die, die Du anpassen musst.

Deine neue Zeile 57 ist soweit erst einmal richtig

Schau Dir mal die o. g. vier Zeilen genau an.

Die Lösung liegt in dem MID-Befehl. Dieser Befehl dient dazu, einen Wert/Text von einem Zeichen bis zu einem Zeichen zu generieren.
Bsp: Aus 'Hallo Welt' wird mit MID("Hallo Welt", 3, 5) = "llo W". 3 ist also das 3te Zeichen von links und dann 5 Zeichen weiter.

Die Zeilen 20, 43, 45, 57 müssten also für die Schreibweise R-20-0001 wie folgt lauten

20: Sheets("Tabelle1").Range("A2").Value = Mid(StandortWahl, 1, 1) & "-" & Format(Now, "YY") & "-0001"

43: If Mid(AktZeilenwert, 3, 2) = Format(Now, "YY") Then

45: AktLfdNr = Mid(AktZeilenwert, 6, 4)

57: Sheets("Tabelle1").Range("A" & zeile).Value = Mid(StandortWahl, 1, 1) & "-" & Format(Now, "YY") & "-" & Format(LetzteInventarnrStandort + 1, "0000")

Wichtig: Es zählt somit jedes Zeichen, also auch die Leerzeichen.

Willst Du z. Bsp.: R-2020-0001 stehen haben, dann musst Du

1.: Alle YY in YYYY ändern (betrifft hier alle Format-Befehlszeilen)
2.: Die Zeilen 43 und 45 müssen dann natürlich auch angepasst, Zeile 20 und 57 werden durch ändern auf YYYY eh schon geändert und stellen somit nur die richtige Darstellung sicher.

Probier am besten einfach mal ein bisschen aus, nach dem es geklappt hat oder nutze den Einzelschrittmodus bzw. das Direktfenster

Einzelschrittmodus geht wie folgt:
Am besten drückst Du auf der Sub/Function - Zeile die F9 Taste. Dann wird die gerade aktuelle Zeile rot hinterlegt. Noch einmal F9 und sie ist wieder normal.
Eine rote Zeile hält an dieser Stelle immer den Code an.
Man kann nun mit F8 Zeile für Zeile weitergehen. Die entsprechenden Ergebnisse wie bspw. in Zeile 13 kann man dann sehen, wenn man in Zeile 14 und ff. sich befindet. Geh einfach mal mit der Maus auf Standortauswahl und schau was Dir angezeigt wird.

Direktfenster:
Drücke mal als erstes STRG+G. Es erscheint unter dem Code ein neues Fenster Direktbereich.
Hier kann man mit Eingabe '? Standortwahl' + ENTER-Taste sich den Wert von Standortwahl auch anzeigen lassen
Das ? ist also der Befehl 'Zeige mir' und gibt den aktuellen Wert der dahinterstehenden Angabe aus.

Zeile 57 kannst Du so leider nicht kpl. markieren und Dir anzeigen lassen, aber '? Sheets("Tabelle1").Range("A" & zeile).Value' oder '? Mid(StandortWahl, 1, 1) & "-" & Format(Now, "YY") & "-" & Format(LetzteInventarnrStandort + 1, "0000")'
funktionieren da hin gehend super.

Letzters ist hier ideal, um mal so ein paar Dinge zu testen. Dazu einfach im Direktfenster die Eingabe verändern und sehen was dabei rauskommt.
Zeile 43 und 45 sind für Dich hier natürlich die aller wichtigsten, wenn du Zeile 20 und 57 änders.
Probier einfach mal etwas mit den Zeilen aus im Direktfenster.

Aber Wichtig:
Das ganze liefert nur Werte, wenn Du den Code mit F9 anhälst und mit F8 über die entsprechenden Zeilen drüber bist. Denn nur dann haben die Stellen Werte.

Wegen dem Jahr:
Versuch mal mit ein paar Testdaten (also manuell eingeben) das Jahr nicht auf das aktuelle zu setzen. Es sollten ein paar von 2019 und ein paar von 2021 dabei sein, aber keines von diesem Jahr.
Wenn er dann wieder bei x-20-0001 anfängt, dann ist alles richtig. Auch wenn Du die Daten mal nach etwas anderem sortierst, dann sollte immer die nächste richtige Nummer kommen. Damit hast Du eigentlich das Ganze auch getestet.
Natürlich müssen alle Inventarnummern am Schluss ein Format haben.

Ich hoffe, dass Du mit meinen Erklärungen klar kommst.

Gruß

Volker

Hallo Johanne,

kein Problem.

Bin ja mal selbst froh, dass ich helfen konnte, sonst Frage ich hier nur (allerdings bei VB.Net).

Programmiere schon seit 1984 und kann noch lange nicht alles.

Also nicht aufgeben und dran bleiben. Es erleichtert am Ende das Leben ungemein. Nur halt bis dahin, ist es teilweise ein langer steiniger Weg.

Gruß

Volker

Hallo Johanne,

das mit dem Jahr das da immer 20 (für 2020) raus kommt liegt an dem Now im Format-Befehl (Zeile 20, 43 und 57).

Now = aktuelles Datum bzw. Uhrzeit (Bsp. 23.09.2020 19:45:45)

YY = Jahr in zweistelliger Darstellung

Format(Now, "YY") bringt also das aktuelle Computerdatum/Uhrzeit in der Form Jahr zurück. Also hier 20

Schreibst Du bspw. Format(now,"YYYY") erhälst Du 2020. Schau einfach mal bei Format in der Hilfe nach, dort gibt es noch einige andere Buchstaben für Tag. Monat, Stunde. Minute, Sekunde). Hiermit lassen sich auch bestimmte Schreibweisen realisieren.

Möchtest Du also das Jahr variable halten, dann fügt mal folgende Zeilen ein

3a: Dim ArtikelJahr as Date
13a: ArtikelJahr = "01.01." & TBox_Jahr.Text ' Erstellt aus der Eingabe 2021 ein festes Datum 01.01.2021. Durch diesen kleinen Trick ist es dann immer ein Datum.
Wenn die Eingabe tatsächlich ein Datum ist, dann einfach ArtikelJahr = TBox_Jahr.Text eingeben.

22a: Sheets("Tabelle1").Range("D2").Value = ArtikelJahr
59a: Sheets("Tabelle1").Range("D" & zeile).Value = ArtikelJahr

(Wenn Du die Variante mit dem 01.01. nimmst, dann ändere 22a und 59a in
22a: Sheets("Tabelle1").Range("D2").Value = format(ArtikelJahr,"YYYY")
59a: Sheets("Tabelle1").Range("D" & zeile).Value = format(ArtikelJahr,"YYYY")
dann wird nur das Jahr in die Liste eingetragen und nicht der 01.01.)

Tausche dann noch alle 'Now' durch 'ArtikelJahr'

Damit sollte es eigentlich klappen.

Einziges Problem. Du müsstest sicherstellen, dass es auch immer eine Zahl (2020) oder ein Datum ist.

Sag mir erst einmal noch wie das Jahr bei der Eingabe sein soll (also 2020 oder tt.mm.jjjj).

Dann noch eine Frage: Wenn Du nur den Tag eingeben würdest, welcher Monat soll es dann sein?

Ich Frage deswegen, weil ich für folgende Konstellation schon eine Lösung habe.

Bsp:

Heute ist der 23.09.2020.
Eingabe 1 - 23 ist immer der aktuelle Monat und das Jahr.
Eingabe 24-31 ist immer der Monat davor/Jahr davor also hier 25.08.2020. Währe heute der 23.01.2020 dann wäre bei Eingabe 25 das Ergebnis 25.12.2019.

Ein anderes Datum kannst Du natürlich auch eingeben, musst dafür aber die Punkte setzen

Für die Eingabe 0108 = 01.08.2020 (also das aktuelle Jahr) gebe es auch eine Möglichkeit.

Beim Datum ist halt das ewige Punktesetzen doch recht nervig.

Teile mir einfach mal Deine Schnelleingabewunsch für das Datum mit und ich schaue mal ob mir was einfällt.

Zu 'Ansonsten gibt es für mich noch die Frage, ob man die Nummerierung auf einem "Extrablatt" wie z.B Tabelle 2 notieren kann.
Ist halt die Frage, wie Sinnvoll es ist, wenn man das vielleicht auch herausfiltern kann.' hätte ich noch eine Frage: Wie meinst Du das?

Zu der Bücherfrage: Habe zwar ein paar Programmierbücher aber leider alle nur für VB.Net und Datenbankprogrammierung. Da schaue ich aber auch nur selten rein. Bin da ehr der Typ Forum, Youtube und Internet Suche. Das liegt aber auch ehr daran, dass meine Probleme meist schon höherem Nivau sind.

Gruß

Volker

Hallo Johanne,

wenn Du nach dem Jahreswechsel noch für das alte Jahr Daten eintragen willst, dann musst Du wohl oder übel das Jahr dauerhaft in die Eingabemaske packen.

Du kannst aber über Private Sub UserForm_Initialize() das Jahr einfach auf das aktuelle Jahr voreinstellen.
TBox_Jahr.Text = format(now,"YYYY") = 2020 (sieht optisch besser so aus, natürlich geht auch YY = 20).
Die Übergabe an meinen Code müsstest Du dann wie zu Letzt beschrieben mit abspeichern/übergeben.
Damit kannst Du schnell die Artikel erfassen und auch mal schnell das Jahr wechseln.

Einen Eingriff in den Code macht grundsätzlich keinen Sinn, da solch ein Code erstens nicht für jedermann ist und zweitens auch nicht für das permanente Ändern während der Eingabe gedacht ist.
Zum Ausprobieren bei der Entwicklung durch den Entwickler (also Dich) ist das natürlich was anderes.
Grundsätzlich solltest Du aber mit möglichst wenig festen Werten arbeiten.Dadurch kannst Du einmal dem Benutzer die Chance geben, variable zu bleiben (Bsp. MwSt-Satz) und zum anderen ist die Pflege von solchen Werten leichter möglich (Ich denke da an eine Passwort geschützte Eingabemaske, in der solche Werte dann nur von berechtigten Personen geändert werden können).
(Hängt natürlich immer vom jeweiligen Projekt ab und den Wünschen)

Wegen der Anzeige der letzten Eingaben:
Man könnte bspw. eine Sub schreiben, die dann für das aktuelle Jahr die höchsten Nr. ausgibt.
Die Anzeige würde ich dann in die Eingabemaske packen. So würde man da gleich alles sehen.
Bei Interesse, könnte ich kurz mal was schreiben.

Zu den Büchern:
Geh doch einfach mal in eine Buchhandlung und schau dort mal nach entsprechenden Büchern. Es gibt doch die Bücherei "xxx für Dummies", vielleicht ist das ja was. (Bitte nicht falsch verstehen)
Manche Bücher sind zwar inhaltlich gut, aber vielleicht doch nicht was für Anfänger. Da muss jeder selbst schauen, wo mit er am besten klar kommt.
Gerade die dicken Bücher von Markt&Technik (1000 Seiten und mehr) überfordern einen recht schnell. Wenn dann noch viel Fach-Chinesisch dazu kommt, ist recht schnell Ende im Gelände.
Auch das mit den Englischkenntnissen kann jemanden überfordern und da ist es manchmal schwer, auf den richtigen Befehl für die Suche zu kommen.

Gruß
Volker