ich möchte vergleichen ob das Jahr in der UF Textbox mit dem heutigen Jahr übereinstimmt.
Leider funktioniert dies nicht.
Danke, für Eure Hilfe.
Gruß
Ludmila
https://www.herber.de/bbs/user/101996.xlsm
Private Sub CommandButton1_Click()
If CDate(Year(TextBox1)) = CDate(Year(Sheets("Tabelle1").Range("A1"))) Then
MsgBox "Hurra"
Else
MsgBox "Schade"
End If
End Sub
Gruß Werner
Private Sub CommandButton2_Click()
With ThisWorkbook.Worksheets("Tabelle1")
If TextBox2.Value * 1 = .Cells(2, 11) Then GoTo weiter01
If TextBox2.Value * 1 >= .Cells(2, 11) Then 'eine Zeile drüber prüfen auf = hier auf >=
MsgBox "Das Jahr für den" & vbNewLine & _
.Cells(3, 1) & vbNewLine & _
"kann nicht geändert werden..." & vbNewLine & _
"Im laufenden Jahr kann dies nicht erfolgen..." _
, vbOKOnly + vbCritical, "Fehler: " & .Cells(3, 1)
Exit Sub
End If
weiter01:
If .Cells(3, 7) "" Then
MsgBox "Für den" & vbNewLine & _
.Cells(3, 1) & vbNewLine & _
"wurden bereichts Berichte geschrieben..." & vbNewLine & _
"Im laufenden Jahr kann dies nicht geändert werden..." _
, vbOKOnly + vbCritical, "Fehler: " & .Cells(3, 1)
End If
End With
End Sub
Wobei da auch eine Sache drin ist, die so nicht ganz stimmen kann. Ich hab dir im Code einenentsprechenden Kommentar eingefügt. Vermutlich hast du versehentlich zwei mal die gleiche Textbox drin.