Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optionsbutton aus Gruppe aktivieren

Forumthread: Optionsbutton aus Gruppe aktivieren

Optionsbutton aus Gruppe aktivieren
19.02.2020 08:59:20
Peer
Hallo.
Ich möchte beim Öffnen (Userform_Initialize) der UF einen Optionsbutton "opt_Pause30" aktivieren, der in eine Gruppe "optGrp_Pause" gehört.
Aber leider macht er das nicht, obwohl ich im Code
Userbild
den Wert auf True setze.
Mit dem Optionsbutton "Ausbilder" der Gruppe "Verwendung" funktioniert es auch.
Meine Vermutung ist der Rahmen "Dienstzeit"
Userbild
Hat jemand einen Tipp?
LG
Peer
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optionsbutton aus Gruppe aktivieren
19.02.2020 14:30:14
onur
Was sollen wir hier mit Bildchen?
Wenn dein Hund krank wäre, würdest du dem Tierarzt ein Bild des Hundes bringen oder den Hund?
AW: Optionsbutton aus Gruppe aktivieren
19.02.2020 14:54:09
Peer
Ok.
Dann der Code...
Private Sub UserForm_Initialize()
Dim zeile As Long
'Arbeitstag
txt_ArbZ_Beginn.Value = Format(Cells(zeile, 20), "hh:mm") 'Beginn
txt_ArbZ_Ende.Value = Format(Cells(zeile, 21), "hh:mm")  'Ende
txt_ArbZeit.Value = Format(Cells(zeile, 22), "hh:mm") 'Arbeitszeit abzgl Pause
If txt_ArbZ_Beginn.Value = "" And txt_ArbZ_Ende.Value = "" Then
opt_Ausbilder.Value = True
opt_Pause30.Value = True    'macht er nicht
txt_ArbZ_Beginn.Value = "08:00"
txt_ArbZ_Ende.Value = "15:48"
AZ_berechnung
End If
End Sub

Anzeige
AW: Optionsbutton aus Gruppe aktivieren
19.02.2020 15:19:55
onur
Um mit dem Code alles testen zu können, müsste man deine Datei inkl. Userform nachbauen.
AW: Optionsbutton aus Gruppe aktivieren
19.02.2020 23:44:00
Matthias
Hallo Peer
Probiers mal so:
frame_Dienstszeit.opt_Pause30.Value = True
Also immer auf das "Containerobjekt" referenzieren
Evtl. hilft das schon.
Gruß Matthias
Anzeige
AW: Optionsbutton aus Gruppe aktivieren
20.02.2020 07:27:02
Peer
Hallo Matthias.
Hatte/habe ich auch probiert. Ohne Erfolg.
LG
Peer
AW: Optionsbutton aus Gruppe aktivieren
21.02.2020 19:06:20
Peer
Wirklich keiner eine Idee, warum ich den Button nicht aktivieren kann?
AW: Optionsbutton aus Gruppe aktivieren
21.02.2020 20:54:24
onur
Wie startest du das Makro (die Userform) überhaupt ?
Anzeige
AW: Optionsbutton aus Gruppe aktivieren
21.02.2020 21:46:47
Peerli
Mit Rechtsklick im Range B12:B42 des jeweiligen Sheets.
AW: Optionsbutton aus Gruppe aktivieren
21.02.2020 21:52:17
onur
Hatte ich versucht. Da kommt bei mir ERROR . Evtl fehlen wichtige Teile der Datei.
Wie dem auch sei: Wenn du eine Zeile wählst, die eine Pasusenzeit enthält, kommt auch 0:30 Pause, wenn nicht, wird es durch
deinen Code hier verhindert:
If Cells(zeile, 24) = "" Then
Me.opt_Pause0.Value = True
Anzeige
AW: Optionsbutton aus Gruppe aktivieren
21.02.2020 23:25:36
Peerli
Hallo onur.
Komisch ist es schon bei deinem Error.
Ich habe diese Datei schon auf verschiedenen Rechnern probiert. Alle fehlerlos. Ich habe jeweils MSO 2016. Und du?
An deine Vermutung dachte ich auch.
Aber wie kann ich beim Laden der UF jeder Zeile die Zelle mit den Pausen auslesen und bei Zeilen, wo die komplette Zeile leer ist, also auch die Pause, hier einen "Standard" festlegen?
LG
Peer
Anzeige
AW: Optionsbutton aus Gruppe aktivieren
21.02.2020 23:30:37
onur 

If Cells(zeile, 24) = "" Then
Me.opt_Pause0.Value = True
ersetzen durch

If Cells(zeile, 24) = "" Then
Me.opt_Pause30.Value = True

AW: Optionsbutton aus Gruppe aktivieren
22.02.2020 10:17:30
Peer
Hallo onur.
Dachte ich auch schon darüber nach. Aber wenn in Spalte 24 kein Wert steht, weil auch keinen Pause gemacht wurde, stimmt es dann wieder nicht, Oder?
Ich habe jetzt auf deine Infos weitergedacht und habe 

'Arbeitstag
txt_ArbZ_Beginn.Value = Format(Cells(zeile, 20), "hh:mm") 'Beginn
txt_ArbZ_Ende.Value = Format(Cells(zeile, 21), "hh:mm")  'Ende
txt_ArbZeit.Value = Format(Cells(zeile, 22), "hh:mm") 'Arbeitszeit abzgl Pause
If txt_ArbZ_Beginn.Value = "" And txt_ArbZ_Ende.Value = "" Then
opt_Ausbilder.Value = True
opt_Pause30.Value = True
txt_ArbZ_Beginn.Value = "08:00"
txt_ArbZ_Ende.Value = "15:48"
AZ_berechnung
End If
hinter 


'Pause auslesen

If Cells(zeile, 24) = "" Then

Me.opt_Pause0.Value = True

ElseIf Cells(zeile, 24).Text = "0:30" Then

Me.opt_Pause30.Value = True

ElseIf Cells(zeile, 24).Text = "0:45" Then

Me.opt_Pause45.Value = True

End If
verschoben und jetzt scheint es zu funktionieren.
Gruß
Peer
Anzeige

Forumthreads zu verwandten Themen

VBA - Klasse von OptionButton auf Arbeitsblatt? | Herbers Excel-Forum
Andreas
Hallo Excelgemeinde,
ich habe das Problem, dass es mir nicht gelingen will, in einer Schleife mehrere OptionButtons eines Arbeitsblattes zu adressieren.
Von der Sache her gehören Sie zur Klasse Tabelle, aber ansprechen kann ich sie nur einzeln. Die Namen der Buttons enden alle mit einer for...
14.01.2010 11:58:19
Thread-ID: 1129850
15 Beiträge
Optionbutton aus Listbox aktivieren
Roger

Guten Tag,
Folgendes
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Userform1.CheckBox6 = ListBox1.List(ListBox1.ListIndex, 39) Userform1.OptionButton1 = ListBox1.List(ListBox1.ListIndex, 29) End Sub Bei der Checkbox funktioniert danach die Anzeige in der Userform...
12.03.2013 14:02:15
Thread-ID: 1303443
6 Beiträge
VBA Option Button
Katharina

Hallo,
ich möchte in VBA eine Userform erstellen, habe dafür mehrere Optionsbutton.
Nun möchte ich, dass wenn ich die mögliche Option anlicke, mir diese Option in der Spalte A, da wo nichts drinnen steht rausgebenen wird.
Leider passiert in meinem Code gar nichts
Hat da jemand...
17.11.2014 15:17:36
Thread-ID: 1392844
3 Beiträge
Option Buttons deaktivieren weitere Eingaben
Roland

Hallo,
ich habe ein Formular mit einer Vielzahl von Eingabefeldern und Option buttons erstellt. Zum Zurücksetzen verwende ich ein Makro, das als solches auch fehlerfrei funktioniert. Wenn ich nach Ausführung der Makro einen Option button anklicke, sind allerdings keine Eingaben mehr möglic...
11.07.2017 10:26:01
Thread-ID: 1568459
8 Beiträge
VBA OptionButton Finden und Ergebnis speichern
Madi

Hallo zusammen,
vielen Dank schon einmal vorab für eure große Mühen, welche ihr für uns auf euch nehmt.
Ich bin ein Anfänger in VBA und versuche gerade für meine Kollegen eine kleine Datenbank aufzubauen, welche hoffentlich dazu beitragen kann, dass die Herren etwas strukturierter Arbei...
11.07.2018 23:55:48
Thread-ID: 1633557
4 Beiträge
CommandButton bestimmten OptionButton aktivieren
Dieter(Drummer)

Guten Tag VBA Spezialisten/innen,
Problem: Mit Commandbutton bestimmten Optionbutton zu aktivieren, auf Userform (frmSternzeichen).
Das funktioniert:
Auf Userform (frmSternzeichen), erhält per Klick auf Commandbutton (cmdGeburt), per Inputbox die Caption ein Datum, z.B. 25.06.1950...
15.04.2019 15:15:21
Thread-ID: 1687216
4 Beiträge
VBA: OptionButton (With/If/Case)
Charly

Hallo Forum,
ich habe ein Problem mit OptionButton.
Mappe(1) mit UF:
OptionButtonen
ComboBox(RowSource hinterlegt)
TextBoxen, nur zur Darstellung von Inhalten, keine Schreiben
CommandButto´s
Mappe(3) ist eine Vorlage, für die TextBox/Inhalt
Wenn Ich in Mappe(1) p...
19.06.2019 05:11:00
Thread-ID: 1698389
6 Beiträge
nach datum bestimmten optionbutton aktivieren
michel

Hallo Forum,

ich brauch mal wieder kreative Unterstützung....

Mit Hilfe einer UF wird dem Benutzer eine Auswertung ermöglicht. Er hat dabei über Optionbuttons 1-12 die Möglichkeit den entsprechenden Monat zu wählen. Wie müsste ich das UserForm_Initialize Ereignis formulieren, d...
03.07.2003 15:12:23
Thread-ID: 276755
4 Beiträge
OptionButton mit Schleife aktivieren
Matthias

Hallo zusammen,
ich habe folgendes Problem: Ich möchte mit einer For Next Schleife verschiedene OptionButtons auf einem Arbeitsblatt aktivieren.
Leider bekomme ich mit folgendem Code in Zeile 4 einen Laufzeitfehler 438:
Private Sub reset_Click() ActiveSheet.Unprotect For n = 6 To 9...
02.06.2004 18:10:45
Thread-ID: 436555
3 Beiträge
vba code über button aktivieren
sven
hi!
ich habe hier einen wundervollen code, der mein erstes tabellenblatt nach einem eingegebenen stichwort durchsucht und das entsprechende dann auf dem dritten blatt wiedergibt.

Sub SortierteNachTabelle3Kopieren() Dim Suchbegriff As String Worksheets("Tabelle3").Range("A9:I" & Range(...
23.08.2004 12:29:38
Thread-ID: 473717
7 Beiträge
OptionButton - Textfelder aktivieren
MRLKC

Hallo zusammen,
ich hab´ in einer UserForm zwei OptionButton´s, je nach dem welcher aktiviert wird, möchte ich, dass andere Textfelder aktiviert werden oder eben nicht.
Wie krieg ich das hin. Wenn ich das in das Makro des OptionButtons reinschreibe funktioniert´s nicht. Möchte aber un...
07.06.2006 08:54:52
Thread-ID: 770800
3 Beiträge
Options button deaktivieren
Tobi

Hallo,
ich habe eine Reihe von Optionsbuttons in einem Dialogfeld, von denen ich einen deaktivieren will, aber so, dass er noch sichtbar ist. Nur eben nicht anwählbar. Mit der Eigenschaft locked bin ich da nicht weiter gekommen. Gibt es hier eine Möglichkeit?
Danke,
Tobi
24.11.2006 10:30:33
Thread-ID: 822989
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige