OptionButton5.Value = True ist ....
20.10.2005 20:45:08
Walter
habe mal über das Forum die folgende Codes erhalten, funktionieren auch.
Nun möchte ich unten die Aktion ausführen:
Wenn "OptionButton5.Value = True" dann die MSGBOX, und die Textbox wie unten auf 0,00 setzen.
Das Muster:
'
Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' If KeyCode = 13 Or KeyCode = 9 And Shift = 0 Then
' If TextBox1.Value > "0" Then
' KeyCode = 0
Das möchte ich:
If OptionButton5.Value = True Then
MsgBox("Außerhalb NDL-RR KEINE Eroberung " & Chr(13) _
& Chr(13) & "Wenn NDL-RR-Gebiet, " & Chr(13) & Chr(13) _
& Chr(13) & "dann JA drücken " & Chr(13) & Chr(13) _
& Chr(13) & "sonst NEIN drücken ! ", 36, "Abfrage") = 6
With TextBox35
.Enabled = True
.BackColor = vbWhite
.Value = "0,00"
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Gruß Walter