Habe auf Tabelle1 eine CheckBox (das so ein Ding wo man ein Häklein setzen kann). Das Makro dazu ist auf die Tabelle geschrieben. Damit möchte ich auf einem anderen Blatt verschiedene Textboxen und einen Commandbutton zum Verschwinden bringen. Baue ich folgenden Code ein, funktioniert dies leider nicht:
Sub CheckBox1
If CheckBox1 Then
Sheets("Erfolgssens.-Analyse BM").Rows("8:37").Hidden = False
Sheets("Erfolgssens.-Analyse BSM").Rows("8:37").Hidden = False
Sheets("Erfolgssens.-Analyse BW").Rows("8:37").Hidden = False
Sheets("Erfolgssens.-Analyse BSW").Rows("8:37").Hidden = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
CommandButton2.Visible = True
Else
Sheets("Erfolgssens.-Analyse BM").Rows("8:37").Hidden = True
Sheets("Erfolgssens.-Analyse BSM").Rows("8:37").Hidden = True
Sheets("Erfolgssens.-Analyse BW").Rows("8:37").Hidden = True
Sheets("Erfolgssens.-Analyse BSW").Rows("8:37").Hidden = True
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
CommandButton2.Visible = False
End If
End Sub
Kann mir jemand weiterhelfen?
Besten Dank
tom