Office: fortlaufende Nummer generieren/auslesen

sirpomme · 6. September 2015

Hallo Gemeinde,
habe folgendes Problem!

Auf einem Gruppenlaufwerk ist eine Exceldatei (eine Vorlage um Rechnungen zu erstellen).Diese Vorlage wird von verschiedenen Personen benutzt und auch an verschiedenen Plätzen gespeichert (je nach Person). Jede Rechnung soll eine eindeutige fortlaufende Nummer bekommen. z.b. 2016-0001, 2016-0002 usw.

Nun dachte ich mir, an einer Stelle des Gruppenlaufwerks eine Datei abzulegen, auf welche die "Rechnungsvorlage" zugreift und sich die nächste Nummer nimmt, welche an der Reihe ist.

Um das so um zu setzen brauche ich aber Hilfe, mein VBA Kenntnisse sind leider nicht die besten.

Danke euch für die Hilfe.

:)

Klaus-Dieter · 8. September 2015

Hallo,

da Excel für Mehrbenutzerumgebungen nicht besonders gut geeignet ist, habe ich erhebliche Zweifel, ob sich das umsetzen lässt.

sirpomme · 8. September 2015

Hallo,
ich hab ja eine Idee wie es funktionieren könnte, weiß aber nicht wie ich es programmiertechnisch umsetzen soll.

Die Rechnungsvorlage bekommt ein Button, mit dem man ein Makro starten kann.
Das Makro öffnet eine Exceldatei bei der z.b. im sheet1 ZelleA1 "2016_0001" steht. Diese Zelle wird kopiert und in der Rechnungsvorlage in Zelle A10 engetragen. Anschließend wird in der Hilfsdatei an ZelleA1 eine neue Zelle eingefügt und "2016_0002" eingetragen, die datei gespeicher und geschlossen.
Beim nächsten Makrostart würde dann an position ZelleA1 die laufende Nummer "2016_0002" gefunden.

Könnte das funktionieren?
Und wie programiert man das *frown.gif*

OfficeUser · 5. Januar 2017

Also bis zum einlesen bin ich soweit und kann helfen.

Code:

Option Explicit

Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000

Private Declare Function InternetOpen Lib "wininet.dll" Alias _
"InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, _
ByVal lpszProxyName As String, _
ByVal lpszProxyBypass As String, _
ByVal dwFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias _
"InternetOpenUrlA" (ByVal hInternetSession As Long, _
ByVal lpszUrl As String, _
ByVal lpszHeaders As String, _
ByVal dwHeadersLength As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal lpBuffer As String, _
ByVal dwNumberOfBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Sub CopyURLToFile(ByVal URL As String, ByVal FileName As String)
Dim hInternetSession As Long
Dim hUrl As Long
Dim DatNum As Integer
Dim ByteAnz As Long
Dim Buffer As String * 4096
Dim DatInhalt As String
On Error GoTo Fehler

If Len(URL) = 0 Or Len(FileName) = 0 Then
MsgBox "Fehlende URL"
Exit Sub
End If

hInternetSession = InternetOpen("dummy", INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0)
If hInternetSession = 0 Then
MsgBox "Fehler bei InternetOpen"
Exit Sub
End If

hUrl = InternetOpenUrl(hInternetSession, URL, vbNullString, 0, _
INTERNET_FLAG_EXISTING_CONNECT, 0)
If hUrl = 0 Then
If hInternetSession Then InternetCloseHandle hInternetSession
MsgBox "Fehler bei InternetOpenUrl"
Exit Sub
End If
' evtl vorhandene Datei löschen
On Error Resume Next
Kill FileName
On Error GoTo Fehler
' Daten sammeln
Do
InternetReadFile hUrl, Buffer, Len(Buffer), ByteAnz
If ByteAnz = 0 Then Exit Do
DatInhalt = DatInhalt & Left(Buffer, ByteAnz)
Loop
' Datei schreiben
DatNum = FreeFile
Open FileName For Output As #DatNum
Print #DatNum, DatInhalt;
Close #DatNum
Fehler:
If hUrl Then InternetCloseHandle hUrl
If hInternetSession Then InternetCloseHandle hInternetSession
If Err Then MsgBox "Fehler " & Err.Number & ":" & Err.Description
End Sub

Sub testen()
CopyURLToFile "http://homepage.o2mail.de/windowsserver/201701062100.txt", "C:UsersAdminoDesktop201701062100.txt" ' anpassen

Dim strText As String
strText = DateiAuslesen("C:UsersAdminoDesktop201701062100.txt") 'anpassen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tabelle1
A B
1 lfdnr gleich
2 131029104220 2017-131029104220
verwendete Formeln
Zelle Formel Bereich N/A
A2 = DateiAuslesen("C:UsersAdminoDesktop201701062100.txt")
B2 =JAHR(HEUTE()) & "-" & A2
Excel-Inn.de

Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 24.04 einschl. 64 Bit
Die Links bitte anpassen und beachte: hinter dem C, Users, Admino und Desktop fehlt der Backspace. Warum das passiert wäre eine Frage für Hajo.

Nun mußt Du die Zahl +1 nehmen und zurück schreiben. Danach zurück ins Netz, was na klar nicht zu dem Downloadlink geht, weil die Berechtigungen fehlen. Aber es geht um den Sinn.

Lady Dagobert

AndreaNoway · 5. Januar 2017

Hallo zusammen. Das kann man sicher so machen. Du solltest aber etwas weiter denken und dir, bevor du anfängst zu programmieren, Gedanken machen, WANN diese Number vergeben werden müsste.
Da die Rechnungsnummer zwingend eindeutig sein muss. Evtl. ist es vielleicht doch besser, wenn das erst beim Speichern der fertigen Rechnung oder gar beim Drucken geschieht. Ansonsten wird jede nicht fertig gestellte Rechnung eine Nummernleiche generieren.
Der nächste Hinweis. Warum in einer Textdatei Nummernlisten führen, wenn sowieso schon mit Excel gearbeitet wird. Schreib die Nummern doch in ein Arbeitsblatt einer separaten Datei. Die sind einfacher zu führen, leichter zu programmieren, besser zu schützen und du könntest Druckdatum, Betrag, Sachbearbeiter, Kunde, BearbeitungsStatus etc. gleich mit dokumentieren und auswerten.

Das hätte einige Vorteile.
Rechnung aus Vorlage öffnen, bearbeiten, speichern, öffnen, weiterarbeiten, ändern. Erst wenn die Rechnung auch zum Kunden kann, werden Nummern vergebenen, die fortlaufend sind.
So läufst du nicht Gefahr ewig unsicher zu sein, ob die Nummer auch Sinn ergibt.

Letzter Tipp. Es gibt äusserst preiswerte Programme, die genau das machen und den Aufwand stark reduzierten würden. Wenn mehrere Leute Rechnungen erstellen, sollte Rechnungserstellung und Finanzbuchhaltung nicht unabhängig voneinander funktionieren. Das ist Arbeitsbeschaffung...

2013Excel · 5. Januar 2017

Hallo,

vlt hilft dir dieses Video weiter:

Office: fortlaufende Nummer generieren/auslesen

fortlaufende Nummer generieren/auslesen

fortlaufende Nummer generieren/auslesen

fortlaufende Nummer generieren/auslesen

fortlaufende Nummer generieren/auslesen - Similar Threads - fortlaufende Nummer generieren

Fehlende fortlaufende Nummer feststellen

Zellen nach rechts kopieren und dabei eine Nummer fortlaufend erhöhen

Fortlaufende Nummer (Aktenzeichen) automatisch vergeben

Fortlaufende Nummer generieren

Fortlaufende Nummer in Abfrage funktioniert nicht korrekt

Fortlaufende Nummer generieren ohne autoid

Excel Datei mit fortlaufender Nummer, Originaldatei belassen, nur speichern unter

verwendete Formeln
Zelle	Formel	Bereich	N/A
A2	= DateiAuslesen("C:UsersAdminoDesktop201701062100.txt")
B2	=JAHR(HEUTE()) & "-" & A2