Supportnet / Forum / Tabellenkalkulation

Hallo liebe Helfer, habe folgendes Problem! Und zwar möchte ich wenn ich täglich meine Kassenabrechnung öffne eine Nummer fortlaufen mit dem Datum haben! Beispiel: 14.09.05 Beleg Nr. 100 den Tag danach 15.09.05 Beleg Nr. 101 usw. Das Datum ist über die funktion " =heute() " festgelegt. Also ändert sich jeden Tag das Datum. Außerdem müsste sich dann noch die Beleg Nr. automatisch mit ändern, also eins weiter. Außer am Wochenende( am Freitag 16.09.05 soll er dann z.B. Beleg Nr. 102 haben und am Montag 103 ! Es wäre Toll wenn mir irgendjemand helfen könnte, bin total verzweifelt ! MFG Nadine

Hi nadine,

kopiere nachfolgenden VBA Code in das VBA Projekt „DieseArbeitsmappe“ in Deiner Datei.

Option Explicit

Private Sub Workbook_Open()
Dim Belegnummer As Integer
If Range("A1") = Empty Then
Belegnummer = 1
Else
Belegnummer = Mid(Range("A1"), 24, 10) + 1
End If
If Format(Date, "dd.mm.yyyy") <> Mid(Range("A1"), 1, 10) And Format(Date, "ddd") <> "So" And Format(Date, "ddd") <> "Sa" Then
Range("A1") = Format(Date, "dd.mm.yyyy") & " Belegnummer: " & Belegnummer
Else
Range("A1") = Format(Date, "dd.mm.yyyy") & " Belegnummer:" & Mid(Range("A1"), 24, 10)
End If
End Sub

Bei dem Code wird Dir immer in Zelle A1 das aktuelle Datum und die Belegnummer angezeigt. Ändert sich das Datum, wird die Belegnummer hoch gezählt. Außer an den Wochenenden, da ändert sich nur das Datum, nicht aber die Belegnummer. Soll das Datum und die Belegnummer in einer anderen Zelle als A1 ausgegeben werden, dann musst Du überall in dem Code wo die Bezeichnung A1 auftaucht, die Zellbezeichnung von der Zell hinschreiben, in der das Datum und die Nummer auftauchen soll.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 1 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• Tracks fortlaufen Nummerieren!!!
• Photo mit Datum
• Access 2 Tabellen vergleichen
• vergleichen