Public Sub CommandButton4_Click()
Dim e As Integer
Dim s As Integer
Dim löschnr() As Integer
Dim zähler As Integer
ReDim löschnr(1 To u)
For e = 1 To u
If Me.CheckBox6 = True Then
Exit Sub
Else
If Controls("cb_gegner" & e) = True Then
löschnr(e) = e
MsgBox löschnr(e)
Controls.Remove (gegnername & e)
Controls.Remove ("tb_angriff_ge_1" & e)
Controls.Remove ("tb_angriff_be_1" & e)
Controls.Remove ("tb_schaden_ge_1" & e)
Controls.Remove ("tb_schaden_be_1" & e)
Controls.Remove ("cb_gegner" & e)
Controls.Remove ("lb_würfel" & e)
Controls.Remove ("lb_würfel1" & e)
Controls.Remove ("1ertxt" & e)
Controls.Remove ("1er" & e)
Controls.Remove ("9er" & e)
Controls.Remove ("10er" & e)
End If
End If
Next e
e = e - 1
For s = 1 To u
On Error GoTo nächstesobj:
Controls(gegnername & s).Top = -12
MsgBox Controls("tb_angriff_ge_1" & s).Top
Controls("tb_angriff_be_1" & s).Top = Top - 12
Controls("tb_schaden_ge_1" & s).Top = Top - 12
Controls("tb_schaden_be_1" & s).Top = Top - 12
Controls("cb_gegner" & s).Top = Top - 12
Controls("lb_würfel" & s).Top = Top - 12
Controls("lb_würfel1" & s).Top = Top - 12
Controls("1ertxt" & s).Top = Top - 12
Controls("1er" & s).Top = Top - 12 + 4
Controls("9er" & s).Top = Top - 12
Controls("10er" & s).Top = Top - 12
Controls(gegnername & s).Name = gegnername & u - 1
Controls("tb_angriff_ge_1" & s).Name = "tb_angriff_ge_1" & u - 1
Controls("tb_angriff_be_1" & s).Name = "tb_angriff_be_1" & u - 1
Controls("tb_schaden_ge_1" & s).Name = "tb_schaden_ge_1" & u - 1
Controls("tb_schaden_be_1" & s).Name = "tb_schaden_be_1" & u - 1
Controls("cb_gegner" & s).Name = "cb_gegner" & u - 1
Controls("lb_würfel" & s).Name = "lb_würfel" & u - 1
Controls("lb_würfel1" & s).Name = "lb_würfel1" & u - 1
Controls("1ertxt" & s).Name = "1ertxt" & u - 1
Controls("1er" & s).Name = "1er" & u - 1
Controls("9er" & s).Name = "9er" & u - 1
Controls("10er" & s).Name = "10er" & u - 1
nächstesobj:
zähler = zähler + 1
nächstesobj1:
Next s
u = u - 1
If e = u Then
Exit Sub
End If
End Sub