Suche nach einer Lösung, Nummernvergabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
vielleicht hilft dir dieses Makro. Kopiere es in Visual basic in das MicrosoftExcelObjekt "DieseArbeitsmappe" es wird nun bei jedem speichern kontrollieren ob in G5 schon was steht, wenn nein(Musterdatei) öffnet es eine Datei liest die aktuelle Nr. aus und setzt sie in G5 ein und speichert in der Datei dann die eins höhere Ganzzahl . Sollte die Maximalanzahl erreicht werden, wird eine Meldung ausgegeben und sonst nichts (Da ich nicht weis was gemacht werden soll). Es wird auch davon ausgegangen dass die Datei wirklich gespeichert wird.
Du must noch die 2 Konstanten auf die richtigen Werte setzten, und die entsprechende Datei anlegen und die Anfangszahl reinschreiben.
Const MaxAnz = 32767
Const n = "C:\ZAHLENDATEI.txt"


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Sheets("Tabelle1").Range("G5").Value  "" Then
Open n For Input As #1
Line Input #1, Nummer
Close #1
Nummer = CInt(Nummer)
If Nummer > MaxAnz Then
MsgBox ("Maximalanzahl an Dateien erreicht")
Exit Sub
End If
ActiveWorkbook.Sheets("Tabelle1").Range("G5").Value = Nummer
Open n For Output As #1
Print #1, Tab(1); Nummer + 1
Close #1
End If
End Sub

Gruß Niki

Guten Abend Niki (und natürlich auch an alle anderen),
erstmal vielen Dank für deine Lösung. Ich habe das Makro ausprobiert und bin schon sehr angetan von dem Ergebniss... Ich habe aber dennoch ein- oder zwei Fragen und hoffe mal ich bekomme auch hier eine gute Antwort.
Kann man das Makro so ausweiten, das ich z.B. nach Speicherung aus der Vorlage heraus in eine "normale" Excel-Arbeitsmappe das Makro für diese neue Arbeitsmappe ausschalte... Ich will damit eigentlich nur verhindern, das sich basierend auf dieser Mappe die Nummern hochzählen. (Ich hoffe es ist verständlich ausgedrückt)
Vielleicht gibt es aber auch eine andere einfachere Lösung hierfür?
Die zweite Frage ist, kann ich die "Zahlendatei" auch in der Musterdatei auf dem zweiten Tabellenblatt definieren und diese auch im Makro ansprechen?
Also schonmal vielen Dank im voraus bzw. Danke an Niki für deine bisherigen Ergebnisse...
Grüße und schönen Abend
Richard

Private Sub Workbook_Open() If ActiveWorkbook.Name = "Mappe2.xls" Then xyz = MsgBox("Bitte speichern sie die Datei sofort, unter einem anderen Namen ab.", 0) Do fName = Application.GetSaveAsFilename Loop Until fName False If InStr(1, fName, Abbruch) 0 Then Exit Sub Zeile = Worksheets("Tabelle2").Range("A1").End(xlDown).Row Nummer = Worksheets("Tabelle2").Range("A" & Zeile).Value Worksheets("Tabelle2").Range("A" & Zeile).Value = "" ActiveWorkbook.Save Worksheets("Tabelle1").Range("G5").Value = Nummer ActiveWorkbook.SaveAs Filename:=fName End If End Sub

Beliebteste Forumthreads (12 Monate)

Suche nach einer Lösung, Nummernvergabe

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread