AW: Nummerierung einfügen
09.11.2020 09:59:13
Peter
Hallo Onur,
ja, die "4" wird automatisch gesetzt. Und die mittels diesem Code in UserForm2:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Dim Zähler As Integer, Nummer As Integer
Dim lzB As Long
Dim gesDat As String
'Dim gesDatV As String
Dim ADatK As String 'Anfangdatum Kalenderjahr
Dim EDatK As String 'Enddatum Kalenderjahr
Dim ADatS As String 'Anfangdatum Schuljahr
Dim EDatS As String 'Enddatum Schuljahr
Dim tgbV As String 'benötigt für vorherige TgbNr
'Anfang Prüfung ob Datum leer bzw. ob richtiges Datum bzw. wenn falsch dann "bitte Datum _
eintragen
If TextBox1.Text = "" Then
TextBox1 = "Bitte Datum eintragen"
Cancel = True
Me.TextBox1.SelStart = 0 'markiert den Text
Me.TextBox1.SelLength = Len(Me.TextBox1) 'markiert den Text
Exit Sub
ElseIf TextBox1.Text Like "##.##.####" Then 'Exit Sub
''MsgBox "TgbNr"
End If
'Ende Prüfung ob Datum leer bzw. ob richtiges Datum bzw. wenn falsch dann "bitte Datum _
eintragen
'''Anfang nummerieren Spalte D
With ActiveSheet
'Anfang nummerieren Spalte D
lzB = Range("B65536").End(xlUp).Row
' TextBox11 = TextBox1
' TextBox12 = .Cells(lzB, 2)
gesDat = .Cells(lzB, 2)
'für Kalenderjahr
If Worksheets("Hilfstabelle").Range("C3") > "" Then
ADatK = CDate(Worksheets("Hilfstabelle").Range("G3")) 'Kalenderjahr
EDatK = CDate(Worksheets("Hilfstabelle").Range("H3")) 'Kalenderjahr
'i.O.
If gesDat = "Datum" And CDate(TextBox1) >= CDate(ADatK) And CDate(TextBox1) "" And CDate(TextBox1) >= CDate(ADatK) And CDate(TextBox1) = CDate(ADatK) And CDate(TextBox2) "" And CDate(TextBox1) >= CDate(ADatK) And CDate(TextBox1) = CDate(ADatK) And CDate(TextBox1) "" Then
ADatS = CDate(Worksheets("Hilfstabelle").Range("G2")) 'Schuljahr
EDatS = CDate(Worksheets("Hilfstabelle").Range("H2")) 'Schuljahr
'i.O.
If gesDat = "Datum" And CDate(TextBox1) >= CDate(ADatS) And CDate(TextBox1) "" And CDate(TextBox1) >= CDate(ADatS) And CDate(TextBox1) = CDate(ADatS) And CDate(TextBox1) "" And CDate(TextBox1) >= CDate(ADatS) And CDate(TextBox1) = CDate(ADatS) And CDate(TextBox1) "" And CDate(TextBox1) CDate(ADatS) And CDate(TextBox1) CDate(ADatS) And CDate(TextBox1)
Gruss
Peter