Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
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
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.EnableEvents & userform

Application.EnableEvents & userform
26.05.2009 10:51:20
Axel
Hallo Freunde,
für die Aktivierung meiner CheckBoxen 5...8 habe ich jeweils, also 4x angepasst, folgenden Code gestrickt, hier nur für CheckBox5 meiner CheckBoxen 5...8:

Private Sub CheckBox5_Click()
Application.EnableEvents = False
'Application.Wait (Now + TimeValue("0:00:01"))
For i = 5 To 8
Controls("Checkbox" & i).Value = False
Next i
CheckBox5.Value = True
FlowEinheit = "mmm_s"
Application.EnableEvents = True
End Sub


Mein Problem ist, das der Code EnableEvents = false scheinbar nicht erkannt wird: jedes mal, wenn der Code in die Zeile Controls("Checkbox" & i) kommt, verlässt er dieses Subroutine und springt er erneut in die Privat Sub CheckBox5_Click(). Wie kann das sein?
Danke für Hilfe!
Gruß,
Axel

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.EnableEvents & userform
26.05.2009 10:56:42
Hajo_Zi
Hallo Ael,
ist Dein Konzept nicht falsch?
Laut Deinem Code kann die CheckBox5 niemals abgewählt werden.

AW: Application.EnableEvents & userform
26.05.2009 12:43:43
Axel
Hallo Hajo,
nun, ich kann die CheckBox5 in diesem Sub nicht abwählen, richtig.
Mein Konzept ist, dass ich für alle 4 CheckBoxen (5...8) jeweils eines dieser Makros habe, die dann alle CheckBoxen false setzten und eben nur diejenige auf true, die gerade angeklickt wird. Auf diese Weise wird CheckBox5 immer dann abgewählt, wenn 6,7 oder 8 angewählt wird und umgekehrt.
Das gleiche Makro für CheckBox6 würde also so aussehen:

Private Sub CheckBox6_Click()
Application.EnableEvents = False
'Application.Wait (Now + TimeValue("0:00:01"))
For i = 5 To 8
Controls("Checkbox" & i).Value = False
Next i
CheckBox6.Value = True
FlowEinheit = "mmm_h"
Application.EnableEvents = True
End Sub


Anzeige
AW: Application.EnableEvents & userform
26.05.2009 13:01:14
Rudi
Hallo,
1. EnableEvents ist in Userforms wirkungslos.
2. Warum nimmst du keine Optionbuttons?
Gruß
Rudi
AW: Application.EnableEvents & userform
26.05.2009 14:50:42
Axel
Hallo Rudi,
ich habe über die OptionButtons nachgedacht. Aber mein Problem ist, dass ich zwei verschiedene Einheiten damit auswählbar machen will: das eine ist eine Temperatur, 2xOptionButton für Wahl zwischen Kelvin/Celsius, das andere ist ein Volumenstrom, 4xOptionButton für Wahl zwischen m³/h, m³/s, m³n/h, m³n/s.
Wie stelle ich also die 2 OptionButton der Temperatur ein, dass sie zwischen K/°C hin- und herspringen, die 4 OptionButton des Volumenstromes aber unberührt lassen und umgekehrt?
Gruß Axel
Anzeige
AW: Application.EnableEvents & userform
26.05.2009 14:51:05
Axel
Hallo Rudi,
ich habe über die OptionButtons nachgedacht. Aber mein Problem ist, dass ich zwei verschiedene Einheiten damit auswählbar machen will: das eine ist eine Temperatur, 2xOptionButton für Wahl zwischen Kelvin/Celsius, das andere ist ein Volumenstrom, 4xOptionButton für Wahl zwischen m³/h, m³/s, m³n/h, m³n/s.
Wie stelle ich also die 2 OptionButton der Temperatur ein, dass sie zwischen K/°C hin- und herspringen, die 4 OptionButton des Volumenstromes aber unberührt lassen und umgekehrt?
Gruß Axel
AW: Frame oder Groupname
26.05.2009 14:56:00
Daniel
Hi
du hast 2 möglichkeiten:
- entweder FRAMEs in die Userform mit aufnehmen und alle Optionbuttons, die zusammengehören, in den gleichen Frame schieben
- in der Eigenschaftsliste allen OptionButtons, die zusammengehören den gleichen "GroupName" vergeben.
Gruß, Daniel
Anzeige
...so werde ich's machen. DANKE ALLEN!!! (oT)
26.05.2009 15:46:54
Axel
-
AW: noch besser ist Listbox statt Optionbuttons
26.05.2009 15:58:12
Daniel
Hi
anstelle der Optionbuttons kann man auch Listboxen verwenden (eine pro Optionbuttongruppe).
die Listbox kann man per .ListStyle-Eigenschaft und mit .Multiselect = Single so hintrimmen, daß sie wie eine ansammlung von Optionbuttons aussieht und auch so verwendbar ist.
Vorteil an der Sache ist, daß egal vieviele Optionbuttons man verwenden will, man immer nur ein Steuerelement benötigt, was die Programmierung und die Abfrage wesentlich erleichtert.
Gruß, Daniel
AW: Application.EnableEvents & userform
26.05.2009 11:01:24
{Boris}
Hi Axel,
arbeite mit einer globalen Boolschen Variablen, die Du - je nach Bedarf - auf True oder False stellst und zu Beginn der Prozedur abfragst.
Grüße Boris
Anzeige
AW: Application.EnableEvents & userform
26.05.2009 16:27:53
Gerd
Hallo Alex!
so ?

Private Sub CheckBox5_Change()
Nix_oder_Eines_aus_5_bis_8
End Sub




Private Sub CheckBox6_Change()
Nix_oder_Eines_aus_5_bis_8
End Sub




Private Sub CheckBox7_Change()
Nix_oder_Eines_aus_5_bis_8
End Sub




Private Sub CheckBox8_Change()
Nix_oder_Eines_aus_5_bis_8
End Sub




Private Sub Nix_oder_Eines_aus_5_bis_8()
Dim i As Integer
With ActiveControl
If .Name Like "CheckBox[5-8]" Then
For i = 5 To 8
If Not .Name = Controls("CheckBox" & i).Name Then
If .Value = True Then Controls("Checkbox" & i).Value = False
End If
Next
End If
End With
End Sub


Gruß Gerd

Anzeige

46 Forumthreads zu ähnlichen Themen

Application.EnableEvents Problemchen
Sven

Hallo,
ich öffne mittels eines Makros eine andere Datei in der durch 'workbook_open' automatisch eine Userform gestartet wird.
ich will aber nicht, dass diese sich initialisiert und habe deshalb folgenden Code verwendet der die Ausführung von Makros verhindert:
Application.EnableE...
29.10.2008 13:37:26
Thread-ID: 1020271
8 Beiträge
Anzeige
Frage zu Application.EnableEvents/Worksheet_Change
Holger,

Hallo,
eine kurze Frage.
Wenn Application.EnableEvents auf False gesetzt wird,
tritt das Worksheet_Change Ereignis nicht in Kraft.
Ist das soweit richtig?
Hintergrund meiner Frage:
Ich will im Worksheet Change Ereignis einen Code hinterlegen.
Allerdings werden bei Ei...
05.01.2011 14:48:12
Thread-ID: 1194049
5 Beiträge
Application.EnableEvents wieder einschalten
Peter

Guten Tag
In einem Workbook habe ich folgendes Workbook_BeforeClose Event:
Privat Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False Application.EnableEvents = False Call BereicheDefinieren Call xSpeichern Application.DisplayAlerts = True Application.EnableE...
11.07.2012 12:51:30
Thread-ID: 1270597
3 Beiträge
Anzeige
Application.EnableEvents = False geht nicht
Laser
Hallo Leute
Mein Code hat funktioniert und auf einmal kommt wieder eine meldung.
Ich Kopier mittels Code 2 tabellen in eine Vorlagendatei, dort bringt er eine meldung ob ich den definierten namen übernhemen will.
Muss ich mit ja beantworten, ich hatte das ganze mit Application.EnableEve...
04.01.2015 22:17:06
Thread-ID: 1400779
3 Beiträge
VBA - Application.EnableEvents
WalterK

Hallo zusammen,
mit Application.EnableEvents = False können verschiedene Ereignissteuerungen
von Excel ausgeschaltet werden, z.B.:
Workbook_BeforeSave
Workbook_BeforePrint
Workbook_BeforeClose
Gibt es noch weitere Steuerungen die damit ausgeschaltet werden können?
Gi...
18.09.2017 18:24:17
Thread-ID: 1581122
9 Beiträge
VBA IF "Dateipfad = false then
Mario

Guten Tag
Habe noch ein Problem mit meiner Excel Liste und habe leider keinen plan xD
und zwar:
habe derzeit die AktiveWorkbook.ReadOnly abfrage drinnen und möchte zusätzlich abchecken ob die Datei in den von mir Vorgegebenen Dateipfad liegt ( falls möglich ohne Filenamen sondern nu...
21.10.2017 17:51:29
Thread-ID: 1587172
8 Beiträge
Application.EnableEvents
niclaus

Grüezi zusammen
Ich führe in einer xlsm-Datei folgendes Makro aus, das in einem Modul angelegt ist:
Sub AppEnEv_aus() Application.EnableEvents = False End Sub
Nun möchte ich, dass beim Speichern dieser Datei Application.EnableEvents automatisch auf True gesetzt wird. Naheliegend wä...
09.11.2018 13:36:44
Thread-ID: 1656453
9 Beiträge
Application.EnableEvents
Felix

Hallo,
habe bei dem folgenden Code von Hajo aus der Recherche ein Problem:
Bei Löschbefehl (nicht einzelne Zelle) sondern z.B. A1:Z50
stellt sich Application.EnableEvents auf False.Wie kann ich das verhindern?Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =...
21.01.2003 19:35:07
Thread-ID: 207154
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox OptionButton

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
7
4
4
2
3
2
8
7
8
4
2
10
6
5
3
2
7
2
3
5
6
9
7
7
4