' Für Eingang1
Private Sub A1_Click()
If A1.Value = True Then
Eingänge.Cells(2, 4).Value = "X"
Eingänge.Cells(2, 5).Value = Namen.Value
Eingänge.Cells(2, 6).Value = Datum.Value
End If
End Sub
' Für Eingang2
Private Sub A2_Click()
If A2.Value = True Then
Eingänge.Cells(3, 4).Value = "X"
Eingänge.Cells(3, 5).Value = Namen.Value
Eingänge.Cells(3, 6).Value = Datum.Value
End If
End Sub
' Für defekt-Button1
Private Sub Def2_Click()
Dim StrInputbox As String
StrInputbox = InputBox("Bitte SAP-Nummer eingeben")
Eingänge.Cells(3, 3).Value = StrInputbox
Eingänge.Cells(3, 4).Value = ""
Eingänge.Cells(3, 2).Value = "X"
End Sub
' Für defekt-Button2
Private Sub Def1_Click()
Dim StrInputbox As String
StrInputbox = InputBox("Bitte SAP-Nummer eingeben")
Eingänge.Cells(2, 3).Value = StrInputbox
Eingänge.Cells(2, 4).Value = ""
Eingänge.Cells(2, 2).Value = "X"
End Sub
' Start und Namen in ComboBox eintragen
' Wenn bereits Zellen gefüllt dann CheckBoxen und Button inaktiv
Private Sub UserForm_Initialize()
Me.Namen.RowSource = "K1:K5"
Eingänge.Activate
If Eingänge.Cells(2, 5).Value <> "" Then
A1.Enabled = False
End If
If Eingänge.Cells(3, 5).Value <> "" Then
A2.Enabled = False
End If
If Eingänge.Cells(2, 2).Value <> "" Then
Def1.Enabled = False
End If
If Eingänge.Cells(3, 2).Value <> "" Then
Def1.Enabled = False
End If
End Sub
|