Hallo zusammen,
ich benötige eure Hilfe.
In Tabelle1 habe ich zwei Checkboxen (checkbox1 und checkbox2). Je nachdem welche Checkboxen angeklickt werden, sollen in Tabelle2 unterschiedliche Zeilen ein- bzw. ausgeblendet werden.
mit if then else läuft das ohne Probleme, aber halt auch sehr unelegant...
Könnt ihr mir helfen das in select...case umzuwandeln?
Sub ein_ausblenden
if checkbox1 = false and checkbox2 = false then
worksheets("Tabelle2").rows("10:15").hidden = false
worksheets("Tabelle2").rows("16:20").hidden = true
else
if checkbox1 = true and checkbox2 = false then
worksheets("Tabelle2").rows("10:15").hidden = true
worksheets("Tabelle2").rows("16:20").hidden = false
else
if checkbox1 = true and checkbox2 = true then
worksheets("Tabelle2").rows("10:15").hidden = true
worksheets("Tabelle2").rows("16:20").hidden = true
else
if checkbox1 = false and checkbox2 = true then
worksheets("Tabelle2").rows("10:15").hidden = false
worksheets("Tabelle2").rows("16:20").hidden = false
end if
end Sub
Danke vorab. |