Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fortlaufende-Nummer vergeben

Fortlaufende-Nummer vergeben
21.01.2008 14:31:00
Lunatic82
Hallo zusammen,
hab mal wieder ein problem, brauch für die iso-zertifizierung für die aufbewahrung von garantieteilen ein formular, dass automatisch eine fotlaufende nummer generiert.
und aus diesem formular soll dann wenn möglich ein klebeetikett erstellt werden (nur die fortlaufende nummer), natürlich auch automatisch... wär echt super wenn mir jemand irgendwie weiterhelfen könnte
Danke! ;)
Gruß FLO

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

Betreff
Datum
Anwender
Anzeige
AW: Fortlaufende-Nummer vergeben
21.01.2008 15:06:00
Wolli
Hallo Flo, wär' echt super, wenn Du irgendwie eine konkrete Frage formulieren könntest ;-)
Gruß, Wolli

AW: Fortlaufende-Nummer vergeben
21.01.2008 15:07:00
Claudia
Hallo Flo,
ich mache das mit forlaufenden Rechnungsnummern so wie nachstehend. Code in ein Modul. (habe das ganze mal hier im Forum erhalten, funzt super.

Sub NewNumber()
On Error GoTo Number_Error
Dim Pfad As String
Dim fs As Object
Dim folder As String
Dim file As Object
Dim Xvar As Variant
Dim MyError As Integer
Dim T1, T2, T3
'Codestart
Xvar = ""
Error_Correct1:
MyError = 1
Xvar = CStr(Cells(1, 1))
If Xvar = "" Then Xvar = 1000
'Wenn XVar = 1000 wurde noch keine Datei erstellt
If Xvar = 1000 Then
T1 = "Es muss eine Datei erstellt werden in welche die Information geschrieben wird."
T2 = "Sind Sie damit einverstanden, dass zur Demonstration auf dem Laufwerk C:"
T3 = "eine Datei mit dem Namen ""RechNr.xls"" erstellt wird ?"
QE = MsgBox(T1 & Chr$(13) & T2 & Chr$(13) & T3, vbCritical + vbDefaultButton1 + vbYesNo, _
"Ausgabedatei fehlt")
If QE = 7 Then
QE = MsgBox("Die Datei wird nicht erstellt und das Makro abgebrochen",  _
vbInformation + vbOKOnly, "Demonstration nicht möglich")
Exit Sub
End If
Set fs = CreateObject("Scripting.FileSystemObject")
Set file = fs.CreateTextFile("C:\Rechnungen TS-Consulting\RechNr.xls", True)
file.Close
End If
Open "C:\Rechnungen FIRMA\RechNr.xls" For Output As #1 'hier den Namen und Paf Deiner Datei  _
für forlaufende Nummern
'Rechnungsnummer aus Zelle A1 auslesen
Xvar = Xvar + 1
Range("A1").Value = Xvar
'Rechnungsnummer in .xls Datei schreiben
Close #1
Open "C:\Rechnungen FIRMA\RechNr.xls" For Output As #1 'hier den Namen und Paf Deiner Datei  _
für forlaufende Nummern
Print #1, Xvar
Close #1
Number_Exit:
Exit Sub
Number_Error:
Select Case MyError
Case 1
Resume Error_Correct1
End Select
MsgBox ("Sonstiger Fehler")
Resume Number_Exit
End Sub


Hoffe geholfen zu hane.
Gruß
Claudia

Anzeige
AW: Fortlaufende-Nummer vergeben
21.01.2008 23:42:25
Daniel
Hi
ne fortlaufende Nummer generiert man mit folgendem Code (in Zelle A1)
Range("A1").value = Range("A1").Value + 1
Diese Befehlszeile muss jedesmal ausgführt werden, wenn ein neues Etikett erstellt wird (davor oder danach)
wann und wie das passiet, hängt von deinem weitern code, bzw deinen Anforderungen ab.
wenn z.B. bei jedem Ausdruck die Nummer hochgezählt werden soll, dann könnte man diese Zeile in das BEFORE_PRINT-Makro einfügen.
Gruß, Daniel

298 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige