Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
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
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie Umschaltfläche Active X

Wie Umschaltfläche Active X
15.08.2020 15:16:07
Robert
Hallo Ihr lieben Exelfreunde!
Ich habe ein Frage? Wie kann ich den Code der Umschaltfläche ActiveX in der Arbeitsmappe (Code) Seite unterbringen und verbinden. Die Umschaltung soll über mehrere Arbeitsblätter gleichzeitig funktionieren. Jetzt lande ich mit dem Code eintragen immer auf der Codeseite des jeweiligen Arbeitsblattes. Für die Arbeitsmappe gibt es ja kein Arbeitsblatt. Oder geht das nur auf einem Arbeitsblatt.
Danke für Eure Mühe
LG Robert

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie Umschaltfläche Active X
15.08.2020 15:35:36
Beverly
Hi Robert,
die ActiveX-Steuerelemente gelten für das jeweilig Tabellenblatt. Du kannst aber den ToggleButton auf den anderen Blättern denselben Zustand wie dem gedrückten ToggleButton zuweisen - vielleicht hilft dir das ja weiter. Nach diesem Prinzip:
Private Sub ToggleButton1_Click()
' ToggleButton auf Tabelle1
Range("A1") = Range("A1") + 1
Worksheets("Tabelle2").ToggleButton1 = ToggleButton1
Worksheets("Tabelle3").ToggleButton1 = ToggleButton1
Worksheets("Tabelle4").ToggleButton1 = ToggleButton1
End Sub

Anzeige
AW: Wie Umschaltfläche Active X
15.08.2020 16:07:31
EtoPHG
Hallo Robert,
Hast du denn jetzt EINEN und nur EINEN Togglebutton, der für alle Blätter gelten soll?
Oder auf jedem Arbeitsblatt JE EINEN ?
Wenn JA zur Frage 1, dann zeig mal den Code für den Button!
Gruess Hansueli
AW: Wie Umschaltfläche Active X
15.08.2020 16:20:00
Robert
Ich habe einen Button der über alle Arbeitsblätter laufen soll. Der hat sogar schon _ funktioniert. Habe die Arbeitsblätter um den Vorsatz Zentral erweitert und seit dem will es nur noch einzeln funktioniere 

Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value Then
.Caption = "Spalten einblenden"
Else
.Caption = "Spalten ausblenden"
End If
Worksheets("Zentral ABG Nord").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA, _
CH:CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral ABG Mitte").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA, _
CH:CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral ABG SO").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH: _
CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral L 1 A").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH: _
CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral L 1 B").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH: _
CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral L 2").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH:CH, _
CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("L 3").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH:CH,CO:CO,CV: _
CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral L 4").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH:CH, _
CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral L 5").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH:CH, _
CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral L 6 Nord").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA, _
CH:CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral L 6 Süd").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH: _
CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
Worksheets("Zentral Selbstabholer").Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA: _
CA,CH:CH,CO:CO,CV:CV,DC:DC,DJ:DJ,DQ:DQ,DX:DX,EE:EE,EL:EL,ES:ES,EZ:EZ,FG:FG ").EntireColumn.Hidden = .Value
End With
n.
Ich glaube einzeln auf jedem Arbeitsblatt würde es funktionieren.
Das Zentral ist für Drucken per Makro notwendig.
Vielen Dank für die Mühe
LG Robert
Anzeige
AW: Wie Umschaltfläche Active X
15.08.2020 17:02:43
EtoPHG
Hallo Robert,
Was du glaubst ist im Moment irrelevant!
Was du allerdings mit den Sätzen:
"Der hat sogar schon _ funktioniert. Habe die Arbeitsblätter um den Vorsatz Zentral erweitert und seit dem will es nur noch einzeln funktioniere ist mir schleierhaft.
Kannst du das mal ausdeutschen? Was heisst "...nur noch einzeln funktioniere"? Wie äussert sich das in der Darstellung der Spalten auf den verschiedenen Blätter?
Gruess Hansueli
AW: Wie Umschaltfläche Active X
15.08.2020 16:12:14
onur
Häääh?
Und wo willst du die Umschaltfläche unterbringen, wenn NICHT auf einem Arbeitsblatt ?
AW: Wie Umschaltfläche Active X
15.08.2020 16:22:23
Robert
Hallo Onur
Die Umschasltfläche auf das Arbeitsblatt ist schon klar, aber den Code in das (weiss nicht wie man es nennt) ins Codeblatt der Arbeitsmappe (eventuell Modul)
LG Robert
Anzeige
AW: Wie Umschaltfläche Active X
15.08.2020 16:25:32
onur
Soll der Code WIRKLICH über ALLE Blätter laufen?
AW: Wie Umschaltfläche Active X
15.08.2020 16:41:22
Robert
Wenn es geht ja. Oder wäre es besser alle betroffenen Arbeitsblätter einzeln zu bedienen. Bin nicht erfahren genug um dies zu beurteuilen.
LG Robert
AW: Wie Umschaltfläche Active X
15.08.2020 17:00:51
onur
Warum dann so kompliziert? 
Private Sub ToggleButton1_Click()
Dim i
ToggleButton1.Caption = "Spalten ausblenden"
If ToggleButton1 Then ToggleButton1.Caption = "Spalten einblenden"
For i = 1 To ThisWorkbook.Worksheets.Count
With ThisWorkbook.Worksheets(i)
.Range("P:P,W:W,AD:AD,AK:AK,AR:AR,AY:AY,BF:BF,BM:BM,BT:BT,CA:CA,CH:CH, CO:CO, CV: _
CV, DC:DC, DJ:DJ, DQ:DQ, DX:DX, EE:EE, EL:EL, ES:ES, EZ:EZ, FG:FG").EntireColumn.Hidden = ToggleButton1.Value
End With
Next i
End Sub

Anzeige
AW: Wie Umschaltfläche Active X
15.08.2020 17:13:31
Werner
Hallo,
und wieder fehlende Detail-Infos. 
Private Sub ToggleButton1_Click()
Dim i As Long, raWeg As Range, ws As Worksheet
For i = 16 To 137 Step 7
If raWeg Is Nothing Then
Set raWeg = Cells(1, i)
Else
Set raWeg = Union(raWeg, Cells(1, i))
End If
Next i
With ToggleButton1
If .Value Then
.Caption = "Spalten einblenden"
Else
.Caption = "Spalten ausblenden"
End If
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Zentral*" Then
With ws
.Range(raWeg.Address).EntireColumn.Hidden = ToggleButton1.Value
End With
End If
Next ws
End With
End Sub
Der Code gehört ins Codemodul des Tabellenblattes, auf dem sich dein ToggleButton befindet.
Gruß Werner
Anzeige
AW: Wie Umschaltfläche Active X
15.08.2020 16:25:45
Matthias
Hallo,
Die Umschaltung soll über mehrere Arbeitsblätter gleichzeitig funktionieren.
was heißt das denn?
Der Grund ist hier wichtig! Es weiß ja niemand was Du bezweckst.
Es könnte also ausreichend sein den Zustand True/False zu prüfen wenn Du ein Blatt anklickst.
In DieseArbeitsmappe: 
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
mach_was
End Sub
In ein Modul z.B. Modul1: 
Option Explicit
Sub mach_was()
If Tabelle1.ToggleButton1 Then MsgBox Tabelle1.ToggleButton1.Value
End Sub
Das ToggleButton1 befindet sich auf Tabelle1

In Tabelle1: 
Option Explicit
Private Sub ToggleButton1_Change()
If ToggleButton1 Then mach_was
End Sub
Gruß Matthias
Anzeige
AW: Wie Umschaltfläche Active X
16.08.2020 11:36:43
Robert
Ich möchte mich ganz herzlich bei Euch für Eure Hilfe bedanken. Einige gängige Lösungen erhalten. Muss nun sehen, welche ich nehme.
Vielen Dank und
LG Robert
AW: Wie Umschaltfläche Active X
16.08.2020 11:36:45
Robert
Ich möchte mich ganz herzlich bei Euch für Eure Hilfe bedanken. Einige gängige Lösungen erhalten. Muss nun sehen, welche ich nehme.
Vielen Dank und
LG Robert

13 Forumthreads zu ähnlichen Themen

Active X Steuerelemete
Pepi

Hallo zusammen
Ich habe eine Exceltabelle mit vielen Active-X-Steuerelementen
Diese Exceltabelle wird je nach Person in Excel 2003, 2007 und 2010 verwendet (manchmal auch nach "*.xls" zurückkonvertiert.
Es kommt gelegentlich vor, dass die Active-x-elemente durch irgendwelche Aktione...
14.07.2011 16:36:21
Thread-ID: 1222191
2 Beiträge
Anzeige
Active X & Formular
Andrea

Hallo an Alle,
ich habe mal eine Frage zu dem oben genannten Thema:
ich habe ein Makro programmiert, welches mir sämtliche Zellen von verschiedenen Tabellenblättern auf ein Tabellenblatt kopiert. Dieses Makro habe ich immer über Makro ausführen gestartet. Um es dem Benutzer freundlich z...
16.10.2013 15:55:51
Thread-ID: 1334615
7 Beiträge
Active X Drehfeld /bildlaufleiste
Matthias

Hallo Spezies,
gibt es eine Möglichkeit, eigene Formular/Active X Elemente zu erstellen.
Die von XL zur Verfügung gestellten sehen ja nun gar nicht mehr Zeitgemäss aus.
Selbst die Zoomleiste rechts unten ist schöner.
Es geht zwar, etwas aus einer Linie und einem Kreis zusammenzu...
08.09.2014 10:06:26
Thread-ID: 1380411
3 Beiträge
Anzeige
Dropdown Verhalten Active X Element
Lisa

Hallo zusammen
Ich habe in Excel Sheet ein ActiveX Steuerelement Combobox1 zu dem eine Liste hinter liegt.
Aus dem Dropdown Menü kann ich hier eine Auswahl treffen.
Das Verhalten des offenen Auswahlmenüs aus der Combobox ist aber nicht schön, da,
wenn ich es über den Dropdownpfe...
03.09.2015 16:00:54
Thread-ID: 1445845
4 Beiträge
Active X Elemente Backcolor Black
Tom

Hallo liebe Community,
ich hab in meinem Excel ActiveX-Elemente (Checkboxes) eingebaut und mit Makros hinterlegt.
Wenn Kollegen dieses Excel aufrufen (alle Makros standardmäßig erlaubt), werden alle diese Checkboxes komplett schwarz hinterlegt, man sieht den Text nicht mehr, nur noch di...
04.12.2015 08:32:16
Thread-ID: 1462282
3 Beiträge
Active X
Andy

wie kann ich eine Active x Applikation in Excel2000 einbinden mit der ich Daten direkt in eine Exceltabelle schreiben kann
22.08.2002 09:25:37
Thread-ID: 151418
3 Beiträge
Problem mit Active X Data Comp - NICHT VORHANDEN
Markus
Hallo,
folgendes Problem: ich habe ein Makro mit SQL Zugriff und ADO, das auf einigen Rechner läuft, auf andere wieder nicht. Da geht es schon beim Start los mit "Bibliothek nicht gefunden". Wenn ich bei den Rechner wo es nicht läuft in der VBA-Umgebung auf Verweise klicke ist das einzig auffäll...
19.01.2004 08:50:10
Thread-ID: 366072
2 Beiträge
Active X l Dll ansprechen
Jochen
Hallo Gemeinde,
kann man eine Active X DLL auch anders ansprechen als mit
Dim Variable As New clsMeineDLL ?
Bei dieser Variante muss ja ein Verweis gesetzt sein.
Ist vielleicht eher eine Frage für ein VB- Forum, aber hier
sind ja reichlich Experten im Forum.
Grüße Jochen
09.02.2004 22:50:40
Thread-ID: 379400
4 Beiträge

Links zu Excel-Dialogen

ToggleButton

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