Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zähler

Forumthread: Zähler

Zähler
02.08.2004 15:51:15
Erich
Hallo...
In eine UF habe ich in einer TextBox einen Zähler, der jedesmal wenn
die UF aufgerufen wird sich um 1 erhöht.
Jetzt mein Problem: Wenn ein neues Datum vorhanden ist soll der
Zähler wieder auf 1 gestellt werden.
Ich hoffe ich habe mich einigermaßen Verständlich ausgedrückt.
Vorab schon vielen Dank
Gruss Erich
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zähler
Ulf
Meinst du, jeden Tag wieder von 1 beginnen? Oder wo kommt das neue Datum her?
Ulf
AW: Zähler
02.08.2004 16:06:45
Erich
Hallo Ulf
Ja richtig jeder neue Tag soll mit 1 beginnen.
Wenn die UF aufgerufen wird steht in einer TextBox
das aktuelle Datum.
Gruß Erich
AW: Zähler
Ulf
Willst du die Datei auch weitergeben? Wird die im Netz verwendet oder nur lokal?
Ulf
Anzeige
AW: Zähler
02.08.2004 16:14:08
Erich
Hallo Ulf
Datei liegt auf einen lokalen Rechner und wird nicht weitergegeben.
Gruss Erich
AW: Zähler
Ulf
Warum nimmst du eigentlich für die Nummer eine textbox, soll die Nummer manuell überschrieben werden können? Wenn nicht, nimm besser ein Label.
Option Explicit
Dim DName As String
Dim lfdNr As Long
Dim lastDate As Date

Private Sub UserForm_Activate()
DName = ThisWorkbook.Name
lfdNr = CLng(GetSetting(DName, "Zaehler", "Wert", "1"))
lastDate = CDate(GetSetting(DName, "Zaehler", "Datum", Date))
If Date > lastDate Then
TextBox1 = 1
Else
TextBox1 = lfdNr + 1
End If
End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1 = "" Then TextBox1 = 1
SaveSetting DName, "Zaehler", "Wert", TextBox1
SaveSetting DName, "Zaehler", "Datum", Date
End Sub

Ulf
Anzeige
AW: Zähler
03.08.2004 04:20:06
Erich
Hallo Ulf
Erstmal besten Dank für die perfekte Antwort.
Habe die TextBox durch ein Label ersetzt.
Wenn ich wieder Probleme habe, melde ich mich wieder.
Nochmals vielen Dank
Gruss Erich
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige