Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Togglebutton mehre befhele

Forumthread: Togglebutton mehre befhele

Togglebutton mehre befhele
murat
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Blatt direkt ansprechen
24.01.2010 04:15:50
Matthias
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.
Userbild
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
Anzeige
AW: Blatt direkt ansprechen
24.01.2010 12:29:00
MURAT
vielen dank!
Sie haben mir sehr geholfen!!!!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige