Enterereignis nur durch User auslösen lassen
18.05.2005 13:31:44
Vliegen
Hab mal wieder ein vermutlich einfaches Problem dass ich aber nicht gelöst bekomme...
Habe auf UF ein Multipage und ein Spreadsheet (mit mehreren Blättern). Je nach ausgewählter Page wird jeweils ein bestimmtes Spreadsheetblatt angezeigt. Ich löse diesen Spreadsheetblattwechsel über die Ereignisse Enter und Change des Multipage aus. Das klappt eigentlich gut. Hat aber einen Hacken. Denn auf den Pages sind ComboBoxen und Textfelder und sobald sich auf dem Multipage irgendwo etwas ändert wird das Change Ereignis ausgelöst. Also auch wenn eine des der CBs oder TBs verändert wird. Das Problem dabei ist dass der Rechner dann auch bestimmte andere Arbeitsgänge startet die ich aber nicht immer wünsche. Per Debugg und Haltpunkte habe ich festgestellt dass er dann jedesmal erst einmal auf dem jeweiligen Page diejenige CB oder TB aktiviert die in der Aktivierreihenfolge als erstes liegt. Wieso ist das so. Das führt nämlich in diesem Eingabefeld zu einem Auslösen des Enterereignisses welches wiederum ein Makro steuert das eigentlich nur dann laufen soll wenn der User das Eingabefeld selbst aktiviert hat aber nicht bei jedem change.
Könnte ich dem Enter-Code in diesem Eingabefeld eine selektive Bedingung zufügen damit das Makro nur ausgeführt wird wenn der User selber das Feld aktiviert hat aber nicht durch ein Changeereignis des Multipages.
Hoffe ihr versteht meine Frage. Gebe sonst gerne weitere Auskünfte.
Vielen dank !
Gruss,
François Vliegen
Was müsste dieser Beispielcode zusätzlich aufweisen ? Muss da irgendeine Boolean deklariert werden ?
Sub CB1_Enter
With Me
If .CB1 wurde aktiviert von User
Then
'was dann geschehen soll
'xxx
Else
Exit Sub
End If
End With
End Sub