Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

Togglebutton mehre befhele | Herbers Excel-Forum


Betrifft: Togglebutton mehre befhele von: murat
Geschrieben am: 24.01.2010 01:01:18

guten abend,

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

  

Betrifft: Blatt direkt ansprechen von: Matthias L
Geschrieben am: 24.01.2010 04:15:50

Hallo murat

Wenn Du den angezeigten Namen des Blattes ändern möchtest, mußt Du das Blatt direkt ansprechen.
Ansonsten bekommst Du einen Fehler beim erneuten Klick auf das Togglebutton.
Da es den Namen("Tabelle6") dann ja nicht mehr gibt.





Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
    If TB.Value = True Then
       TB.Caption = "Kunden ausblenden"
          
          Application.ScreenUpdating = False
           Tabelle3.Visible = True
           Tabelle3.Name = Tabelle2.Range("J2").Value
          Application.ScreenUpdating = False
    Else
       TB.Caption = "Kunden anzeigen"
       Tabelle3.Visible = False
    End If
Set TB = Nothing
End Sub
Hier die Beispieldatei (nur als Demo - ohne Fehlerbehandlung!)
https://www.herber.de/bbs/user/67442.xls

Wichtig!
Tabelle2.Range("J2") darf natürlich nicht leer bzw. darf keine ungültige Zeichen für einen Blattnamen enthalten.
Ebenso mußt Du vorher noch prüfen, ob es schon ein Blatt mit dem Namen aus J2 gibt !

Gruß Matthias


  

Betrifft: AW: Blatt direkt ansprechen von: MURAT
Geschrieben am: 24.01.2010 12:29:00

vielen dank!
Sie haben mir sehr geholfen!!!!


Beiträge aus den Excel-Beispielen zum Thema "Togglebutton mehre befhele"