Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SpinButton.Min

Forumthread: SpinButton.Min

SpinButton.Min
09.12.2003 11:04:08
Karsten
Hi Freaks,

ich habe in einer Tabelle "SpinButton1" bis "SpinButton20" deren Mindestwerte per Makro in einer Schleife (1-20) verändert werden sollen.
Hat jemand eine Idee wie ich das hinbekomme?

Gruß, Karsten
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SpinButton.Min
09.12.2003 11:31:31
Nike
Hi,
zum einen anlegen, zum anderen Ändern...


Sub Makro2()
Dim obj As Object
For i = 1 To 2
Set obj = ActiveSheet.Spinners.Add(300, i * 15, 60, 13.5)
With obj
.Value = 0
.Min = 10
.Max = 20
.SmallChange = 1
.LinkedCell = ""
.Display3DShading = True
End With
Next
End Sub



Sub Makro3()
Dim obj As Object
For Each obj In ActiveSheet.Spinners
With obj
.Value = 0
.Min = 1
.Max = 20
.SmallChange = 1
.LinkedCell = ""
.Display3DShading = True
End With
Next
End Sub


Bye

Nike
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige