Fortlaufende Nummer

Chris · 2018-10-16T13:30:39+00:00

Hallo Zusammen, ich habe mich schon dumm und dämlich probiert aber bekomme es leider nicht hin. Mein Wunsch wäre: - die fortlaufende Nummer darf nicht mehr in der Eingabemaske erscheinen. - die Nummer, die schon drin steht, ist die Anfangsnummer. - sobald ein Eintrag gemacht wurde, soll in der nächsten Zeile die Nummer um 1 erhöht werden. - wenn in der Spalte Prüfdatum ein Datum eingetragen wird, soll in der Spalte "nächstes Prüfdatum" ein Jahr später drin stehen. - somit kann auch in der Userform "nächstes Prüfdatum" entfernt werden. Vielleicht kann mir da jemand helfen. https://www.herber.de/bbs/user/124655.xlsm

Hallo,
Ich würde folgende Änderungen am UF-Code vornehmen:

Private Sub EINTRAG_ANLEGEN()
Dim lZeile As Long, NextNumber As Long
lZeile = lCONST_STARTZEILENNUMMER_DER_TABELLE
'Schleife bis eine leere ungebrauchte Zeile gefunden wird
Do While IST_ZEILE_LEER(lZeile) = False
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Tabelle1
NextNumber = Val(ListBox1.List(ListBox1.ListCount - 1, 1)) + 1
TextBox1 = NextNumber
'Und neuen Eintrag in die UserForm eintragen
ListBox1.AddItem lZeile
ListBox1.List(ListBox1.ListCount - 1, 1) = NextNumber
'.....weitere Codezeilen

Damit wird die letzte lfd. Nummer der Listbox um 1 erhöht
Neu einfügen würde ich:

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(Date, "DD.MM.YYYY")
End Sub
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox7.Text) Then
TextBox8 = Format(DateSerial(Year(TextBox7) + 1, Month(TextBox7), _
Day(TextBox7)), "DD.MM.YYYY")
Else
MsgBox "Bitte gültiges Prüfdatum eingeben!" & vbCrLf & _
"(Doppelklick für HEUTE)!", vbExclamation
Cancel = True
End If
End Sub
Private Sub TextBox8_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox8 = Format(DateSerial(Year(Date) + 1, Month(Date), Day(Date)), "DD.MM.YYYY")
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox8.Text) Then
MsgBox "Bitte gültiges nächstes Prüfdatum eingeben!" & vbCrLf & _
"(Doppelklick für HEUTE + 1 Jahr)!", vbExclamation
Cancel = True
End If
End Sub

Damit kannst du auf die Datumsfelder doppelklicken, bzw. der nächste Prüftermin wird automatisch abgefüllt. Achtung: Das nächste Prüfdatum könnte auch auf einen Feiertag oder ein Wochenende fallen. Das ist nicht überprüft!
Gruess Hansueli

Forumthread: Fortlaufende Nummer

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Fortlaufende Nummer

Forumthread: Fortlaufende Nummer

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread