Sub Schaltfläche9_Klicken()
Dim a As String
Dim b As Integer
If TextBox2.Value <> "" Then
Worksheets("Züge").Cells(1, 1).End(xlDown).Offset(1, 0).Value = _
Worksheets("Spielfeld").TextBox2.Value
TextBox2.Value = ""
Else
End If
If Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").Value = True Then
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "X"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").Value = False
Else
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "-"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").Value = False
End If
End Sub
Sub Schaltfläche9_Klicken()
Dim a As String
Dim b As Integer
If TextBox2.Value <> "" Then
Worksheets("Züge").Cells(1, 1).End(xlDown).Offset(1, 0).Value = _
Worksheets("Spielfeld").TextBox2.Value
TextBox2.Value = ""
Else
End If
If Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").DrawingObject.Value = True Then
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "X"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").DrawingObject.Value = False
Else
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "-"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").DrawingObject.Value = False
End If
End Sub
Fehler:
Sub Schaltfläche9_Klicken()
Dim a As String
Dim b As Integer
If TextBox2.Value <> "" Then
Worksheets("Züge").Cells(1, 1).End(xlDown).Offset(1, 0).Value = _
Worksheets("Spielfeld").TextBox2.Value
TextBox2.Value = ""
Else
End If
If Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").Value = True Then
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "X"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").Value = False
Else
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "-"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").Value = False
End If
End Sub
Sub Schaltfläche9_Klicken()
Dim a As String
Dim b As Integer
If TextBox2.Value <> "" Then
Worksheets("Züge").Cells(1, 1).End(xlDown).Offset(1, 0).Value = _
Worksheets("Spielfeld").TextBox2.Value
TextBox2.Value = ""
Else
End If
If Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").DrawingObject.Value = True Then
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "X"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").DrawingObject.Value = False
Else
Worksheets("Züge").Cells(1, 2).End(xlDown).Offset(1, 0).Value = "-"
Worksheets("Spielfeld").Shapes("Kontrollkästchen 13").DrawingObject.Value = False
End If
End Sub
Fehler: