Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bei Klick OptionButton - TextBox füllen

Forumthread: Bei Klick OptionButton - TextBox füllen

Bei Klick OptionButton - TextBox füllen
18.11.2008 18:20:00
Frank
Hallo Excelfreunde!!!
Für einen Unwissenden wie mich ein Problem, für euch sicher nicht. In einer UF befinden sich zwei OptionButton 1 und 2, bei Klick auf OptionButton1 soll in TextBox7 0,00 stehen und der Betrag in TextBox6 wird manuell eingetragen. Bei Klick auf OptionButton2 soll in TextBox6 0,00 stehen und der Betrag in TextBox7 wird manuell eingetragen. Wie löse ich das Problem!!
DANKE!!!
Gruß Frank H.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick OptionButton - TextBox füllen
18.11.2008 18:33:17
hary
Hallo Frank
versuch mal so.

Private Sub OptionButton1_Click()
TextBox7 = "0,00"
TextBox6 = ""
TextBox6.SetFocus
End Sub
Private Sub OptionButton2_Click()
TextBox6 = "0,00"
TextBox7 = ""
TextBox7.SetFocus
End Sub


Gruss Hary

AW: Bei Klick OptionButton - TextBox füllen
18.11.2008 18:58:00
Frank
Hallo Hary!!!
Danke, funzt Super!!!
Herzlichst Frank H.
Anzeige
;
Anzeige

Infobox / Tutorial

OptionButton und TextBox in Excel verknüpfen


Schritt-für-Schritt-Anleitung

Um die OptionButtons in einer UserForm (UF) so zu konfigurieren, dass sie beim Klicken die entsprechenden TextBoxen füllen, folge diesen Schritten:

  1. Erstelle eine UserForm:

    • Öffne den VBA-Editor (Alt + F11).
    • Füge eine neue UserForm hinzu.
  2. Füge zwei OptionButtons und zwei TextBoxen hinzu:

    • Platziere zwei OptionButtons (OptionButton1 und OptionButton2) und zwei TextBoxen (TextBox6 und TextBox7) auf der UserForm.
  3. Füge den folgenden VBA-Code ein:

    • Klicke doppelt auf den ersten OptionButton, um das Codefenster zu öffnen, und füge diesen Code hinzu:
    Private Sub OptionButton1_Click()
       TextBox7 = "0,00"
       TextBox6 = ""
       TextBox6.SetFocus
    End Sub
    • Klicke doppelt auf den zweiten OptionButton und füge diesen Code hinzu:
    Private Sub OptionButton2_Click()
       TextBox6 = "0,00"
       TextBox7 = ""
       TextBox7.SetFocus
    End Sub
  4. Teste die UserForm:

    • Schließe den VBA-Editor und starte die UserForm. Klicke auf die OptionButtons und überprüfe, ob die TextBoxen wie gewünscht gefüllt werden.

Häufige Fehler und Lösungen

  • Fehler: TextBox bleibt leer.

    • Lösung: Stelle sicher, dass der Code in den richtigen Subroutinen (OptionButton1_Click und OptionButton2_Click) platziert ist.
  • Fehler: Der Fokus springt nicht zurück zur TextBox.

    • Lösung: Überprüfe, ob der SetFocus Befehl korrekt eingesetzt ist.
  • Problem: Eingaben in den TextBoxen werden nicht übernommen.

    • Lösung: Stelle sicher, dass keine anderen Ereignisse oder Validierungen den Input der TextBoxen blockieren.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du auch die folgenden Methoden in Betracht ziehen:

  • Formeln verwenden: Nutze Excel-Formeln, um Werte in Zellen basierend auf Auswahlmöglichkeiten zu ändern.
  • Datenvalidierung: Verwende Dropdown-Listen mit Datenvalidierung, um die Benutzerauswahl zu steuern.

Diese Methoden bieten jedoch nicht die gleiche Flexibilität wie die Verwendung von VBA und der UserForm.


Praktische Beispiele

Ein typisches Beispiel für die Verwendung der OptionButtons könnte eine Anwendung zur Berechnung von Rabatten sein:

  • OptionButton1: "Rabatt 10%"

    • TextBox7 zeigt "10,00" an.
  • OptionButton2: "Rabatt 20%"

    • TextBox6 zeigt "20,00" an.

Hierbei kann der Benutzer manuell die Beträge in die jeweils andere TextBox eingeben.


Tipps für Profis

  • UserForm anpassen: Gestalte die UserForm ansprechend mit Farben und Layout, um die Benutzerfreundlichkeit zu erhöhen.
  • Error-Handling: Implementiere Error-Handling im VBA-Code, um die Anwendung robuster zu machen.
  • Zugänglichkeit: Stelle sicher, dass die UserForm auch für Menschen mit Behinderungen zugänglich ist, indem Du die Tab-Reihenfolge und Beschriftungen korrekt einstellst.

FAQ: Häufige Fragen

1. Wie kann ich mehrere OptionButtons in einer UserForm verwenden?
Du kannst einfach weitere OptionButtons hinzufügen und deren Click-Ereignisse entsprechend anpassen. Achte darauf, dass jeder Button eine eigene Subroutine hat.

2. Kann ich die TextBoxen auch mit Zahlen füllen?
Ja, Du kannst die TextBoxen mit numerischen Werten füllen. Stelle sicher, dass Du die richtigen Formatierungen einsetzt, um die Eingabe zu validieren.

3. Wie speichere ich die Eingaben aus der UserForm?
Du kannst die Werte der TextBoxen in Zellen speichern, indem Du den Code entsprechend anpasst, z.B. Range("A1").Value = TextBox6.Value.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige