Gruppe
Allgemein
Problem
Die Eingabe von Werten in den Spalten A bzw. B soll verhindert werden, wenn in der jeweiligen Korrespondenzzelle der anderen Spalte bereits ein Wert vorhanden ist.
ClassModule: Tabelle1
ClassModule: frmNurPositiv
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub txtValue_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
Dim sTxt As String
If KeyCode = 189 Then
KeyCode = 0
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmNurPositiv.Show
End Sub