Office: Automatische Rechnungsnummer

Hi zusammen,

im Internet gibt es dazu ja reichlich Vorschlage und ich bin auch tatsächlich fündig geworden und konnte ein Makro bis auf ein kleines Problem alleine anpassen.

Folgendes Problem:
In der Beispieldatei seht ihr 3 Checkboxen. Je nach dem welche man auswählt soll sich die Rechnungsnummer (Zeichenkette aus 3 Komponenten) automatisch erstellen. Das klappt wie gewünscht. Die Art und weise wie der code geschrieben ist, ist leider nicht "bedienungssicher" genug.
Tut mir den gefallen und klickt auf Buchungskreis1 danach auf Buchungskreis2 und dann wieder auf Buchungskreis1.
Obwohl ich dann später noch keine rechnung geschrieben habe geht die Rechnungsnummer bereits hoch.
Ziel ist aber auf eine Checkbox zu klicken dann auf "Rechnung erstellen" und erst jetzt soll die Rechnungsnummer irgendwo (hier: Blatt1) übernommen werden. Weil sagen wir ich irre mich oder verklicke mich bei der Auswahl des Buchungskreises, dann vergeude ich ja eine nummer, wenn ihr versteht was ich meine. Weil sobald ich richtig drauf klicke springt die nummer ja wieder um +1 hoch.

Meine lösung (hat nicht funktioniert) war, ich deklariere die variable ,RechNr1, RechNr2, RechNr3 als public variable und und sag dann im command button code "ok erst jetzt ins tabellenblatt schreiben".
Aber entweder ist das unlogisch oder meine syntax hat nicht gepasst weil der code hat gar nichts gemacht. Also auch keine fehlermeldung.

Könnt ihr mir vielleicht noch einmal weiterhelfen?

Gruß

 

Hallo n.n.,

ich habe das Ganze mal etwas "verschlankt". Wenn das so mit den Radiobuttons hinhaut, dann die Checkboxes löschen und natürlich noch den neue Rechnungsnummer in das Blatt eintragen. Wie das geht, siehst du ja beim auslesen [mit Cells(3, Bk)].

 

Hallo cpt. Nemo,

danke für deine zugige Antwort. Ich würde gerne noch etwas nachfragen. Ich würde gerne sobald ein Buchungskreis ausgewählt wurde die Rechnungsnummer direkt im textfeld anzeigen lassen ohne dass ich den commandbutton brauche. Bei deinem Code verstehe ich allerdings nicht wie ich das einbauen kann. Ich sehe unten nur die Möglichkeit die "MsgBox" mit "txtReNummer" zu ersetzen. Gibt es da die möglichkeit direkt nach dem anklicken die Nummer ins Feld zu bekommen?

Und ist es möglich dass wenn ich den commandbutton klicke dass im tabellenblatt (Blatt1) die Zahl von 2 auf 3 springt sobald ich drauf gedrückt habe?

LG Nico

 

Hallo Nico,

verstehe ich das richtig?
Wenn sich bei den RadioButtons durch Klick etwas ändert, dann soll erst einmal nur in der TextBox die neue Rechnungsnummer angezeigt werden? Und wenn du dann den CommandButton2 anklickst, dann soll im TabellenBlatt die entsprechende Zahl erhöht werden. Richtig?

Gruß
Günther

 

Hallo Günther,

GANZ GENAU! So habe ich mir das gedacht. Durch den command button übertrage ich später weitere Daten in meine tabelle. Erst dadurch wird es "offiziell". Solange ich Eingaben in der Userform mache kann ich mich theoretisch ja verklicken und da soll die Kundennummer immer noch die selbe bleiben. Also die aktuelle für jeden Buchungskreis

Gruß Nico

 

Hallo Nico,

das sollte jetzt hinhauen. Mini-Änderungen kann ich noch mache, aber irgendwo brauche ich auch Zeit für Privates.

Gruß
Günther

 

Hallo Günther,

Also habs doch selber lösen können. (im command button code)
Durch das ändern von dem Ursprungscode mit BK = (irgendwas) txt_hidden in:
BK = BkSelected

funktioniert es nun einwandfrei.

Vielen Dank für deine Mühen insbesondere am heiligen Sonntag :)

Gruß
Nico

 

Na dann ...
einen schönen Rest-Sonntag!

Gruß
Günther

 

Hallo noch einmal,

Ich hätte noch eine Anschlussfrage. Derzeit habe ich viel Zeit mich um dieses Projekt zu kümmern. Mit stetigem Fortschritt haben sich auch minimal die Aforderungen geändert. Und zwar will ich jetzt die textboxen nicht nur zur Eingabe sondern auch zum auslesen lassen verwenden. Und da komme ich mit der erstellten function in einen konflikt. Denn sobald ich einen datensatz in von der userform auslesen lasse, übernehme ich auch beim radio button u. bei der checkbox die einstellungen. Das ist dann wieder das signal für die function den vorgang auszuführen. Und das ist ja eigentlich nicht korrekt.
Nun wollte ich fragen ob es die möglichkeit/codes gibt, die function "an- bzw. abzustellen". Das würde dann so aussehen, wann immer ich einen neuen auftrag anlege, wird die function aktiviert, ansonsten ist sie "disabled".

Geht sowas? oder muss man hier die function so umschreiben dass sie als unterprogramm aufgerufen wird?

Liebe Grüße und ein schönes Wochenende

Nico