Togglebutton mehre befhele
murat
ich möchte einen tabellenblatt einblenden und ausblenden.
beim einblenden der tabelle soll der cursor auf das eingeblendete tabellenblatt springen.
den text in zelle j2 soll den tabellenamen ersetzen. ich bekomme die befehle nicht in ein makro
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Kunden ausblenden"
Sheets("Tabelle6").Visible = True
Sheets("Tabelle5").Select
Range("J2").Select
Sheets("Tabelle6").Select
Sheets("Tabelle6").Name = Range("J2").Value
Else
TB.Caption = "Kunden anzeigen"
Sheets("Tabelle6").Visible = False
End If
End Sub
vielen dank im voraus