Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text einfügen wenn Optionsfeld aktiviert wird

Forumthread: Text einfügen wenn Optionsfeld aktiviert wird

Text einfügen wenn Optionsfeld aktiviert wird
19.06.2008 19:53:00
leo
Hallo Freunde,
leider habe ich so gut wie keine Ahnung in VBA, deshalb hoffe ich ihr könnt mir helfen.
Ich habe in meiner Excelvorlage zwei Optionsfelder ("ja" = Optionbutton1 und "nein" = Optionbutton2). Wenn "ja" aktiviert wird, soll in Zelle B42 ein bestimmter Text erscheinen, z.B. "xyz" und in B43 "abc".
Gleichzeitig soll in F42 eine "1" erscheinen, die für weitere Berechnungen relevant ist.
Wird "nein" aktiviert, dann soll eben nichts auftauchen, weder in B42, noch in B43 oder F42.
Ich bin mir sicher, dass es für euch ein Klaks ist, aber für mich ist es doch schon eine Herausforderung.
Ich danke im Voraus für eure Hilfe.

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text einfügen wenn Optionsfeld aktiviert wird
19.06.2008 20:09:51
Gerd
Hallo Leo!
'OptionButtons aus der Steuerelemente-Toolbox
'Ins Tabellenblattmodul

Private Sub OptionButton1_Click()
Cells(42, 2) = "xyz"
Cells(43, 2) = "abc"
Cells(42, 6) = 1
End Sub



Private Sub OptionButton2_Click()
Cells(42, 2) = ""
Cells(43, 2) = ""
Cells(42, 6) = ""
End Sub


Gruß Gerd

Anzeige
AW: Text einfügen wenn Optionsfeld aktiviert wird
19.06.2008 20:11:00
Matthias
Hallo leo
Sollte so funktionieren:
Option Explicit

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Range("B42").Value = "xyz"
Range("B43").Value = "abc"
Range("F42").Value = 1
End If
End Sub



Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Range("B42").ClearContents
Range("B43").ClearContents
Range("F42").ClearContents
End If
End Sub


Gruß Matthias

Anzeige
AW: Text einfügen wenn Optionsfeld aktiviert wird
19.06.2008 20:20:52
leo
PERFEKT!!
Vielen Dank an euch alle.
Die Idee von Josef Ehrensberger gefällt mir auch sehr gut, weil ohne VBA.
Eine weitere Frage hätte ich noch:
Ich habe in Zelle F21 "Aktion" stehen und daneben die Optionsbuttons (dank eurer Hilfe funktionstüchtig ;-). -Habe es so gemacht, weil es meines Erachtens nach am einfachsten ist.-
Es wäre super, wenn man den Eintrag in F21 und die Optionsbuttons auf dem Ausdruck nicht sehen würde. Ist sowas kompliziert? Hätte jemand von euch die Güte, mit dabei noch behilflich zu sein?
@Josef Ehrensberger: Ist das "unsichtbar machen auf dem Ausdruck" auch in deinem Vorschlag möglich?
Erneut vielen Dank.

Anzeige
@Josef Ehrensberger
19.06.2008 20:32:00
leo
Habe soeben selber entdeckt, dass wenn ich "Aktion" in ein Textfeld einfüge, dann kann ich in den Eigenschaften "Objekt drucken" deaktivieren.
Es wäre dennoch schön zu wissen, wie der Code in VBA aussehen würde.

AW: @Josef Ehrensberger
19.06.2008 20:36:35
Josef
Hallo Leo,
das kannst du auch bei den Optionsfeldern einstellen, und die Zelle mit "Aktion" kannt du mit dem Benutzerdefinierten Format ";;;" ebenfalls "unsichtbar" machen.

Gruß Sepp



Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Text einfügen, wenn Optionsfeld aktiviert wird


Schritt-für-Schritt-Anleitung

Um in Excel Text einzufügen, wenn ein Optionsfeld aktiviert wird, kannst Du entweder VBA verwenden oder eine einfache Lösung ohne Programmierung wählen. Hier ist die Schritt-für-Schritt-Anleitung für beide Methoden:

VBA-Methode:

  1. Öffne Deine Excel-Datei und gehe zum Reiter "Entwicklertools".
  2. Füge zwei Optionsfelder (OptionButton1 für "ja" und OptionButton2 für "nein") aus der Steuerelemente-Toolbox in das Arbeitsblatt ein.
  3. Klicke mit der rechten Maustaste auf das Arbeitsblatt-Tab und wähle "Code anzeigen".
  4. Füge den folgenden VBA-Code ein:
Private Sub OptionButton1_Click()
    Cells(42, 2) = "xyz"
    Cells(43, 2) = "abc"
    Cells(42, 6) = 1
End Sub

Private Sub OptionButton2_Click()
    Cells(42, 2) = ""
    Cells(43, 2) = ""
    Cells(42, 6) = ""
End Sub
  1. Schließe den VBA-Editor und teste die Optionsfelder.

Alternative Methode ohne VBA:

  1. Setze die Optionsfelder wie oben beschrieben.
  2. Verwende die Funktion WENN in den Zellen, um den Text basierend auf dem gewählten Optionsfeld zu steuern. Zum Beispiel in Zelle B42:
=WENN(OptionButton1.Value; "xyz"; "")

In Zelle B43:

=WENN(OptionButton1.Value; "abc"; "")

In Zelle F42:

=WENN(OptionButton1.Value; 1; "")

Häufige Fehler und Lösungen

  • Fehler: Die Optionsfelder funktionieren nicht.

    • Lösung: Stelle sicher, dass Du die Optionsfelder korrekt aus der Steuerelemente-Toolbox eingefügt hast und dass der VBA-Code im richtigen Arbeitsblattmodul ist.
  • Fehler: Es wird kein Text angezeigt.

    • Lösung: Überprüfe, ob die Namen der Optionsfelder im VBA-Code korrekt sind und ob die Zellreferenzen stimmen.

Alternative Methoden

Wenn Du eine einfache Möglichkeit suchst, um den Text in Excel einfügen zu können, ohne VBA zu nutzen, kannst Du die Funktion WENN in Kombination mit den Optionsfeldern verwenden. Diese Methode ist besonders nützlich, wenn Du den Excel-Textüberlauf aktivieren möchtest und keine Programmierkenntnisse hast.


Praktische Beispiele

Hier sind einige praktische Beispiele, die Du in Deine Excel-Datei einfügen kannst:

  • Beispiel 1: Verwende die oben genannten Formeln in einer Tabelle, um dynamisch Text in Abhängigkeit von der Auswahl in den Optionsfeldern anzuzeigen.

  • Beispiel 2: Kombiniere die Optionsfelder mit Dropdown-Listen, um eine vielseitige Benutzeroberfläche zu erstellen.


Tipps für Profis

  • Wenn Du viele Optionsfelder hast, organisiere diese in Gruppen, um die Übersichtlichkeit zu erhöhen.
  • Nutze benutzerdefinierte Formate, um bestimmte Zellen unsichtbar zu machen, wenn Du nicht möchtest, dass sie im Ausdruck erscheinen.
  • Experimentiere mit der Formatierung der Optionsfelder, um sie ästhetisch ansprechend zu gestalten.

FAQ: Häufige Fragen

1. Wie aktiviere ich die Entwicklertools in Excel? Gehe zu "Datei" > "Optionen" > "Menüband anpassen" und aktiviere das Kontrollkästchen für "Entwicklertools".

2. Kann ich mehrere Optionsfelder gleichzeitig verwenden? Ja, Du kannst mehrere Optionsfelder verwenden, um verschiedene Optionen anzubieten. Achte darauf, dass sie in der gleichen Gruppe sind, um die Auswahl zu steuern.

3. Wie kann ich die Optionsfelder unsichtbar machen? Du kannst den Druck von Optionsfeldern deaktivieren oder die Zellen mit einem benutzerdefinierten Format unsichtbar machen, indem Du ;;; als Format verwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige