Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden eines CommandButtons funktioniert nicht

Ausblenden eines CommandButtons funktioniert nicht
19.06.2013 10:44:00
Jonas
Hallo liebe Excel-Gemeinde,
ich habe ein mehrseitiges Excel-Dokument.
Auf Sheet1 befindet sich der Einstieg über verschiedene Buttons.
Hinter einem Button befindet sich folgender Code: 
Private Sub cbManagerEinstieg_Click()
' Tabellen einblenden
ActiveWorkbook.Sheets("Datasheets_Front").Visible = True
ActiveWorkbook.Sheets("Data1").Visible = False
Call GoTo_Datasheets.Goto_Home
Worksheets("Home").cbNewGoToAngebot.Visible = False
Worksheets("Documentation").cbNewBeenden.Visible = False
End Sub

Hier werden also verschiedene Blätter aus/ein-geblendet und auf ein bestimmtes Blatt gesprungen. Danach werden verschiedene Buttons auf anderen Blättern aus/ein-geblendet.
Wenn ich auf den Button klicke, dann springt Excel auf das Blatt "Home" wie gewünscht. Der Button cbNewGoToAngebot wird ausgeblendet. Die Buttons auf den anderen Blättern (z.B. cbNewBeenden) werden jedoch nicht ausgeblendet.
Woran liegt das? Spreche ich die Buttons falsch an? Fehler bekomme ich keine angezeigt.
Vielen Dank und liebe Grüße
Jonas
P.s. Beim einblenden der Blätter erscheinen diese im Schnelldruchlauf auf dem Bildschirm. Lässt sich das abschalten? (Ich hoffe, man versteht, was ich meine)

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden eines CommandButtons funktioniert nicht
19.06.2013 10:49:12
Klaus
Hallo Jonas,
ich kann per VBA Buttons auf anderen Blättern ansprechen und ausblenden, mit deinem Codewortlaut. Der Fehler liegt also nicht in deinem Code, sondern irgendwo anders.
Was macht dieses Call?
Call GoTo_Datasheets.Goto_Home
Da wir auch den Rest deiner Makros / deiner Datei nicht kennen, wird Hilfesehr schwer fallen .... upload ist möglich?
Grüße,
Klaus M.vdT.

AW: Ausblenden eines CommandButtons funktioniert nicht
19.06.2013 11:11:14
Beverly
Hi Jonas,
Zitat: P.s. Beim einblenden der Blätter erscheinen diese im Schnelldruchlauf auf dem Bildschirm. Lässt sich das abschalten? (Ich hoffe, man versteht, was ich meine)
Schalte die Bildschirmaktualisierung mit Application.ScreenUpdating = False zu Beginn deines Codes aus (und mit Application.ScreenUpdating = True am Ende wieder ein).

Anzeige
AW: Ausblenden eines CommandButtons funktioniert nicht
19.06.2013 11:19:24
Jonas
Danke. Klappt perfekt und dieses Problem ist somit gelöst.
Bleiben noch die hartnäckigen Buttons, die einfach nicht verschwinden wollen...

AW: Ausblenden eines CommandButtons funktioniert nicht
19.06.2013 11:14:42
Jonas
Upload ist leider nicht möglich.
Der Call ruft eine GoTo-Routine auf. Davon gibts es soviele, dass ich alle in ein Modul (GoTo_Datasheets) gelegt habe.
Dahinter verbirgt sich lediglich:
Sub Goto_Home()
Sheets("Home").Select
End Sub
Was ich komisch finde ist, dass es für den Button cbNewGoToAngebot auf dem Blatt Home (das durch den entsprechenden Call aufgerufen wird) perfekt funktioniert.

Anzeige
AW: Ausblenden eines CommandButtons funktioniert nicht
19.06.2013 11:30:33
Klaus
Hi Jonas,
ohne Upload kann man ja leider nur raten. Versuch doch mal das:
Private Sub cbManagerEinstieg_Click()
Application.ScreenUpdating = False
' Tabellen einblenden
Sheets("Datasheets_Front").Visible = True
Sheets("Data1").Visible = False
Sheets("Home").cbNewGoToAngebot.Visible = False
Sheets("Documentation").cbNewBeenden.Visible = False
Call GoTo_Datasheets.Goto_Home
Application.ScreenUpdating = True
End Sub
Es scheint ja vor Goto_Home alles zu klappen, also stell das einfach ans Ende ...
Grüße,
Klaus M.vdT.

AW: Ausblenden eines CommandButtons funktioniert nicht
19.06.2013 13:18:40
Jonas
Hallo Klaus,
leider hat das nicht funktioniert. Auch so wurde lediglich der erste Button ausgeblendet.
So. Beim Verfassen dieses Textes habe ich nochmal etwas an der Datei herum gespielt und siehe da, es hat funktioniert.
Ich muss dich aber enttäuschen, es hatte nichts mit deiner Code-Umstellung zu tun.
Die Buttons habe ich "kopiert" und wollte jetzt nochmal schauen, ob es unterschiedliche "Eigenschaften" gibt. Anscheinend hat das öfnnen der Eigenschaften jedes einzelnen Buttons dazu geführt, dass das Ansprechen via Makro jetzt funktioniert. Anders kann ich mir das nicht erklären :)
Leider habe ich schon wieder ein neues Problem, für das ich einen neuen Thread aufmachen muss.
Vielen Dank für eure Hilfe, Klaus und Karin
LG Jonas

Anzeige
Danke für die RÜ! mit Text
19.06.2013 13:20:30
Klaus
e Buttons habe ich "kopiert" und wollte jetzt nochmal schauen, ob es unterschiedliche "Eigenschaften" gibt. Anscheinend hat das öfnnen der Eigenschaften jedes einzelnen Buttons dazu geführt, dass das Ansprechen via Makro jetzt funktioniert. Anders kann ich mir das nicht erklären :)
Das ist ganz klar ein Fall für die Excel X-Akten!
Grüße,
Klaus M.vdT.

303 Forumthreads zu ähnlichen Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Anzeige
AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Einfügen und STRG+V funktioniert hier nicht mehr
Joachim

Hi,
ich habe auf einem sheet ein paar Buttons und möchte damit erreichen, das die Buttons, wenn ich in dem Sheet nach rechts scrolle, und ich auf das sheet klicke, dass sie sich immer innerhalb meines Monitors platzieren, also mitwandern:
Private Sub Worksheet_SelectionChange(ByVal Ta...
06.12.2008 21:34:12
Thread-ID: 1030749
8 Beiträge
Anzeige
Dateien auslesen funktioniert nicht mehr
Roland

Hallo VBA-Profis
ich lese mit untenstehendem Code alle zip-Dateien aus einem Verzeichnis aus. Ich habe das ganze auf einem Computer programmiert, auf dem Office 2000 installiert ist. Der ganze Code läuft einwandfrei.
Auf meinem anderen Computer, auf dem Office 2003 installiert ist, funk...
10.03.2009 11:10:53
Thread-ID: 1058528
3 Beiträge
Formel funktionieren nicht mehr!!`????
nino

Hallo, kann mir jemand sagen, was ich falsch gemacht habe?
Die formel funktionieren seit gestern nicht mehr! Bis gestern mitag ist alles gelaufen!?
Ich bedanke mich im Voraus! Nino.
Die Datei https://www.herber.de/bbs/user/60480.xls wurde aus Datenschutzgründen gelöscht
19.03.2009 23:30:43
Thread-ID: 1062003
7 Beiträge
To-Do Liste Code funktioniert nicht mehr? Wieso?
Jessi

https://www.herber.de/bbs/user/62106.xls
Hallo zusammen,
die oben gelinkte Datei sollte eigentlich beim Drücken des "START-BUTTONS" eine E-Mail versenden, sofern die Deadline überschritten wurde. Irgendwie funktioniert nichts? Woran kann das liegen? Dieser Code lief vor 2 Monaten in ei...
28.05.2009 19:15:48
Thread-ID: 1078037
6 Beiträge
CommandButton in UF via Array; nicht aktivierbar
Andreas

Hallo Herber Fans,
Ich habe heute entdeckt, OK, für die Profis unter Euch ist das sicherlich nicht neu, daß man UserForms mit Hilfe von Arrays erstellen kann. Es ist m.E. nach übersichtlicher und geht schneller. Gerade in der Verwendung von CheckBoxes und Optionbuttons.
Nun will ich auc...
03.06.2009 14:50:18
Thread-ID: 1078891
5 Beiträge
Code funktioniert nicht mehr
Roland

Hallo zusammen,
seit langem musste ich mal wieder ein Makro aufzeichnen und auch etwas schreiben.
Ich hab vor einiger Zeit schon mal was programmiert in Excel 2002.
Jetzt wollte ich diesen Code in Excel 2003 verwenden, dabei meldet mir Excel aber immer ein Fehler.
Genauer ge...
17.09.2009 19:26:56
Thread-ID: 1103685
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
2
1
7
2
2
6
5
4
4
2
4
3
6
2
4
7
4
4
2
4
3
3
1
3