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 Kaleun vom 25.02.2021, 19:05 Options
Optionbutton in Userform
Hallo,
ich habe in einer Arbeitsmappe eine Userform mit 4 Optionsbuttons. Über die Optionsbuttons wähle ich aus, welche Daten aus der Arbeitsmappe ich drucken möchte (Daten1, Daten2, Daten3 und Daten4). Wenn nun z.B. in Zelle A1 der Wert 0 ist möchte ich das der OptionButton1 auf "enable = false" gesetzt wird und dadurch in der Userform nicht angeklickt werden kann. Steht in der Zelle A1 eine 1 soll der OptionButton wieder auf "enable = true" gesetzt werden. Ich möchte dadurch verhindern, das z.B. Daten1 gedruckt wird obwohl dort noch keine Daten vorhanden sind.
Vielen Dank im vorraus
Kaleun
ich habe in einer Arbeitsmappe eine Userform mit 4 Optionsbuttons. Über die Optionsbuttons wähle ich aus, welche Daten aus der Arbeitsmappe ich drucken möchte (Daten1, Daten2, Daten3 und Daten4). Wenn nun z.B. in Zelle A1 der Wert 0 ist möchte ich das der OptionButton1 auf "enable = false" gesetzt wird und dadurch in der Userform nicht angeklickt werden kann. Steht in der Zelle A1 eine 1 soll der OptionButton wieder auf "enable = true" gesetzt werden. Ich möchte dadurch verhindern, das z.B. Daten1 gedruckt wird obwohl dort noch keine Daten vorhanden sind.
Vielen Dank im vorraus
Kaleun
Antwort 1 von Hajo_Zi vom 25.02.2021, 19:12 Options
Hallo
OptionsButton1.Enabled=Range("A1")<>0
Bei 0 False, bei allen anderen True
Gruß Hajo
OptionsButton1.Enabled=Range("A1")<>0
Bei 0 False, bei allen anderen True
Gruß Hajo
Antwort 2 von Kaleun vom 26.02.2021, 18:15 Options
@ Hajo
Hallo, danke erstmal für deine Antwort.
Ich kriege es heute irgendwie nicht gebacken.
Ich möchte ja das wenn ich die UserForm aufrufe nur die OptionButtons enable sind, für die Einträge in der Tabelle vorhanden sind. Also sage ich mir, dein Code muß in das Makro das die Userform aufruft.
In meinem Fall:
Sub drucken_anzeigen()
If Range("i1").Value = 0 Then
keineEinträge.Show 'Userform keineEinträge öffnen
GoTo Ende:
Else
drucken.Show 'UserForm Drucken öffnen
OptionButton1.Enabled=Range("A1")<>0
End If
Ende:
End Sub
(Mit "if range("i1").value=0 wird abgefragt ob überhaupt ein Eintrag in der Tabelle vorhanden ist.)
Das funktioniert aber so nicht. Wo muß ich den Code einbinden?
Wenn ich ihn in die Befehlsschaltfläche ("Drucken") der UserForm einbinde ist es ja eigentlich zu spät.
Kannst du (oder jemand anderes) mir weiter helfen?
Vielen Dank im Voraus
Kaleun
Hallo, danke erstmal für deine Antwort.
Ich kriege es heute irgendwie nicht gebacken.
Ich möchte ja das wenn ich die UserForm aufrufe nur die OptionButtons enable sind, für die Einträge in der Tabelle vorhanden sind. Also sage ich mir, dein Code muß in das Makro das die Userform aufruft.
In meinem Fall:
Sub drucken_anzeigen()
If Range("i1").Value = 0 Then
keineEinträge.Show 'Userform keineEinträge öffnen
GoTo Ende:
Else
drucken.Show 'UserForm Drucken öffnen
OptionButton1.Enabled=Range("A1")<>0
End If
Ende:
End Sub
(Mit "if range("i1").value=0 wird abgefragt ob überhaupt ein Eintrag in der Tabelle vorhanden ist.)
Das funktioniert aber so nicht. Wo muß ich den Code einbinden?
Wenn ich ihn in die Befehlsschaltfläche ("Drucken") der UserForm einbinde ist es ja eigentlich zu spät.
Kannst du (oder jemand anderes) mir weiter helfen?
Vielen Dank im Voraus
Kaleun
Ähnliche Themen
Auswahlfeld in Userform
jackson84 24.01.2008 - 84 Hits - 30 Antworten
UserForm ComboBox
fedjo 26.04.2008 - 42 Hits - 3 Antworten
UserForm ComboBox
fedjo 20.05.2008 - 190 Hits - 3 Antworten
Excel UserForm
fedjo 30.05.2008 - 102 Hits - 2 Antworten
OptionButton mit Makro Verbinden
Gabi22 27.11.2008 - 14 Hits - 1 Antwort
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
