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

fortlaufende Nummer

fortlaufende Nummer
23.06.2004 08:34:40
Andreas
Hallo und Guten Morgen an alle
Ich hab eine Exceldatei als Vorlage angelegt und möchte dieser bei jedem öffnen
eine fortlaufende Nummer zuweisen. Diese sollte in der Vorlage auch immer zu sehen sein. Sozusagen eine fortlaufende Seriennummer.
Ist dieses machbar? Für Hilfe wäre ich dankbar.
Andreas

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: fortlaufende Nummer
geri
Hallo Andreas
es gibt mehrer Varianten, Zahl verwalten in INI File denke beste Lösung
und erst beim Speichern der Vorlage wird Zahl zu gewiesen
damit die Zahl nicht beim öffnen bereits ändert, somit gibt es Rechnungsnummer
auto. beim speichern bzw. drucken
kann die Code anfügen wenn du möchtest
gruss geri
AW: fortlaufende Nummer
geri
Andres
noch den COde
Option Private Module
Sub Blattspeichern()
Application.ScreenUpdating = False
Dim strQuest As String
strQuest = MsgBox("Sind Sie sicher alle Artikel / korrekte Stückzahl gewählt ? " & _
" alles gewählt JA / NEIN wenn NEIN keine Speicherung ?", vbYesNo + vbQuestion, " JA dann bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
Call RechnungsNummer

Sheets("Rechnung").Select
ActiveSheet.Copy
Sheets("Rechnung").PrintOut Copies:=2
ActiveWorkbook.SaveAs Filename:="C:\Daten\" & Range("B20") & "_" & Range("B12") & Format(Now, "dd.mm.yyyy") & ".xls"
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Private Sub RechnungsNummer()
Dim ExcelExe$, dName$, Nr$
dName = "C:\Daten\" & "\Zaehler.txt"
Close
On Error Resume Next
Open dName For Input As #1
If Err > 0 Then
Open dName For Output As #1
Print #1, "0"
Close
Open dName For Input As #1
End If
Input #1, Nr
Close
ActiveSheet.Range("B20") = Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
End Sub

eröffne noch ein File Name= Zaehler.txt und schreibe die Zahl 1 ins File
Speicherort ist im Beispiel vorgegeben in C:\Daten\..
gruss geri
Anzeige
AW: fortlaufende Nummer
Danke
Hallo Geri
hallo frank
ich danke für die Mühe und wünsch Euch einen schönen Tag.
Kann es leider erst heute nachmittag ausprobieren - hin und wieder muss ich ja arbeiten :-))
Andreas
AW: fortlaufende Nummer
23.06.2004 09:02:46
zaske
moin andreas,
wenn es reicht, beim öffnen den zähler zu erhöhen, dann so:

Private Sub Workbook_Open()
[a1] = [a1] + 1
End Sub

gruß
frank
AW: fortlaufende Nummer
Danke
Hallo Frank
danke für die Mühe und einen schönen Tag noch.
Andreas
AW: fortlaufende Nummer
23.06.2004 09:46:55
Nachfrage
Hallo Frank
ich muss doch nochmal stören
Deine Formel muss ich doch kopieren und im Reiter links unten unter CODE ANZEIGEN einfügen. Dann noch speichern und das wars. ODER ?
Die Zelle ist doch A1....
...hab ich probiert-klappt aber nicht so richtig - hab aber auch nicht soviel Ahnung
ob ich das richtig gemacht habe
Vielleicht kannst du mir nochmal einen Tip geben
Andreas
Anzeige
AW: fortlaufende Nummer
geri
Hallo Andreas
Code von Frank markieren Ctrl(Strg) u. C
zu Excel Alt u.F11 und Code einfügen in diese Abeitsmappe
File schliessen und wieder öffnen dann ändert Zahl in A1
gruss geri
AW: fortlaufende Nummer
23.06.2004 11:53:52
Andreas
Hallo nochmal
Es gibt da doch noch Schwierigkeiten
Meine Datei besteht aus drei Blättern. Somit kann ich die Formel zwar unter "dieser Arbeitsmappe einfügen, aber da steht schon ein Befehl mit "workbook open"
Wenn ich dann das speichern will kommt immer die Fehlermeldung : mehrdeutiger Name Workbook open.
Ich speichere diese Vorlage auch immer unter einen Kunden-Namen ab.
Die Vorlage ist auch schreibgeschützt. Da wird es wohl nicht funktionieren.
Oder komme ich mit DEINER Formel da weiter - die andere erschiehn mir, wegen meines Wissenstandes, einfacher.
Gibt es eventuell noch eine Möglichkeit ?
Andreas
Anzeige
AW: fortlaufende Nummer
geri
Hallo Andreas
in diese MAPPE muss die Variante von FRANK
mein CODE muss in ein Modul und dann funktioniert CODE
falls du nicht weiter kommst schicke mir Musterfile
mein Email findest du unter Profile hier bei Herber
werde Dir dann versuchen zu helfen, sehe dan auch genauer
um was es geht
gruss geri
AW: fortlaufende Nummer
23.06.2004 15:44:28
Andreas
Hallo Geri
...habe dir soeben eine mail geschickt mit der Datei
Ich hoffe, du kannst was damit anfangen
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige