AW: UF Textbox und Zelle vergleichen
05.12.2015 09:07:07
Werner
Hallo Ludmila,
weil du etwas von Prüfen des Jahres geschrieben hast. Ich bin davon ausgegangen, dass du ein Datum vergleichen willst. Muss gestehen, dass ich deinen Upload gar nicht angeschaut habe.
Dann so:
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.
Gruß Werner