SpinButton.Min

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: SpinButton.Min
von: Karsten
Geschrieben am: 09.12.2003 11:04:08

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

Bild


Betrifft: AW: SpinButton.Min
von: Nike
Geschrieben am: 09.12.2003 11:31:31

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


Bild

Beiträge aus den Excel-Beispielen zum Thema " Problem mit Leerzeichen im Makro"