Eingabemaske

Hallo zusammen,
ich habe folgende Bitte bzw. Frage an euch:
ich habe eine Vorlage in Form einer Eingabemaske. Darin enthalten sind nur Textboxen. Jetzt würde ich aber gerne zusätzlich Checkboxen und OptionButton verwenden. Diese sollen, wie die Textboxen auch, genauso eingelesen oder zurückgeschrieben werden.
Der Original-Code hinter der Userform sieht so aus:
Option Explicit
*****************************************


Private Sub ComboBox1_Click()
If ComboBox1.ListIndex  0 Then
TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End If
End Sub

*****************************************


Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > 0 Then
Rows(ComboBox1.ListIndex + 1).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
UserForm_Initialize
End If
End Sub

*****************************************


Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 1) = TextBox1
Cells(xZeile, 2) = TextBox2
Cells(xZeile, 3) = TextBox3
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
Columns("A:E").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
End Sub

*****************************************


Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A65536].End(xlUp).Row
ComboBox1.AddItem "neue Person hinzufügen"
For i = 2 To aRow
ComboBox1.AddItem Cells(i, 1) & ", " & Cells(i, 2)
Next i
ComboBox1.ListIndex = 0
Application.EnableEvents = True
End Sub

*****************************************
Ich habe es so versucht (so habe ich die Codes erweitert):
CheckBox1 = Cells(ComboBox1.ListIndex + 1, 4)
...
CheckBox1 = ""
...
Cells(xZeile, 1) = CheckBox1
....
und
OptionButton1 = Cells(ComboBox1.ListIndex + 1, 5)
....
OptionButton1 = ""
...
Cells(xZeile, 1) = OptionButton1
...
Ich habe aber den Verdacht, dass es dadurch zu Fehlern kommt und sich deswegen Excel aufhängt.
Mache ich was falsch, muss ich hier etwa mit Text oder Value oder etwas anderem arbeiten?
Ich sende meine Vorlage mit und bitte euch, mal reinzuschauen und mir einen Tipp zu geben:
https://www.herber.de/bbs/user/59743.xls
Gruß
Erdogan
PS: Feedback ist selbstverständlich

Hallo Herby,
ich habe mir das zweite Beispiel angeschaut. Dabei macht es vielleicht einen Unterschied, dass beim zweiten Beispiel die Veränderungen bei jedem Klick übertragen werden und nicht wie beim ersten Beispiel gesammelt zurückgeschrieben werden. In der Zwischenzeit habe ich dein erstes Beispiel beherzigt und meine datei dementsprechend angepasst. Da meine Userform sehr viele Controls hat, ist der Code auch sehr lang geworden. Hier ein Auszug daraus:
Option Explicit


Private Sub ComboBox1_Click()
If ComboBox1.ListIndex  0 Then
TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
ComboBox2 = Cells(ComboBox1.ListIndex + 1, 3)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 4)
TextBox4 = Cells(ComboBox1.ListIndex + 1, 5)
ComboBox3 = Cells(ComboBox1.ListIndex + 1, 6)
ComboBox4 = Cells(ComboBox1.ListIndex + 1, 7)
TextBox5 = Cells(ComboBox1.ListIndex + 1, 8)
TextBox6 = Cells(ComboBox1.ListIndex + 1, 17)
TextBox7 = Cells(ComboBox1.ListIndex + 1, 18)
TextBox8 = Cells(ComboBox1.ListIndex + 1, 19)
TextBox9 = Cells(ComboBox1.ListIndex + 1, 20)
If Cells(ComboBox1.ListIndex + 1, 21) = 1 Then
CheckBox1 = True
Else
CheckBox1 = False
End If
If Cells(ComboBox1.ListIndex + 1, 22) = 1 Then
CheckBox2 = True
Else
CheckBox2 = False
End If
If Cells(ComboBox1.ListIndex + 1, 23) = 1 Then
OptionButton1 = True
Else
OptionButton1 = False
End If
If Cells(ComboBox1.ListIndex + 1, 24) = 1 Then
OptionButton2 = True
Else
OptionButton2 = False
End If
TextBox10 = Cells(ComboBox1.ListIndex + 1, 25)
TextBox11 = Cells(ComboBox1.ListIndex + 1, 26)
TextBox12 = Cells(ComboBox1.ListIndex + 1, 27)
TextBox13 = Cells(ComboBox1.ListIndex + 1, 28)
If Cells(ComboBox1.ListIndex + 1, 29) = 1 Then
CheckBox3 = True
Else
CheckBox3 = False
End If
If Cells(ComboBox1.ListIndex + 1, 30) = 1 Then
CheckBox4 = True
Else
CheckBox4 = False
End If
If Cells(ComboBox1.ListIndex + 1, 31) = 1 Then
OptionButton3 = True
Else
OptionButton3 = False
End If
If Cells(ComboBox1.ListIndex + 1, 32) = 1 Then
OptionButton4 = True
Else
OptionButton4 = False
End If
TextBox14 = Cells(ComboBox1.ListIndex + 1, 33)
TextBox15 = Cells(ComboBox1.ListIndex + 1, 34)
TextBox16 = Cells(ComboBox1.ListIndex + 1, 35)
TextBox17 = Cells(ComboBox1.ListIndex + 1, 36)
If Cells(ComboBox1.ListIndex + 1, 37) = 1 Then
CheckBox5 = True
Else
CheckBox5 = False
End If
If Cells(ComboBox1.ListIndex + 1, 38) = 1 Then
CheckBox6 = True
Else
CheckBox6 = False
End If
If Cells(ComboBox1.ListIndex + 1, 39) = 1 Then
OptionButton5 = True
Else
OptionButton5 = False
End If
If Cells(ComboBox1.ListIndex + 1, 40) = 1 Then
OptionButton6 = True
Else
OptionButton6 = False
End If
TextBox18 = Cells(ComboBox1.ListIndex + 1, 41)
TextBox19 = Cells(ComboBox1.ListIndex + 1, 42)
TextBox20 = Cells(ComboBox1.ListIndex + 1, 43)
TextBox21 = Cells(ComboBox1.ListIndex + 1, 44)
If Cells(ComboBox1.ListIndex + 1, 45) = 1 Then
CheckBox7 = True
Else
CheckBox7 = False
End If
If Cells(ComboBox1.ListIndex + 1, 46) = 1 Then
CheckBox8 = True
Else
CheckBox8 = False
End If
If Cells(ComboBox1.ListIndex + 1, 47) = 1 Then
OptionButton7 = True
Else
OptionButton7 = False
End If
If Cells(ComboBox1.ListIndex + 1, 48) = 1 Then
OptionButton8 = True
Else
OptionButton8 = False
End If
TextBox22 = Cells(ComboBox1.ListIndex + 1, 49)
TextBox23 = Cells(ComboBox1.ListIndex + 1, 50)
TextBox24 = Cells(ComboBox1.ListIndex + 1, 51)
TextBox25 = Cells(ComboBox1.ListIndex + 1, 52)
If Cells(ComboBox1.ListIndex + 1, 53) = 1 Then
CheckBox9 = True
Else
CheckBox9 = False
End If
If Cells(ComboBox1.ListIndex + 1, 54) = 1 Then
CheckBox10 = True
Else
CheckBox10 = False
End If
If Cells(ComboBox1.ListIndex + 1, 55) = 1 Then
OptionButton9 = True
Else
OptionButton9 = False
End If
If Cells(ComboBox1.ListIndex + 1, 56) = 1 Then
OptionButton10 = True
Else
OptionButton10 = False
End If
TextBox26 = Cells(ComboBox1.ListIndex + 1, 57)
TextBox27 = Cells(ComboBox1.ListIndex + 1, 58)
TextBox28 = Cells(ComboBox1.ListIndex + 1, 59)
TextBox29 = Cells(ComboBox1.ListIndex + 1, 60)
If Cells(ComboBox1.ListIndex + 1, 61) = 1 Then
CheckBox11 = True
Else
CheckBox11 = False
End If
If Cells(ComboBox1.ListIndex + 1, 62) = 1 Then
CheckBox12 = True
Else
CheckBox12 = False
End If
If Cells(ComboBox1.ListIndex + 1, 63) = 1 Then
OptionButton11 = True
Else
OptionButton11 = False
End If
If Cells(ComboBox1.ListIndex + 1, 64) = 1 Then
OptionButton12 = True
Else
OptionButton12 = False
End If
TextBox30 = Cells(ComboBox1.ListIndex + 1, 65)
TextBox31 = Cells(ComboBox1.ListIndex + 1, 66)
TextBox32 = Cells(ComboBox1.ListIndex + 1, 67)
TextBox33 = Cells(ComboBox1.ListIndex + 1, 68)
If Cells(ComboBox1.ListIndex + 1, 69) = 1 Then
CheckBox13 = True
Else
CheckBox13 = False
End If
If Cells(ComboBox1.ListIndex + 1, 70) = 1 Then
CheckBox14 = True
Else
CheckBox14 = False
End If
If Cells(ComboBox1.ListIndex + 1, 71) = 1 Then
OptionButton13 = True
Else
OptionButton13 = False
End If
If Cells(ComboBox1.ListIndex + 1, 72) = 1 Then
OptionButton14 = True
Else
OptionButton14 = False
End If
TextBox34 = Cells(ComboBox1.ListIndex + 1, 73)
TextBox35 = Cells(ComboBox1.ListIndex + 1, 74)
TextBox36 = Cells(ComboBox1.ListIndex + 1, 75)
TextBox37 = Cells(ComboBox1.ListIndex + 1, 76)
If Cells(ComboBox1.ListIndex + 1, 77) = 1 Then
CheckBox15 = True
Else
CheckBox15 = False
End If
If Cells(ComboBox1.ListIndex + 1, 78) = 1 Then
CheckBox16 = True
Else
CheckBox16 = False
End If
If Cells(ComboBox1.ListIndex + 1, 79) = 1 Then
OptionButton15 = True
Else
OptionButton15 = False
End If
If Cells(ComboBox1.ListIndex + 1, 80) = 1 Then
OptionButton16 = True
Else
OptionButton16 = False
End If
TextBox38 = Cells(ComboBox1.ListIndex + 1, 81)
TextBox39 = Cells(ComboBox1.ListIndex + 1, 82)
TextBox40 = Cells(ComboBox1.ListIndex + 1, 83)
TextBox41 = Cells(ComboBox1.ListIndex + 1, 84)
If Cells(ComboBox1.ListIndex + 1, 85) = 1 Then
CheckBox17 = True
Else
CheckBox17 = False
End If
If Cells(ComboBox1.ListIndex + 1, 86) = 1 Then
CheckBox18 = True
Else
CheckBox18 = False
End If
If Cells(ComboBox1.ListIndex + 1, 87) = 1 Then
OptionButton17 = True
Else
OptionButton17 = False
End If
If Cells(ComboBox1.ListIndex + 1, 88) = 1 Then
OptionButton18 = True
Else
OptionButton18 = False
End If
TextBox42 = Cells(ComboBox1.ListIndex + 1, 89)
TextBox43 = Cells(ComboBox1.ListIndex + 1, 90)
TextBox44 = Cells(ComboBox1.ListIndex + 1, 91)
TextBox45 = Cells(ComboBox1.ListIndex + 1, 92)
If Cells(ComboBox1.ListIndex + 1, 93) = 1 Then
CheckBox19 = True
Else
CheckBox19 = False
End If
If Cells(ComboBox1.ListIndex + 1, 94) = 1 Then
CheckBox20 = True
Else
CheckBox20 = False
End If
If Cells(ComboBox1.ListIndex + 1, 95) = 1 Then
OptionButton19 = True
Else
OptionButton19 = False
End If
If Cells(ComboBox1.ListIndex + 1, 96) = 1 Then
OptionButton20 = True
Else
OptionButton20 = False
End If
TextBox46 = Cells(ComboBox1.ListIndex + 1, 97)
TextBox47 = Cells(ComboBox1.ListIndex + 1, 98)
TextBox48 = Cells(ComboBox1.ListIndex + 1, 99)
TextBox49 = Cells(ComboBox1.ListIndex + 1, 100)
If Cells(ComboBox1.ListIndex + 1, 101) = 1 Then
CheckBox21 = True
Else
CheckBox21 = False
End If
If Cells(ComboBox1.ListIndex + 1, 102) = 1 Then
CheckBox22 = True
Else
CheckBox22 = False
End If
If Cells(ComboBox1.ListIndex + 1, 103) = 1 Then
OptionButton21 = True
Else
OptionButton21 = False
End If
If Cells(ComboBox1.ListIndex + 1, 104) = 1 Then
OptionButton22 = True
Else
OptionButton22 = False
End If
TextBox50 = Cells(ComboBox1.ListIndex + 1, 105)
TextBox51 = Cells(ComboBox1.ListIndex + 1, 106)
TextBox52 = Cells(ComboBox1.ListIndex + 1, 107)
TextBox53 = Cells(ComboBox1.ListIndex + 1, 108)
If Cells(ComboBox1.ListIndex + 1, 109) = 1 Then
CheckBox23 = True
Else
CheckBox23 = False
End If
If Cells(ComboBox1.ListIndex + 1, 110) = 1 Then
CheckBox24 = True
Else
CheckBox24 = False
End If
If Cells(ComboBox1.ListIndex + 1, 111) = 1 Then
OptionButton23 = True
Else
OptionButton23 = False
End If
If Cells(ComboBox1.ListIndex + 1, 112) = 1 Then
OptionButton24 = True
Else
OptionButton24 = False
End If
TextBox54 = Cells(ComboBox1.ListIndex + 1, 113)
TextBox55 = Cells(ComboBox1.ListIndex + 1, 114)
TextBox56 = Cells(ComboBox1.ListIndex + 1, 115)
TextBox57 = Cells(ComboBox1.ListIndex + 1, 116)
If Cells(ComboBox1.ListIndex + 1, 117) = 1 Then
CheckBox25 = True
Else
CheckBox25 = False
End If
If Cells(ComboBox1.ListIndex + 1, 118) = 1 Then
CheckBox26 = True
Else
CheckBox26 = False
End If
If Cells(ComboBox1.ListIndex + 1, 119) = 1 Then
OptionButton25 = True
Else
OptionButton25 = False
End If
If Cells(ComboBox1.ListIndex + 1, 120) = 1 Then
OptionButton26 = True
Else
OptionButton26 = False
End If
TextBox58 = Cells(ComboBox1.ListIndex + 1, 121)
TextBox59 = Cells(ComboBox1.ListIndex + 1, 122)
TextBox60 = Cells(ComboBox1.ListIndex + 1, 123)
TextBox61 = Cells(ComboBox1.ListIndex + 1, 124)
If Cells(ComboBox1.ListIndex + 1, 125) = 1 Then
CheckBox27 = True
Else
CheckBox27 = False
End If
If Cells(ComboBox1.ListIndex + 1, 126) = 1 Then
CheckBox28 = True
Else
CheckBox28 = False
End If
If Cells(ComboBox1.ListIndex + 1, 127) = 1 Then
OptionButton27 = True
Else
OptionButton27 = False
End If
If Cells(ComboBox1.ListIndex + 1, 128) = 1 Then
OptionButton28 = True
Else
OptionButton28 = False
End If
TextBox62 = Cells(ComboBox1.ListIndex + 1, 129)
TextBox63 = Cells(ComboBox1.ListIndex + 1, 130)
TextBox64 = Cells(ComboBox1.ListIndex + 1, 131)
TextBox65 = Cells(ComboBox1.ListIndex + 1, 132)
If Cells(ComboBox1.ListIndex + 1, 133) = 1 Then
CheckBox29 = True
Else
CheckBox29 = False
End If
If Cells(ComboBox1.ListIndex + 1, 134) = 1 Then
CheckBox30 = True
Else
CheckBox30 = False
End If
If Cells(ComboBox1.ListIndex + 1, 135) = 1 Then
OptionButton29 = True
Else
OptionButton29 = False
End If
If Cells(ComboBox1.ListIndex + 1, 136) = 1 Then
OptionButton30 = True
Else
OptionButton30 = False
End If
TextBox66 = Cells(ComboBox1.ListIndex + 1, 137)
TextBox67 = Cells(ComboBox1.ListIndex + 1, 138)
TextBox68 = Cells(ComboBox1.ListIndex + 1, 139)
TextBox69 = Cells(ComboBox1.ListIndex + 1, 140)
If Cells(ComboBox1.ListIndex + 1, 141) = 1 Then
CheckBox31 = True
Else
CheckBox31 = False
End If
If Cells(ComboBox1.ListIndex + 1, 142) = 1 Then
CheckBox32 = True
Else
CheckBox32 = False
End If
If Cells(ComboBox1.ListIndex + 1, 143) = 1 Then
OptionButton31 = True
Else
OptionButton31 = False
End If
If Cells(ComboBox1.ListIndex + 1, 144) = 1 Then
OptionButton32 = True
Else
OptionButton32 = False
End If
TextBox70 = Cells(ComboBox1.ListIndex + 1, 145)
TextBox71 = Cells(ComboBox1.ListIndex + 1, 146)
TextBox72 = Cells(ComboBox1.ListIndex + 1, 147)
TextBox73 = Cells(ComboBox1.ListIndex + 1, 148)
If Cells(ComboBox1.ListIndex + 1, 149) = 1 Then
CheckBox33 = True
Else
CheckBox33 = False
End If
If Cells(ComboBox1.ListIndex + 1, 150) = 1 Then
CheckBox34 = True
Else
CheckBox34 = False
End If
If Cells(ComboBox1.ListIndex + 1, 151) = 1 Then
OptionButton33 = True
Else
OptionButton33 = False
End If
If Cells(ComboBox1.ListIndex + 1, 152) = 1 Then
OptionButton34 = True
Else
OptionButton34 = False
End If
TextBox74 = Cells(ComboBox1.ListIndex + 1, 153)
TextBox75 = Cells(ComboBox1.ListIndex + 1, 154)
TextBox76 = Cells(ComboBox1.ListIndex + 1, 155)
TextBox77 = Cells(ComboBox1.ListIndex + 1, 156)
If Cells(ComboBox1.ListIndex + 1, 157) = 1 Then
CheckBox35 = True
Else
CheckBox35 = False
End If
If Cells(ComboBox1.ListIndex + 1, 158) = 1 Then
CheckBox36 = True
Else
CheckBox36 = False
End If
If Cells(ComboBox1.ListIndex + 1, 159) = 1 Then
OptionButton35 = True
Else
OptionButton35 = False
End If
If Cells(ComboBox1.ListIndex + 1, 160) = 1 Then
OptionButton36 = True
Else
OptionButton36 = False
End If
TextBox78 = Cells(ComboBox1.ListIndex + 1, 161)
TextBox79 = Cells(ComboBox1.ListIndex + 1, 162)
TextBox80 = Cells(ComboBox1.ListIndex + 1, 163)
TextBox81 = Cells(ComboBox1.ListIndex + 1, 164)
If Cells(ComboBox1.ListIndex + 1, 165) = 1 Then
CheckBox37 = True
Else
CheckBox37 = False
End If
If Cells(ComboBox1.ListIndex + 1, 166) = 1 Then
CheckBox38 = True
Else
CheckBox38 = False
End If
If Cells(ComboBox1.ListIndex + 1, 167) = 1 Then
OptionButton37 = True
Else
OptionButton37 = False
End If
If Cells(ComboBox1.ListIndex + 1, 168) = 1 Then
OptionButton38 = True
Else
OptionButton38 = False
End If
TextBox82 = Cells(ComboBox1.ListIndex + 1, 169)
TextBox83 = Cells(ComboBox1.ListIndex + 1, 170)
TextBox84 = Cells(ComboBox1.ListIndex + 1, 171)
TextBox85 = Cells(ComboBox1.ListIndex + 1, 172)
If Cells(ComboBox1.ListIndex + 1, 173) = 1 Then
CheckBox39 = True
Else
CheckBox39 = False
End If
If Cells(ComboBox1.ListIndex + 1, 174) = 1 Then
CheckBox40 = True
Else
CheckBox40 = False
End If
If Cells(ComboBox1.ListIndex + 1, 175) = 1 Then
OptionButton39 = True
Else
OptionButton39 = False
End If
If Cells(ComboBox1.ListIndex + 1, 176) = 1 Then
OptionButton40 = True
Else
OptionButton40 = False
End If
TextBox86 = Cells(ComboBox1.ListIndex + 1, 177)
TextBox87 = Cells(ComboBox1.ListIndex + 1, 178)
TextBox88 = Cells(ComboBox1.ListIndex + 1, 179)
TextBox89 = Cells(ComboBox1.ListIndex + 1, 180)
If Cells(ComboBox1.ListIndex + 1, 181) = 1 Then
CheckBox41 = True
Else
CheckBox41 = False
End If
If Cells(ComboBox1.ListIndex + 1, 182) = 1 Then
CheckBox42 = True
Else
CheckBox42 = False
End If
If Cells(ComboBox1.ListIndex + 1, 183) = 1 Then
OptionButton41 = True
Else
OptionButton41 = False
End If
If Cells(ComboBox1.ListIndex + 1, 184) = 1 Then
OptionButton42 = True
Else
OptionButton42 = False
End If
TextBox90 = Cells(ComboBox1.ListIndex + 1, 185)
TextBox91 = Cells(ComboBox1.ListIndex + 1, 186)
TextBox92 = Cells(ComboBox1.ListIndex + 1, 187)
TextBox93 = Cells(ComboBox1.ListIndex + 1, 188)
If Cells(ComboBox1.ListIndex + 1, 189) = 1 Then
CheckBox43 = True
Else
CheckBox43 = False
End If
If Cells(ComboBox1.ListIndex + 1, 190) = 1 Then
CheckBox44 = True
Else
CheckBox44 = False
End If
If Cells(ComboBox1.ListIndex + 1, 191) = 1 Then
OptionButton43 = True
Else
OptionButton43 = False
End If
If Cells(ComboBox1.ListIndex + 1, 192) = 1 Then
OptionButton44 = True
Else
OptionButton44 = False
End If
TextBox94 = Cells(ComboBox1.ListIndex + 1, 193)
TextBox95 = Cells(ComboBox1.ListIndex + 1, 194)
TextBox96 = Cells(ComboBox1.ListIndex + 1, 195)
TextBox97 = Cells(ComboBox1.ListIndex + 1, 196)
If Cells(ComboBox1.ListIndex + 1, 197) = 1 Then
CheckBox45 = True
Else
CheckBox45 = False
End If
If Cells(ComboBox1.ListIndex + 1, 198) = 1 Then
CheckBox46 = True
Else
CheckBox46 = False
End If
If Cells(ComboBox1.ListIndex + 1, 199) = 1 Then
OptionButton45 = True
Else
OptionButton45 = False
End If
If Cells(ComboBox1.ListIndex + 1, 200) = 1 Then
OptionButton46 = True
Else
OptionButton46 = False
End If
TextBox98 = Cells(ComboBox1.ListIndex + 1, 201)
TextBox99 = Cells(ComboBox1.ListIndex + 1, 202)
TextBox100 = Cells(ComboBox1.ListIndex + 1, 203)
TextBox101 = Cells(ComboBox1.ListIndex + 1, 204)
If Cells(ComboBox1.ListIndex + 1, 205) = 1 Then
CheckBox47 = True
Else
CheckBox47 = False
End If
If Cells(ComboBox1.ListIndex + 1, 206) = 1 Then
CheckBox48 = True
Else
CheckBox48 = False
End If
If Cells(ComboBox1.ListIndex + 1, 207) = 1 Then
OptionButton47 = True
Else
OptionButton47 = False
End If
If Cells(ComboBox1.ListIndex + 1, 208) = 1 Then
OptionButton48 = True
Else
OptionButton48 = False
End If
TextBox102 = Cells(ComboBox1.ListIndex + 1, 209)
TextBox103 = Cells(ComboBox1.ListIndex + 1, 210)
TextBox104 = Cells(ComboBox1.ListIndex + 1, 211)
TextBox105 = Cells(ComboBox1.ListIndex + 1, 212)
If Cells(ComboBox1.ListIndex + 1, 213) = 1 Then
CheckBox49 = True
Else
CheckBox49 = False
End If
If Cells(ComboBox1.ListIndex + 1, 214) = 1 Then
CheckBox50 = True
Else
CheckBox50 = False
End If
If Cells(ComboBox1.ListIndex + 1, 215) = 1 Then
OptionButton49 = True
Else
OptionButton49 = False
End If
If Cells(ComboBox1.ListIndex + 1, 216) = 1 Then
OptionButton50 = True
Else
OptionButton50 = False
End If
TextBox106 = Cells(ComboBox1.ListIndex + 1, 217)
TextBox107 = Cells(ComboBox1.ListIndex + 1, 218)
TextBox108 = Cells(ComboBox1.ListIndex + 1, 219)
TextBox109 = Cells(ComboBox1.ListIndex + 1, 220)
If Cells(ComboBox1.ListIndex + 1, 221) = 1 Then
CheckBox51 = True
Else
CheckBox51 = False
End If
If Cells(ComboBox1.ListIndex + 1, 222) = 1 Then
CheckBox52 = True
Else
CheckBox52 = False
End If
If Cells(ComboBox1.ListIndex + 1, 223) = 1 Then
OptionButton51 = True
Else
OptionButton51 = False
End If
If Cells(ComboBox1.ListIndex + 1, 224) = 1 Then
OptionButton52 = True
Else
OptionButton52 = False
End If
TextBox110 = Cells(ComboBox1.ListIndex + 1, 225)
TextBox111 = Cells(ComboBox1.ListIndex + 1, 226)
TextBox112 = Cells(ComboBox1.ListIndex + 1, 227)
TextBox113 = Cells(ComboBox1.ListIndex + 1, 228)
If Cells(ComboBox1.ListIndex + 1, 229) = 1 Then
CheckBox53 = True
Else
CheckBox53 = False
End If
If Cells(ComboBox1.ListIndex + 1, 230) = 1 Then
CheckBox54 = True
Else
CheckBox54 = False
End If
If Cells(ComboBox1.ListIndex + 1, 231) = 1 Then
OptionButton53 = True
Else
OptionButton53 = False
End If
If Cells(ComboBox1.ListIndex + 1, 232) = 1 Then
OptionButton54 = True
Else
OptionButton54 = False
End If
TextBox114 = Cells(ComboBox1.ListIndex + 1, 233)
TextBox115 = Cells(ComboBox1.ListIndex + 1, 234)
TextBox116 = Cells(ComboBox1.ListIndex + 1, 235)
TextBox117 = Cells(ComboBox1.ListIndex + 1, 236)
If Cells(ComboBox1.ListIndex + 1, 237) = 1 Then
CheckBox55 = True
Else
CheckBox55 = False
End If
If Cells(ComboBox1.ListIndex + 1, 238) = 1 Then
CheckBox56 = True
Else
CheckBox56 = False
End If
If Cells(ComboBox1.ListIndex + 1, 239) = 1 Then
OptionButton55 = True
Else
OptionButton55 = False
End If
If Cells(ComboBox1.ListIndex + 1, 240) = 1 Then
OptionButton56 = True
Else
OptionButton56 = False
End If
TextBox118 = Cells(ComboBox1.ListIndex + 1, 241)
TextBox119 = Cells(ComboBox1.ListIndex + 1, 242)
TextBox120 = Cells(ComboBox1.ListIndex + 1, 243)
TextBox121 = Cells(ComboBox1.ListIndex + 1, 244)
If Cells(ComboBox1.ListIndex + 1, 245) = 1 Then
CheckBox57 = True
Else
CheckBox57 = False
End If
If Cells(ComboBox1.ListIndex + 1, 246) = 1 Then
CheckBox58 = True
Else
CheckBox58 = False
End If
If Cells(ComboBox1.ListIndex + 1, 247) = 1 Then
OptionButton57 = True
Else
OptionButton57 = False
End If
If Cells(ComboBox1.ListIndex + 1, 248) = 1 Then
OptionButton58 = True
Else
OptionButton58 = False
End If
TextBox122 = Cells(ComboBox1.ListIndex + 1, 249)
TextBox123 = Cells(ComboBox1.ListIndex + 1, 250)
TextBox124 = Cells(ComboBox1.ListIndex + 1, 251)
TextBox125 = Cells(ComboBox1.ListIndex + 1, 252)
If Cells(ComboBox1.ListIndex + 1, 253) = 1 Then
CheckBox59 = True
Else
CheckBox59 = False
End If
If Cells(ComboBox1.ListIndex + 1, 254) = 1 Then
CheckBox60 = True
Else
CheckBox60 = False
End If
If Cells(ComboBox1.ListIndex + 1, 255) = 1 Then
OptionButton59 = True
Else
OptionButton59 = False
End If
If Cells(ComboBox1.ListIndex + 1, 256) = 1 Then
OptionButton60 = True
Else
OptionButton60 = False
End If
Else
TextBox1 = ""
TextBox2 = ""
ComboBox2 = ""
TextBox3 = ""
TextBox4 = ""
ComboBox3 = ""
ComboBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
CheckBox1 = False
CheckBox2 = False
OptionButton1 = False
OptionButton2 = False
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
CheckBox3 = False
CheckBox4 = False
OptionButton3 = False
OptionButton4 = False
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
CheckBox5 = False
CheckBox6 = False
OptionButton5 = False
OptionButton6 = False
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
TextBox21 = ""
CheckBox7 = False
CheckBox8 = False
OptionButton7 = False
OptionButton8 = False
TextBox22 = ""
TextBox23 = ""
TextBox24 = ""
TextBox25 = ""
CheckBox9 = False
CheckBox10 = False
OptionButton9 = False
OptionButton10 = False
TextBox26 = ""
TextBox27 = ""
TextBox28 = ""
TextBox29 = ""
CheckBox11 = False
CheckBox12 = False
OptionButton11 = False
OptionButton12 = False
TextBox30 = ""
TextBox31 = ""
TextBox32 = ""
TextBox33 = ""
CheckBox13 = False
CheckBox14 = False
OptionButton13 = False
OptionButton14 = False
TextBox34 = ""
TextBox35 = ""
TextBox36 = ""
TextBox37 = ""
CheckBox15 = False
CheckBox16 = False
OptionButton15 = False
OptionButton16 = False
TextBox38 = ""
TextBox39 = ""
TextBox40 = ""
TextBox41 = ""
CheckBox17 = False
CheckBox18 = False
OptionButton17 = False
OptionButton18 = False
TextBox42 = ""
TextBox43 = ""
TextBox44 = ""
TextBox45 = ""
CheckBox19 = False
CheckBox20 = False
OptionButton19 = False
OptionButton20 = False
TextBox46 = ""
TextBox47 = ""
TextBox48 = ""
TextBox49 = ""
CheckBox21 = False
CheckBox22 = False
OptionButton21 = False
OptionButton22 = False
TextBox50 = ""
TextBox51 = ""
TextBox52 = ""
TextBox53 = ""
CheckBox23 = False
CheckBox24 = False
OptionButton23 = False
OptionButton24 = False
TextBox54 = ""
TextBox55 = ""
TextBox56 = ""
TextBox57 = ""
CheckBox25 = False
CheckBox26 = False
OptionButton25 = False
OptionButton26 = False
TextBox58 = ""
TextBox59 = ""
TextBox60 = ""
TextBox61 = ""
CheckBox27 = False
CheckBox28 = False
OptionButton27 = False
OptionButton28 = False
TextBox62 = ""
TextBox63 = ""
TextBox64 = ""
TextBox65 = ""
CheckBox29 = False
CheckBox30 = False
OptionButton29 = False
OptionButton30 = False
TextBox66 = ""
TextBox67 = ""
TextBox68 = ""
TextBox69 = ""
CheckBox31 = False
CheckBox32 = False
OptionButton31 = False
OptionButton32 = False
TextBox70 = ""
TextBox71 = ""
TextBox72 = ""
TextBox73 = ""
CheckBox33 = False
CheckBox34 = False
OptionButton33 = False
OptionButton34 = False
TextBox74 = ""
TextBox75 = ""
TextBox76 = ""
TextBox77 = ""
CheckBox35 = False
CheckBox36 = False
OptionButton35 = False
OptionButton36 = False
TextBox78 = ""
TextBox79 = ""
TextBox80 = ""
TextBox81 = ""
CheckBox37 = False
CheckBox38 = False
OptionButton37 = False
OptionButton38 = False
TextBox82 = ""
TextBox83 = ""
TextBox84 = ""
TextBox85 = ""
CheckBox39 = False
CheckBox40 = False
OptionButton39 = False
OptionButton40 = False
TextBox86 = ""
TextBox87 = ""
TextBox88 = ""
TextBox89 = ""
CheckBox41 = False
CheckBox42 = False
OptionButton41 = False
OptionButton42 = False
TextBox90 = ""
TextBox91 = ""
TextBox92 = ""
TextBox93 = ""
CheckBox43 = False
CheckBox44 = False
OptionButton43 = False
OptionButton44 = False
TextBox94 = ""
TextBox95 = ""
TextBox96 = ""
TextBox97 = ""
CheckBox45 = False
CheckBox46 = False
OptionButton45 = False
OptionButton46 = False
TextBox98 = ""
TextBox99 = ""
TextBox100 = ""
TextBox101 = ""
CheckBox47 = False
CheckBox48 = False
OptionButton47 = False
OptionButton48 = False
TextBox102 = ""
TextBox103 = ""
TextBox104 = ""
TextBox105 = ""
CheckBox49 = False
CheckBox50 = False
OptionButton49 = False
OptionButton50 = False
TextBox106 = ""
TextBox107 = ""
TextBox108 = ""
TextBox109 = ""
CheckBox51 = False
CheckBox52 = False
OptionButton51 = False
OptionButton52 = False
TextBox110 = ""
TextBox111 = ""
TextBox112 = ""
TextBox113 = ""
CheckBox53 = False
CheckBox54 = False
OptionButton53 = False
OptionButton54 = False
TextBox114 = ""
TextBox115 = ""
TextBox116 = ""
TextBox117 = ""
CheckBox55 = False
CheckBox56 = False
OptionButton55 = False
OptionButton56 = False
TextBox118 = ""
TextBox119 = ""
TextBox120 = ""
TextBox121 = ""
CheckBox57 = False
CheckBox58 = False
OptionButton57 = False
OptionButton58 = False
TextBox122 = ""
TextBox123 = ""
TextBox124 = ""
TextBox125 = ""
CheckBox59 = False
CheckBox60 = False
OptionButton59 = False
OptionButton60 = False
End If
End Sub

Ich versuche es jetzt damit und hoffe, dass es Excel nicht in die Knie zwingt.
Ich danke dir sehr und viele Grüße
Erdogan

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabemaske

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread