aktivieren ChekBox per Makro

14/10/2009 - 11:26 von Tate | Report spam
Hallo liebe NG's,
ich habe eine Mappe mit mehreren CheckBoxes und Eingabefelder.
Bei Erfassung wird mit TAB-Taste navigieren.
Es werden nur die Eingabefleder (Zellen) aktiviert, keine
CheckBoxen!!

dann habe ich mit VBA Makro versucht :
-ich habe ich eine Range - mit Feldfolge.
- es wird festgestellt was für Feld ist jetzt aktiv, und welches Feld
soll als nàchstes aktiviert werden.

Also, z. B. als nàchstes Feld ist 'CheckBox5'
dann hàtte ich gerne
ActiveSheeet(ChName).SetFocus

hier ChName hat Wert "CheckBox5". Es funktioniert aber nicht.

Dim ch as CheckBox
Set ch = ActiveSheet.OLEObjects(chName).Object
ch.SetFocus
das funktioniert auch nicht.

Hat jemand eine Idee?
Dank im Voraus
Tate
 

Lesen sie die antworten

#1 Andreas Killer
14/10/2009 - 12:15 | Warnen spam
On 14 Okt., 11:26, Tate wrote:

ich habe eine Mappe mit mehreren CheckBoxes und Eingabefelder.
Bei Erfassung wird  mit TAB-Taste navigieren.
Es werden nur die Eingabefleder (Zellen) aktiviert, keine
CheckBoxen!!


Das ist ein normales Verhalten.

dann habe ich mit VBA Makro versucht :
-ich habe ich eine Range - mit Feldfolge.
- es wird festgestellt was für Feld ist jetzt aktiv, und welches Feld
soll als nàchstes aktiviert werden.


Die Erkennung welche Checkbox aktiviert werden müsste ist nur die
halbe Miete.

Also, z. B. als nàchstes Feld ist 'CheckBox5'
dann hàtte ich gerne
    ActiveSheeet(ChName).SetFocus


Starte den Makrorekorder, klicke auf eine Checkbox, stoppe den
Makrorekorder und Du erhàlst:
ActiveSheet.Shapes("CheckBox1").Select

Hat jemand eine Idee?


Du musst auch bedenken das Du bei einem TAB auf der aktiven Checkbox
die nàchste Zelle im sichtbaren Bereich außerhalb der Checkbox
ermitteln und anspringen musst. Das ist dann der 2te Teil der Miete.

Andreas.

Ähnliche fragen