CheckBoxen
21.08.2005 00:06:55
Wuntschi
wie kann man in einem userform das fpc_neuePCB heist
eine for each Schleife bauen um folgenden Code da drin anzuwenden!
Dim zellepos2 As Integer
Dim CB As CheckBox
Dim PCBcount As Integer
Dim ZellePos As Integer
Dim TB1 As String
' ich denke hier muß die For each schleife hin
If CB.Value = True Then
If CB.Name = CheckBox1 Then
zellepos2 = 1
End If
If CB.Name = CheckBox2 Then
zellepos2 = 3
End If
If CB.Name = CheckBox3 Then
zellepos2 = 2
End If
If CB.Name = CheckBox4 Then
zellepos2 = 11
End If
If CB.Name = CheckBox5 Then
zellepos2 = 10
End If
If CB.Name = CheckBox6 Then
zellepos2 = 8
End If
If CB.Name = CheckBox7 Then
zellepos2 = 9
End If
If CB.Name = CheckBox8 Then
zellepos2 = 7
End If
If CB.Name = CheckBox9 Then
zellepos2 = 6
End If
If CB.Name = CheckBox10 Then
zellepos2 = 5
End If
If CB.Name = CheckBox11 Then
zellepos2 = 4
End If
TB1 = fpc_NeuePCB.TextBox1.Value
PCBcount = Worksheets("Optionen").Cells(2, zellepos2).Value
ZellePos = PCBcount + 3
Worksheets("Optionen").Cells(ZellePos, zellepos2).Select
Selection.Value = TB1
PCBcount = PCBcount + 1
Worksheets("Optionen").Cells(2, zellepos2).Select
Selection.Value = PCBcount
End If
End If