Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Click-Ereignis für Checlbox nicht ausführen?

Click-Ereignis für Checlbox nicht ausführen?
01.02.2008 16:26:25
Jens
hallo liebe forums-gemeinde,
ich ängere über vba den wert für ein kontrollkästchen (steuerelement-toolbox). ändert sich dabei der status (true auf false oder false auf true), dann wird automatisch das click-ereignis für dieses kontrollkästchen aufgerufen.
lässt sich das irgendwie unterbinden?
d.h.: das click-ereignis soll nur aufgerufen werden, wenn das kontrollkästchen über das arbeitsblatt geklickt wird, aber nicht bei änderungen des wertes im vba-code.
hab bei meinen recherchen keine möglichkeit gefunden. vielleicht könnt ihr mir weiterhelfen.
vielen dank sagt
der jens

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Click-Ereignis für Checlbox nicht ausführen?
01.02.2008 16:45:56
Detlef
Hi,
poste mal den Code, der das Ereignis auslöst.
mfg Detlef

AW: Click-Ereignis für Checlbox nicht ausführen?
01.02.2008 17:08:48
Jens
hallo detlef,
hier der codeausschnitt:

Public Sub ShowAllCheckBoxes()
Dim oWks As Worksheet
Dim oOLEobj As OLEObject
On Error Resume Next
For Each oWks In ActiveWorkbook.Worksheets
For Each oOLEobj In oWks.OLEObjects
' show all checkboxes
If TypeName(oOLEobj.Object) = "CheckBox" Then _
oOLEobj.Object = True
Next oOLEobj
Next oWks
Set oWks = Nothing
Set oOLEobj = Nothing
End Sub


AW: Click-Ereignis für Checlbox nicht ausführen?
01.02.2008 17:22:17
Detlef
Hi,
ich geh mal davon aus, dass der Code in einem Standardmodul steht:
Public jetzt_nicht as Boolean

Public Sub ShowAllCheckBoxes()
Dim oWks As Worksheet
Dim oOLEobj As OLEObject
On Error Resume Next
jetzt_nicht = True
For Each oWks In ActiveWorkbook.Worksheets
For Each oOLEobj In oWks.OLEObjects
' show all checkboxes
If TypeName(oOLEobj.Object) = "CheckBox" Then _
oOLEobj.Object = True
Next oOLEobj
Next oWks
Set oWks = Nothing
Set oOLEobj = Nothing
jetzt_nicht = False
End Sub


In die Codes der Boxen dann am Anfang folgende Zeile am Anfan:
If jetzt_nicht Then Exit Sub
mfg Detlef

Anzeige
AW: Click-Ereignis für Checlbox nicht ausführen?
01.02.2008 17:22:10
Matthias
Hallo Jens,
an sich macht das ja Sinn, leider ist der Ereignis nicht durch Application.EnableEvents= False abschaltbar.
Du kannst es aber (etwas aufwendiger) so machen:
- In einem "normalen" Modul definierst du ganz oben vor den Przeduren eine globale Variable:

Public NOCLICK As Boolean


Die Prozedur (und alle, die den Checkbox-Wert ändern, aber kein OnClick-Ereignis auslösen wollen, änderst du auf diese Weise:


Public Sub ShowAllCheckBoxes()
Dim oWks As Worksheet
Dim oOLEobj As OLEObject
On Error Resume Next
NOCLICK = True '############ NEU
For Each oWks In ActiveWorkbook.Worksheets
For Each oOLEobj In oWks.OLEObjects
' show all checkboxes
If TypeName(oOLEobj.Object) = "CheckBox" Then _
oOLEobj.Object = True
Next oOLEobj
Next oWks
NOCLICK = False '############ NEU
Set oWks = Nothing
Set oOLEobj = Nothing
End Sub


Und in die ganzen OnClick-Prozeduren stellst du ganz am Anfang die Zeile If NOCLICK Then Exit Sub, also z.B. so:


Private Sub CheckBox1_Click()
If NOCLICK Then Exit Sub
MsgBox "CheckBox1 Klick!"
End Sub
Private Sub CheckBox2_Click()
If NOCLICK Then Exit Sub
MsgBox "CheckBox2 Klick!"
End Sub


Gruß Matthias

Anzeige
AW: Click-Ereignis für Checlbox nicht ausführen?
01.02.2008 18:46:18
Jens
hallo matthias und detlef,
danke für eure antworten, die ja im prinzip das gleiche vorschlagen. schade, dass es nicht ohne diesen nicht wirklich eleganten umweg geht. aber hauptsache es funktioniert! ;-)
danke nochmal für eure hilfe!
der jens

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox

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