Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmten Zahl aus Wert auslesen

Bestimmten Zahl aus Wert auslesen
01.08.2017 16:48:36
Martin
Hallo,
Ich möchte in Excel 2010 VBA mir eine Angebotsnummer generieren lassen.
Die Angebotsnummer setzt sich wie folgt zusammen.
BSP: 7100630517
Erklärung:
710 = ist ein Festwert, steht immer voran
063 = ist eine fortlaufende Nummer, also mit jeder neuer Angebotsnummer 1 höher
0517= Monat und Jahr der Erstellung.
Mein Größtes Problem ist es Monat und Jahr mit hinten dran zu hängen.
Ich habe zwar in einer Spalte das Datum stehen, aber im Format 31.12.2017; hier ist halt der punkt dazwischen was nicht sein soll......
Hat jemand ne Idee. Habe gerade echt ne Blockade.
Hoffe auch das ich das alles verständlich geschrieben habe.
Danke vorab.....

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmten Zahl aus Wert auslesen
01.08.2017 16:54:08
Hajo_Zi
=Format(Date,"MMYY")

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
AW: Bestimmten Zahl aus Wert auslesen
01.08.2017 16:58:00
Michael
Hallo!
Die fortlaufende Nummer müsste halt irgendwo gespeichert und dann hochgezählt werden, da gibt's viele Varianten. Ich nehme jetzt mal an, die jeweils letzte Nummer wird in der letzten Zelle des Blattes gespeichert, dann geht das bspw. so, als Idee:
Sub a()
Const PRE& = 710
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(1)
Dim CurNo
CurNo = Format(Ws.Cells(Ws.Rows.Count, Ws.Columns.Count).Value + 1, "00#")
Ws.Range("A1") = PRE & CurNo & Format(Date, "MMYY")
Ws.Cells(Ws.Rows.Count, Ws.Columns.Count).Value = CurNo
End Sub
LG
Michael
Anzeige
AW: Bestimmten Zahl aus Wert auslesen
01.08.2017 17:01:18
mmat

Sub Convert()
Dim s As String, lfdnr As Long, Datum As Date
lfdnr = 63
Datum = CDate("31.12.2017")
s = "710" + Format(lfdnr, "000") + Format(Month(Datum), "00") + Format(Year(Datum) - 2000, "00") _
Debug.Print s
End Sub

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige