Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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?
Anzeige
AW: Optionsbutton aus Gruppe aktivieren
21.02.2020 20:54:24
onur
Wie startest du das Makro (die Userform) überhaupt ?
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
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

71 Forumthreads zu ähnlichen 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
Anzeige
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 Button deaktivieren
Peter

Hallo,
ich habe in einem Userform eine Gruppe von Optionbuttons mit der Aussage Männlich bzw. Weiblich.
Klappt auch alles ganz gut, bis auf ein Problem:
Wenn ich die Schaltfläche "Neu" betätige um einen neuen Datensatz hinzuzufügen werden alle meine Textboxen geleert, der Option But...
20.01.2015 15:54:06
Thread-ID: 1403936
10 Beiträge
Anzeige
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
Option Button aktivieren
Markus
Hallo,

es ist folgende Ausgangsituation:
Ich habe auf dem Tabellenblatt 1 drei OptionButtons, und ich befinde mich auf
dem Tabellenblatt 3

Jetzt möchte ich per makro auf dem Tabellenblatt 1 den OptionButton mit dem Namen OptionButton1 aktivieren.

Vielen Dank schon mal...
25.10.2003 17:48:54
Thread-ID: 328604
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
14
5
2
9
7
3
3
5
3
1
2
6
6
4
13
2
4
10
7
3
2
3
2
14
5