Datum mit Formatierung

[danny]

Guten morgen,

hab eine frage an euch ich würde gern eine Rechnungsnummer erstellen (Heutiges Datum und eine 4 stellige fortlaufende Nummer).
Dazu möchte ich eine Schaltfläche mit einem "+" haben wo ich draufdrücken kann um die Fortlaufende nummer auf +1 zu ändern.

Leider bekomm ich das nicht mit dem Datum mit der (180907) Formatierung nicht hin.
Könnte mir einer die Formel vertaten? 

Hier ein Beispiel:

[WillWissen]

Hi,

an der Stelle deines "+" (Zelle E1) ziehst du ein Drehfeld aus den Formularsteuerelementen auf und verknüpfst dieses mit E1. In C1 kommt dann diese Formel:

Code:

=TEXT(HEUTE();"JJMMTT")&"/"&TEXT($E$1;"0000")

Im Anhang die Datei "zum Spielen".


  Drehfeld_für_Rechnungsnummern.xlsx (Größe: 12,43 KB / Downloads: 3)

[danny]

Hey cool das ging ja schnell.

Eine frage hab ich aber noch kann man auch einfach nur ein Button nehmen? Soll ja nur plus 1 und nie Minus 1

[WillWissen]

Hi Danny,

ja, das geht. Ziehe einen Button auf (zum Testen habe ich den aus den Formularsteuerelementen genommen) und weise ihm folgendes Makro zu:

Code:

Option Explicit

Sub HochZaehlen()
Cells(1, 5).Value = Cells(1, 5).Value + 1
End Sub

Den Button legst du, wie im vorigen Beispiel den Drehschalter, auf die Zelle E1.

Im ScrShot siehst du das Aussehen:      

[WillWissen]

Hi Danny,

du schreibst zwar, dass du nicht rückwärts zählen willst/musst. Doch mal ein kurzer Denkanstoß: was ist, wenn du versehentlich den Button betätigst? Ok, du könntest mit dem Cursor unter den Button fahren und die Zahl manuell korrigieren - das ist nach meinem Dafürhalten aber umständlich. Da würde ich lieber die vorige Version wählen. Oder, wenn dir nach wie vor die Buttonlösung besser gefällt, eine Sicherung einbauen.

Eine Möglichkeit wäre, ein zweites Makro zu benutzen:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells(1, 5).Value = Cells(1, 5).Value - 1
End Sub

Mit einem Doppelklick kannst du (d)ein Missgeschick wieder ausbügeln.

[danny]

Cool das hat ja problemlos geklappt.

Hab noch eine frage

Hab unten noch eine Tabelle gemacht. 
Die Erklärung dazu....
Oben die Tabelle sind die Kunden im gelben Feld möchte ich die Firma oder Namen oder oder oder eingaben (Auswählen)

Dann soll der rest in die Adresszeilen dadrunter geschoben werden.

Hoffe hab das gut erklärt

[WillWissen]

Hallo Danny,

Arbeitsblatt mit dem Namen 'Blatt1'
	A	B	C	D	E
1	KundenNr.	Firma	Name	Adresse	PLZ / ORT
2	00001	Muster	Max Muster	Musterstr. 33	12345 Musterdorf
3	00002	Murks&Co	Rainer Zufall	Kannix 11	99999 Murkshausen
4	00003	Pfeilschnell	Claire Grube	Pumpenweg 1	88888 Sauberstadt
5	00004	Linke Bazille	Gustav Gans	Duselgasse 7	66666 Glücksdorf
6
7
8	KundeNr. / Firma / Name / Adresse
9	Muster
10
11	Muster
12	Max Muster
13	Musterstr. 33
14	12345 Musterdorf
15

Zelle	Formel
A11	=SVERWEIS($A$9;Tabelle1[[Firma]:[PLZ / ORT]];ZEILE(A1);0)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Formel eintragen und runterziehen.

[danny]

Zum ersten Beitrag....sorry erst jetzt gesehen

Die variante mit dem Button ist perfekt...wenn es mal vorkommen sollte dann lass ich es eben so oder mach es manuell

Zum 2. funktioniert aber wenn ich das jetzt in einer anderen Tabelle übernehmen will geht das nicht mehr....
Auf was muss ich achten? 
Ich glaub er erstellt mir nicht die Tabelle.
Hab die Kundenliste in einer extra Mappe

[WillWissen]

Hi Danny,

dann zeig mal bitte deine Datei(en) so, wie du sie im Original hast. Sensible Daten bitte anonymisieren und auch nur ein paar wenige Datensätze drin lassen. Ohne deinen Aufbau zu kennen, kann ich dir die Formel nicht anpassen.

[danny]

So hab das mal schnell nachgebaut...

Wäre es so machbar das man Firma oder Namen ((Auswählen) Dropdown) kann?