Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Checkbox und Sprung | Herbers Excel-Forum


Betrifft: Checkbox und Sprung von: ing.grohn
Geschrieben am: 20.01.2010 20:58:00

Hallo Forum,

wie gelangt man aufgrund einer angeklickten Checkbox zu einer bestimmten Textbox ?
so wie: If CheckBox = true Then Goto TextBoxXY

Danke für eine Antwort
Mit freundlichen Grüßen
Albrecht

  

Betrifft: AW: Checkbox und Sprung von: Hajo_Zi
Geschrieben am: 20.01.2010 21:01:02

Hallo Albrecht,

TextboxXy.setfocus

GrußformelHomepage


  

Betrifft: AW: Checkbox und Sprung von: ing.grohn
Geschrieben am: 20.01.2010 21:15:38

Hallo Hajo,
wenn ich folgendes unter Checkbox schreibe:

Private Sub CheckBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CheckBox1.BackColor = alteFarbeC1
If CheckBox1.Value = True Then
   TextBox10.SetFocus
End If
End Sub
wird die nächste Checkbox zwar angesprungen (ich verlasse mit Tab), aber nicht die Textbox 10.
Was muß ich ändern?
MfG
Albrecht


  

Betrifft: AW: Checkbox und Sprung von: Hajo_Zi
Geschrieben am: 20.01.2010 21:17:57

Halo albrecht,,

ich sehe in Deinem Code nicht das die nächste Checkbox angesprungen wird.
Ich sehe Deine Datei auch nicht.

Gruß Hajo


  

Betrifft: AW: Checkbox und Sprung von: ing.grohn
Geschrieben am: 20.01.2010 21:32:55

Hallo Hajo,
ich keine checkbox anspringen, sondern eine Textbox mit der Nummer 10.
Aus Deinem Beitrag geht hervor, dass das mit
Textbox10.setfocus
geht.
Aber irgendwie doch nicht.
Warum brauchst Du für die Antwort meine Datei??
(kannste haben, kein Problem, aber wirklich nötig ist dieser Aufwand m. E. nicht)
Eine Antwort wäre nett.
MfG
Albrecht


  

Betrifft: AW: Checkbox und Sprung von: Hajo_Zi
Geschrieben am: 20.01.2010 21:36:17

Hallo Albrecht,

mit meinen Code wird die Textbox angesprungen, Du schreibst es wird die Checkbox angesprungen. Ich bin mir sicher das die Textbox angesprungen wird. Ich sehe keinen Grund das nachzubauen. Die Zeit hast Du schon investiert.

Gruß Hajo


  

Betrifft: AW: Checkbox und Sprung von: ing.grohn
Geschrieben am: 20.01.2010 21:45:01

Hallo Hajo,
so komm ich nicht weiter.
Ich wiederhole moch einemal:
Wenn ich unter der Checkbox1 folgenden Code eingebe:

Private Sub CheckBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
CheckBox1.BackColor = alteFarbeC1
If CheckBox1.Value = True Then
   TextBox10.SetFocus
   
End If
End Sub
wird die nächste Checkbox2 nicht mehr angesprungen, dafür die Übernächste:
Auf keinen Fall wird die Textbox10 berücksichtigt!

MfG
Albrecht


  

Betrifft: AW: Checkbox und Sprung von: Ramses
Geschrieben am: 20.01.2010 22:42:17

Hallo

warum nicht so

Private Sub CheckBox1_Click()
CheckBox1.BackColor = alteFarbeC1
If Me.CheckBox1 = True Then
    Me.TextBox10.SetFocus
End If
End Sub
Ganz abgesehen davon ist die Beispieldatei nötig, da wir nicht wissen welche sonstigen Codes sonst noch drin sind und sich allenfalls gegenseitig beeinflussen.

Gruss Rainer


  

Betrifft: AW: Checkbox und Sprung von: Rainer
Geschrieben am: 21.01.2010 00:56:46

Hallo,

bin selbst nur VBA-Laie und eigentlich Hilfesuchender, aber ...

müsste es nicht so funktionieren?

   If Me.CheckBox1 = True Then Me.TextBox10.Activate
Gruß Rainer


  

Betrifft: AW: Checkbox und Sprung von: ing.grohn
Geschrieben am: 21.01.2010 09:36:42

Hallo Ramses hallo Rainer,

ich lade die Userform hoch.

https://www.herber.de/bbs/user/67375.xls

Euer Tipp mit Me. hat nicht geholfen (hatte ich gedacht), Activate funktioniert nicht (Fehlermeldung)
Vielleicht weiß ja jemand was da falsch läuft.

Vielen Dank

Mit freundlichen Grüßen

Albrecht


  

Betrifft: AW: Checkbox und Sprung von: Tino
Geschrieben am: 21.01.2010 11:25:59

Hallo,
das Problem liegt daran das nach dem Tab schon der Sprung gemacht wurde auf das nächste Control.
Versuche es mal mit einem anderen Event und lösche das Exit - Event.

Beispiel:

Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
    KeyCode = 0
    CheckBox1.BackColor = alteFarbeC1
    If Me.CheckBox1.Value = True Then
       Me.TextBox10.SetFocus
    End If
End If
End Sub
Gruß Tino


  

Betrifft: AW: Checkbox und Sprung von: ing.grohn
Geschrieben am: 21.01.2010 11:48:12

Hallo Tino,
genau das ist es!!
Funktioniert so, wies soll!
Ich hab das checkbox if um else erweitert, um bei true zur nächsten Box zu kommen
Vielen vielen Dank
Mit freundlichen Grüßen
Albrecht


Beiträge aus den Excel-Beispielen zum Thema "Checkbox und Sprung"