If-Schleife funktioniert nicht
06.03.2019 16:12:25
Senad
Ich probiere mehrere Checkboxen abzufragen, wenn eine davon positiv ist soll er in einer Spalte im Tabellenblatt ein Häkchen setzen... Komischerweise funktioniert das bis zur dritten Abfrage, jedoch bei mehr Abfragen dann nicht mehr...
Hier der Code:
If CheckBox17.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox18.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox19.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox20.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox21.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox22.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox23.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox24.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else
If CheckBox25.Value = True Then Sheet1.Cells(lZeile, 26) = "x" Else Sheet1.Cells(lZeile, 26) = "-"
Wäre echt dankbar wenn mir da jemand sagen könnte woran es liegt.
LG