Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Viele Commandbutton auf mehreren MulipageSeiten abfragen

Forumthread: Viele Commandbutton auf mehreren MulipageSeiten abfragen

Viele Commandbutton auf mehreren MulipageSeiten abfragen
18.08.2024 15:23:44
TGFVVF
Hallo Zusammen

Habe eine Multipage mit mehreren Seiten. Darin befinden sich über hundert Commandbutton. Gibt es eine Möglichkeit über ein Klassenmodul oder ähnliches abzufragen welcher Button gedruckt wurde?

Vielen Dank für die Hilfe.
Gruß
Thomas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Viele Commandbutton auf mehreren MulipageSeiten abfragen
18.08.2024 15:36:31
TGFVVF
Hab noch vergessen zu sagen das diese Buttons in verschiedenen Frames auf den Multipage Seiten sind.!
AW: Viele Commandbutton auf mehreren MulipageSeiten abfragen
18.08.2024 16:02:12
Alwin Weisangler
Hallo Thomas,

Klassenmodul: cls_CommandButtons 


Option Explicit

Private WithEvents cobjCommandButton As MSForms.CommandButton



Friend Property Set prpSetButton(ByVal objCommandButton As MSForms.CommandButton)

   Set cobjCommandButton = objCommandButton

End Property



Private Sub cobjCommandButton_Click()

    MsgBox cobjCommandButton.Name

End Sub


Userform: 



Option Explicit

Private objCommandButton() As cls_CommandButtons



Private Sub UserForm_Activate()

    Dim objControl As Control

    Dim intIndex As Integer

    For Each objControl In Controls

        If TypeOf objControl Is MSForms.CommandButton Then

            intIndex = intIndex + 1

            ReDim Preserve objCommandButton(1 To intIndex)

            Set objCommandButton(intIndex) = New cls_CommandButtons

            Set objCommandButton(intIndex).prpSetButton = objControl

        End If

    Next

End Sub

Das sollte für deine Zwecke ausreichend sein.

Gruß Uwe
Anzeige

Forumthreads zu verwandten Themen

drucken-seitenränder
Wolfgang

Guten morgen
mein problem
ich habe die seitenränder auf 1.5 eingestellt, die tabelle passt dann auf eine seite
die datei wird dann per vba(dank eurer hilfe) gespeichert.
rufe ich sie dann auf sind die seitenränder wieder auf der grundeinstellung
und dann passt die tabelle...
27.09.2008 09:32:05
Thread-ID: 1012784
4 Beiträge
Anzeige
Diagramm über mehrere Seiten drucken
Heiko

Hallo,
ich möchte ein großes Diagramm (ca. 1.000 Säulen) über mehrere Seiten ausdrucken ohne mehrere Einzeldiagramme daraus zu machen.
Hat jemand einen Tip?
Danke
Heiko
16.10.2008 11:37:00
Thread-ID: 1016806
3 Beiträge
Zusammenfassung sheets auf einer Seite, ohne Leerz
gerdi

Hallo,
ich möchte aus verschiedenen Excel-Sheets (Tabs) eine Zusammenfassung
aller benutzten Zeilen haben.
Es gibt z.B. 10 verschiedene Tabellen, eine heißt Berlin, andere Rom, ect. und
auf jeder Tabelle sind zu verschiedenen Zeiten andere Inhalte.
Z.b. sind heute 10 Zeilen...
18.11.2008 14:36:00
Thread-ID: 1025647
3 Beiträge
Anzeige
Wie kann man Makros auf einer html-Seite aktiviere
Nicola

Hallo
Ich habe eine Exceltabelle, bei der eine Suchfunktion als Makro eingebaut ist. Doch ich kann das Makro nicht mehr öffnen, sobald ich sie als htm/html-Datei abspeichere.
Grüße Nicola
24.11.2008 22:18:34
Thread-ID: 1027502
3 Beiträge
Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
2 Sheets auf einer Seite!??
Timmy

Liebe Excler,
ich moechte folgendes erreichen.
Und zwar habe ich Daten auf einem Spreadsheet, die ich unabhaengig voneinander bearbeiten will.
Ich habe eine Beispieldatei angehaengt und etwas dazu erlautert...
https://www.herber.de/bbs/user/59047.xls
Ich hoffe, ich habe es...
03.02.2009 19:43:19
Thread-ID: 1046763
3 Beiträge
Anzeige
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Anzeige
Zeichenfolge auf 2 Zellen aufteilen
reiner

hallo Leute,
in einer Tabelle sind in Spalte L Telefonnummern gespeichert in der Form: "555555" bzw. "030/66666";
also mit oder ohne deutsche Vorwahlnummer in jeder beliebigen Zeichenlänge.
Ich will die Zeichenfolge auftrennen; in 1 Spalte sollen nur die Vorwahlnummern und in der 2....
03.03.2011 09:09:13
Thread-ID: 1203976
6 Beiträge
Spaltenüberschrift auf jeder Seite drucken
Pit

Hallo zusammen,
ich habe ein Problem mit der Spaltenüberschirft.
In meiner Excel - Tabelle habe ich Spaltenüberschriften (A1:K1) vergeben. Die Tabelle zieht sich über mehrere Seiten (es werden wohl ca. 100 Seiten werden). In Excel selbst habe ich mir die Spaltenüberschrift fixiert, so d...
03.03.2011 14:42:26
Thread-ID: 1204064
3 Beiträge
Anfang/Ende von Tabellen auf einem Arbeitsblatt
Tabellen

Hallo,
ich möchte gerne ein Makro haben, das mir die Anfangs- und Endwerte verschiedener Tabellen, auf einen Tabellenblatt, ausgibt.
Habe schon in älteren Beiträgen gesucht, aber leider nichts passendes gefunden.
Hier eine Beispieldatei:
https://www.herber.de/bbs/user/74134.xls<...
26.03.2011 15:37:32
Thread-ID: 1207710
5 Beiträge
2 Seiten getrennt drucken?
haribo

Also ich habe folgendes Problem, dass auch in WinWord besteht.
Ich will 2 Seiten drucken, und zwar eine Vorder- und eine Rückseite. Bisher musste ich Drucken Seite 1 OK dann warten bis gedruckt, Blatt umgekehrt einlegen Drucken Seite 2 OK. Nachdem mir dies ab zu blöd ist, habe ich mir gedach...
23.05.2002 14:04:35
Thread-ID: 123104
5 Beiträge
Positionen über mehrere Seiten zählen
Wolfgang

Hallo,
in einer Mappe können sich unterschiedlich viele Tabellen, mit gleichem Format, befinden. Wie kann ich erreichen, dass über alle Tabellen -außer Tabelle "Daten"- folgendes zusammengezählt wird:
Begriff in Tabelle Daten "F12". Gezählt und in "E12" ausgewiesen werden soll in allen...
20.12.2011 20:57:22
Thread-ID: 1243077
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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