Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - mehrere Tabellen ein- und ausblenden

VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 16:52:49
Lilli
Hallo Allerseits,
ich bräuchte bitte Hilfe in VBA.
Ich habe ein Makro aus dem Netz kopiert, wo ich ein Sheet einblenden oder ausblenden kann. Das funktioniert auch.
Ich möchte aber mit dem Umschalter mehrere Tabellen ein- oder ausblenden. Ich habe aber von VBA leider keine Ahnung. 
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False   'Schaltet den Bildschirm aus
If ToggleButton1.Value = False Then
Worksheets("tbl201601").Visible = False
Else
Worksheets("tbl201601").Visible = True
End If
Application.ScreenUpdating = True   'Schaltet den Bildschirm wieder ein
End Sub

das sind die Blätte, die auf einmal ein- bzw. ausgeblendet werden sollen.
tbl201601
tbl201602
tbl201603
tbl201604
tbl201605
tbl201606
Vielen Dank für die Hilfe.
liebe Grüße,
Lilli :)

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 16:56:37
Hajo_Zi
Hallo Lilli,
es reicht für eine Tabelle Folgende Zeile
Worksheets("tbl201601").Visible = ToggleButton1.Value
Für die anderen Tabellen die analoge Zeile.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 17:11:23
Lilli
Hallo Hajo,
vielen Dank für die schnelle Antwort.
Ich habe folgendes versucht: 
Private Sub ToggleButton121_Click()
Application.ScreenUpdating = False   'Schaltet den Bildschirm aus
If ToggleButton2.Value = False Then
Worksheets("tbl201601").Visible = False
Worksheets("tbl201602").Visible = False
Worksheets("tbl201603").Visible = False
Else
Worksheets("tbl201601").Visible = True
Worksheets("tbl201602").Visible = True
Worksheets("tbl201603").Visible = True
End If
Application.ScreenUpdating = True   'Schaltet den Bildschirm wieder ein
End Sub

aber es reagiert gar nicht. Es kommt keine Fehlermeldung und die Blätter werden weder ausgeblendet noch eingeblendet.
hast Du vielleicht eine Idee, woran das liegen könnte.
Liebe Grüße,
Lilli :)
Anzeige
AW: VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 17:16:35
UweD
Hallo
oben steht "ToggleButton121_Click()"
unten "ToggleButton2.Value = False Then"
sollte das nicht übereinstimmen?
AW: VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 18:00:03
Lilli
Hallo UweD,
das war der Fehler. Vielen Dank. Das hat jetzt gut geklappt.
Vielen Dank für Deine Mühe.
Liebe Grüße,
Lilli :)
AW: VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 17:18:03
Hajo_Zi
Hallo Lilli,
mein Vorschlag hat Dir also nicht gefallen. Ich bin dann raus, ich arbeite nicht für den Papierkorb.
Gruß Hajo
AW: VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 18:07:29
Lilli
Hallo Hajo,
ich habe nirgendswo geschrieben, dass mir Dein Vorschlag nicht gefallen hat.
Das habe ich geschrieben:
Ich habe folgendes versucht: 
Private Sub ToggleButton121_Click()
Application.ScreenUpdating = False   'Schaltet den Bildschirm aus
If ToggleButton2.Value = False Then
Worksheets("tbl201601").Visible = False
Worksheets("tbl201602").Visible = False
Worksheets("tbl201603").Visible = False
Else
Worksheets("tbl201601").Visible = True
Worksheets("tbl201602").Visible = True
Worksheets("tbl201603").Visible = True
End If
Application.ScreenUpdating = True   'Schaltet den Bildschirm wieder ein
End Sub
aber es reagiert gar nicht. Es kommt keine Fehlermeldung und die Blätter werden weder ausgeblendet noch eingeblendet.
hast Du vielleicht eine Idee, woran das liegen könnte.
Ganz im Gegenteil. du hast mir etwas vorgeschlagen und ich habe versucht dies nach meine Kenntnisse umzusetzen. Den Code habe ich auch oben gelistet, damit man sehen kann, was ich gemacht
habe. Nur es hat nicht funktioniert.
UweD hat gesehen, dass ich in den Code ein Fehler hatte. Das habe ich jetzt korrigiert und es funktioniert jetzt.
Viele Grüße,
Lilli
Anzeige
AW: VBA - mehrere Tabellen ein- und ausblenden
12.04.2018 07:43:20
Lilli
Guten Morgen Dieter, :)
Vielen lieben Dank für Deinen Einsatz.
Das ist aber was ganz tolles! Was ist eigentlich ein UserForm1? Ich finde es echt klasse.
Vielen Dank für Deine Mühe Dieter.
liebe Grüße,
Lilli :)
AW: VBA - mehrere Tabellen ein- und ausblenden
12.04.2018 08:58:17
Dieter(Drummer)
Guten Morgen Lilli,
danke für Rückmeldung und hier eine Möglichkeit der Info über Userform:
http://www.vba-wordwelt.de/grundsaetzliches/elemente-im-vba-editor/userform/
UweD hat dir ja den Code jetzt in gekürzter Form (mit erster Info von Hajo) geschickt, der natürlich perfekt funktioniert.
Gruß und einen schönen Tag,
Dieter(Drummer)
Anzeige
AW: Lernvideo Userfoerm
12.04.2018 09:33:58
Dieter(Drummer)
Hallo Lilli,
hier noch eine Lernvideo (kostenlos) in Sachen Userform: https://www.excel-vba-lernen.de/userform1/
Gruß, Dieter(Drummer)
AW: Lernvideo Userfoerm
12.04.2018 10:47:13
Lilli
Hallo Dieter,
Danke für den Link. Das schaue ich mir auf jeden Fall an.
Da ist auch ein Link wie man sich auch bedanken kann - das finde ich sehr wichtig.
Liebe Grüße,
Lilli
AW: VBA - mehrere Tabellen ein- und ausblenden
12.04.2018 08:42:13
UweD
Hallo Lilli
nochmal den Gedanken von Hajo aufgegriffen...
das reicht an Code
- Die If- Abfrage kannst du sparen und direkt den Zustand des Button verwenden.
- Application.ScreenUpdating schaltet sich am Makroende automatisch wieder ein
Private Sub ToggleButton2_Click()
    Application.ScreenUpdating = False   'Schaltet den Bildschirm aus 
     
    With ToggleButton2
        Worksheets("tbl201601").Visible = .Value
        Worksheets("tbl201602").Visible = .Value
        Worksheets("tbl201603").Visible = .Value
        Worksheets("tbl201604").Visible = .Value
        Worksheets("tbl201605").Visible = .Value
        Worksheets("tbl201606").Visible = .Value
    End With

End Sub

LG UweD
Anzeige
AW: VBA - mehrere Tabellen ein- und ausblenden
12.04.2018 09:01:38
Lilli
hallo UweD,
vielen Dank, dass Du den Gedanken von Hajo aufgegriffen hast. Das habe ich gar nicht so verstanden. Ich bin froh, dass es Menschen gibt, die das hier verstehen. Ich bin nur eine Bastlerin. Vielen Dank für Deine Hilfe.
Ich teste es mal und gebe es gleich Bescheid.
Liebe Grüße,
Lilli :)
AW: VBA - mehrere Tabellen ein- und ausblenden
11.04.2018 18:07:52
Dieter(Drummer(
Hallo Lilli,
hier eine Musterdatei mi deinem Code, aber mit der richtigen Bezeichnug des ToggleButtons.
Der klickbare ToggelButton, Nr. 2, muss dann auch entsprechend der ToggleButton Nr. in deiner "If" Anweisung sein. Dann klappt es auch.
Gruß, Dieter(Drummer)
Musterdatei: https://www.herber.de/bbs/user/121012.xlsm
Anzeige
AW: VBA - mehrere Tabellen ein- und ausblenden
12.04.2018 11:16:36
Lilli
Hallo Hajo,
ich möchte mich bei Dir entschuldigen, da ich Deinen Ansatz gar nicht richtig verstanden habe. Dein Ansatz wurde aufgenommen und wurde mir noch mal erklärt was es an sich hat.
Es tut mir Leid, es war keine Böse Absicht, sondern viel mehr mein Unwissen in VBA-Bereich.
Viele Grüße,
Lilli :)

25 Forumthreads zu ähnlichen Themen

VBA: Alle PivotItems ausblenden
Daniel

Hallo Profis,
wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
11.09.2008 13:42:00
Thread-ID: 1009110
2 Beiträge
Anzeige
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
VBA: Mehrere Spalten ausblenden
NillePet

Hallo Forumgemeinde,
ich bin nicht unbedingt ein VBA-Spezi und verzweifle gerade an folgendem Problem:
Die Daten die ich filtern möchte erstrecken sich über relativ viele Spalten. Gefiltert werden sollen die Spalten anhand der Werte in der Zeile 4, die dann aufgrund der Angabe in Zelle...
28.05.2013 17:15:02
Thread-ID: 1315291
6 Beiträge
Anzeige
VBA für alle Tabellenblätter
Bernd

Hallo an Alle,
ich bitte um Eure Hilfe. Ich habe ein Makro, das mir in einem Zellbereich bei einem Doppelklick ein Haken oder ein x schreibt. Dies funktioniert in dem Tabellenblatt, in dem das Makro gespeichert ist. Ich möchte aber die Dateien nicht in .xslm sondern in .xlsx, also ohne Makr...
22.06.2014 22:03:57
Thread-ID: 1366938
4 Beiträge
VBA auf alle Tabellenblätter anwenden
Christoph

Hallo zusammen,
ich nutze aktuell folgenden Code um Leerzeichen per VBA zu löschen. Nun würde ich diesen gerne auf alle Tabellenblätter in der Arbeitsmappe anwenden - kann mir da jemand helfen.
Danke und Gruß Sub LeErsetzen() Dim rngZelle As Range Dim rngBereich As Range Dim wks As Work...
19.08.2015 15:32:08
Thread-ID: 1443155
5 Beiträge
Alle Tabellenblätter mittels Codename ausblenden
Torsten

Nun zu einer Sache mit der sich jeder befasst, wenn er eine Tabelle mit vertraulichen Daten erstellt.
Wie blende ich beim schließen des Workbooks alles aus und beim öffnen alles ein?!
Da beim öffnen der Mappe und nicht aktiviertem Inhalt das letzte bearbeitete Blatt vor dem speichern zu...
24.02.2016 02:04:40
Thread-ID: 1477692
9 Beiträge
VBA alle Windows aus-/einblenden
Thomas

Hallo zusammen,
die beiden simplen Makros sollen alle Fenster aus- oder einblenden.
_________________________________ Public Sub EinblendenWindows() Dim i As Integer For i = 1 To Windows.Count Windows(i).Visible = True Next End Sub
_________________________________ Public Sub Aus...
27.10.2016 17:07:37
Thread-ID: 1521970
3 Beiträge
VBA-Code Drucken Wenn mehrere Tabellenblätter
Heiko

Hallo zusammen.
Ich habe ein Excel-Arbeitsblatt mit mehreren Fahrzeugen drin Jedes Fahrzeug hat ein eigenes Registerblatt. z.B. Fahrzeug 123 dann Fahrzeug 234 dann Fahrzeug 345 usw.
Als erstes Registerblatt habe ich eine Abfrageseite ob das Fahrzeug in Verwendung ist. z.B. Fahrzeug 123...
24.01.2017 00:14:19
Thread-ID: 1536936
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ToggleButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
10
8
5
4
3
4
8
2
3
2
6
9
5
5
4
13
1
3
3
10
5
7
2
2