OptionButtons in Grp mittels Makro erstellen

Sub AddOptionButton(Position2 As Range) Anzahl = 1 For Each Objekt In ActiveSheet.OLEObjects If Objekt.progID = "Forms.OptionButton.1" Then Anzahl = Anzahl + 1 End If Next With ActiveSheet Set Objekt = .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=Position2.Left, _ Width:=Position2.Width, Top:=Position2.Top, Height:=Position2.Height) Set OB = Objekt.Object With OB .Name = "FirstChoice" & ActiveSheet.ComboBox1.Value & "OptionButton" & Anzahl End With End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
zu 1.
iif hat einen True- Part und einen False- Part
verwende ich um Programmierzeilen zu sparen.
(lese mal in der Hilfe was unter IIf-Funktion steht)
zu 2.
Dies habe ich eingebaut, weil nach dem erstellen der Button die Automatisierung bzw. der Initialisierungscode nicht funktioniert, dazu muss dieses Makro erst beenden werden.
Durch die OnTime, wird dass Makro Initialisieren erst eine Sekunde später ausgeführt, also nachdem dieses Makro beendet ist. (Hat nichts mit ScreenUpdating zu tun)
Erase Button,
damit wird die Matrix (Area) geleert bzw. deinitialisiert,
ist als Sicherheit eingebaut damit nicht die falschen Buttons zugeordnet werden.
Bei ReDim Preserve wird diese wieder neu Dimensioniert
zu 3.
Verstehe nicht was Du meinst,
wollte Dir nur aufzeigen, dass jede Gruppe für sich ein eigenes Makro ausführt.
Die Msgbox war dabei nur ein Beispiel, mir war nichts besseres eingefallen.
Ich hoffe man kann einigermaßen etwas damit anfangen was ich geschrieben habe.
Gruß Tino

Hi Tino,
Danke für deine schnelle Antwort!
Gleich mal vorweg: Ich konnte sehr viel damit anfangen =)
Habe meinen jetzt Code folgendermaßen geschrieben:


Sub FirstAddOptionButton(Position2 As Range)
Dim GrpCount As Integer, OBCount As Integer
Application.ScreenUpdating = False
For OBCount = 1 To 3
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=Position2.Left, _
Width:=Position2.Width, Top:=Position2.Top, Height:=Position2.Height)
Set OB = Objekt.Object
With OB
.Name = "FirstChoice" & ActiveSheet.ComboBox1.Value & "OptionButton" & OBCount
.GroupName = "FirstChoice" & ActiveSheet.ComboBox1.Value
.BackColor = &H80000005
.Font = "Georgia"
.Font.Size = 16
.Font.Bold = True
.Height = 26
If OBCount = 1 Then .Caption = "Yes!": .ForeColor = "&HC000": .Width = 63
If OBCount = 2 Then .Caption = "Possible!": .ForeColor = "&H80FF": .Width = 93
If OBCount = 3 Then .Caption = "No!": .ForeColor = "&HFF": .Width = 49
End With
With .Shapes(Objekt.Name)
.Placement = 1
End With
Set Position2 = Position2.Offset(2, 0)
End With
Next OBCount
Application.ScreenUpdating = True
End Sub

ging auch ohne Klasse =)
Ich hätte gemeint, man kann die Klasse so gestalten, dass gleich in der Klasse die Anordnung der 3 Buttons und ihre Eigenschaften deklariert werden.
Später habe ich auch noch was kompliziertes mit den Gruppen von OptionsButtons vor:
Und wie ich das löse weiß ich leider auch noch nicht, aber das geh ich dann erst im neuen Jahr an und
hoffe du kannst mir weiterhin mit so toller Hilfe beistehen =)
lg & guten Rutsch
adrian

Beliebteste Forumthreads (12 Monate)

OptionButtons in Grp mittels Makro erstellen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

OptionButtons in Grp mittels Makro erstellen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread