Ungültiger Eigenschaftswert
26.07.2019 14:11:16
Alex
habe folgendes Problem: Ich habe eine Funktion die prüft in jede Zelle der Spalte 1 ob sie Leer ist wenn nicht dann relativ zu der gefundene Zelle soll sie an der 9ten Zeile und 7 Spalte , ein ActiveXSpinnButton erstellen. Da 5 einträge in der spalte 1 existieren , müsste sie auch 5 Spinnbuttons erzeugen. Sie erzeugt aber nur 2 die auch funktionieren und dann kommt folgende Fehlermeldung:
Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftswert
Sub Mak_S_btns0()
Dim Zelle1 As Range
Dim spinner As OLEObject
For Each Zelle1 In Columns(1).SpecialCells(xlCellTypeConstants, 1)
Set spinner = ActiveSheet.OLEObjects.Add(ClassType:="Forms.SpinButton.1", Top:= _
Zelle1.Offset(9, 7).Top, Left:=Zelle1.Offset(9, 7).Left + Zelle1.Offset(9, 7).Width, Height:= _
Zelle1.Offset(9, 7).RowHeight, Width:=15)
With spinner
.LinkedCell = Zelle1.Offset(9, 7).Address
With .Object
.SmallChange = 1
.min = 0
.max = 1000000
End With
End With
ext
End Sub