Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon knissy vom 12.09.2019, 16:34 Options
Bei Auswahl best. Optionsfeld soll Text dahinter erscheinen..
Habe in Excel mehrere Ja/Nein-Fragen, die ich mit Optionsfelder dargestellt habe. Nun soll nach Auswahl von "Ja" daneben dann ein Text wie z.B. "Bitte weitermachen" erscheinen, ansonsten soll nichts stehen.
Über VBA habe ich es mit
If Option_JA = True Then
Info = "Bitte weitermachen"
End If
Aber wie man schon sieht, weiß ich nicht wie ich es angeben kann, dass man mir z.B. in Zelle A5 den Satzt ausspuckt...
Vielleicht gibt es ja auch eine viel einfachere Lösung mit einer "=WEnn()"-Formel?
Danke für gute Tipps!
Saskia
Über VBA habe ich es mit
If Option_JA = True Then
Info = "Bitte weitermachen"
End If
Aber wie man schon sieht, weiß ich nicht wie ich es angeben kann, dass man mir z.B. in Zelle A5 den Satzt ausspuckt...
Vielleicht gibt es ja auch eine viel einfachere Lösung mit einer "=WEnn()"-Formel?
Danke für gute Tipps!
Saskia
Antwort 1 von Kauz1 vom 13.09.2019, 08:45 Options
Hallo Saskia..
vielleicht so:
If Option_JA = True Then
Range("A5")="Bitte weitermachen"
End If
oder so:
If Option_JA = True Then
Cells(5,1)="Bitte weitermachen"
End If
besser wäre noch:
If Option_JA = True Then
Sheets("Tabelle1").Cells(5,1)="Bitte weitermachen"
End If
oder:
If Option_JA = True Then
Sheets("Tabelle1").Range("A5")="Bitte weitermachen"
End If
Sheets("Tabelle1")--- Tabelle1 steht für den verwendeten Namen... also anpassen.
Gruß Andreas
vielleicht so:
If Option_JA = True Then
Range("A5")="Bitte weitermachen"
End If
oder so:
If Option_JA = True Then
Cells(5,1)="Bitte weitermachen"
End If
besser wäre noch:
If Option_JA = True Then
Sheets("Tabelle1").Cells(5,1)="Bitte weitermachen"
End If
oder:
If Option_JA = True Then
Sheets("Tabelle1").Range("A5")="Bitte weitermachen"
End If
Sheets("Tabelle1")--- Tabelle1 steht für den verwendeten Namen... also anpassen.
Gruß Andreas
Antwort 2 von knissy vom 13.09.2019, 09:15 Options
Danke Andreas, das hat super geklappt.
Jetzt habe ich noch eine Frage:
Warum wird nich erkannt, wenn ich die Schleife wie folgt fortsetzte
If Option_JA = True Then
Sheets("Tabelle1").Cells(5,1)="Bitte weitermachen"
Else
Sheets("Tabelle1").Cells(5,1)=" "
End If
dass nun bei nicht Auswahl des OptionsButton JA, da nix stehen soll?
Habe es zwar jetzt gelöst, in dem ich die den OptionsButton_Nein damit belegt habe.
Ist aber einfach nur eine Interessensfrage...
Danke noch mal Saskia
Jetzt habe ich noch eine Frage:
Warum wird nich erkannt, wenn ich die Schleife wie folgt fortsetzte
If Option_JA = True Then
Sheets("Tabelle1").Cells(5,1)="Bitte weitermachen"
Else
Sheets("Tabelle1").Cells(5,1)=" "
End If
dass nun bei nicht Auswahl des OptionsButton JA, da nix stehen soll?
Habe es zwar jetzt gelöst, in dem ich die den OptionsButton_Nein damit belegt habe.
Ist aber einfach nur eine Interessensfrage...
Danke noch mal Saskia
Antwort 3 von Kauz1 vom 13.09.2019, 12:00 Options
Hallo Saskia..
das liegt daran, das man ein Optionbutton nur auf Nein bekommt, wenn man einen anderen auf Ja setzt.
Der Code aber in dem Click-Ereigniss abegearbeitet wird, und dann kann dieser Button nur auf Ja stehen.
Man kann das mit einem Keuzvergleich machen:
Private Sub Option_JA _Click()
If Option_JA = True Then
Sheets("Tabelle1").Cells(5, 1) = "Bitte weitermachen"
Else if Option_XX = True Then
Sheets("Tabelle1").Cells(5, 1) = " "
End If
End Sub
Also bei <Else> den Wahr-Zustand des anderen abfragen.
Falls nicht verstanden weiterfragen...
Gruß Andreas
das liegt daran, das man ein Optionbutton nur auf Nein bekommt, wenn man einen anderen auf Ja setzt.
Der Code aber in dem Click-Ereigniss abegearbeitet wird, und dann kann dieser Button nur auf Ja stehen.
Man kann das mit einem Keuzvergleich machen:
Private Sub Option_JA _Click()
If Option_JA = True Then
Sheets("Tabelle1").Cells(5, 1) = "Bitte weitermachen"
Else if Option_XX = True Then
Sheets("Tabelle1").Cells(5, 1) = " "
End If
End Sub
Also bei <Else> den Wahr-Zustand des anderen abfragen.
Falls nicht verstanden weiterfragen...
Gruß Andreas
Ähnliche Themen
Optionsfelder in Excel
Kubi34 13.03.2007 - 234 Hits - 1 Antwort
Kontakte erscheinen nicht in Kategorien
DFreund 05.04.2007 - 175 Hits -
Regular expressions
thomas_w 29.04.2007 - 171 Hits - 4 Antworten
drucken
parama 14.08.2007 - 17 Hits -
Wert über Optionsfeld in eine bestimmte Zelle schreiben
louisduke 04.01.2008 - 75 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
