Office: (Office 2013) Ungültiger Eigenschaftswert

Hallo,

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

PHP:

         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


:)

 

...nur zur Kenntnis.

Gruß Werner

 

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Crossposting - Hajo's Excelseiten
Oder
Crossposting | Excel ist sexy!
Du hast Glück das JINX nicht mehr da ist, ansonsten würde Dein Beitrag wegen Crossposting geschlossen werden.
Ein Zitat aus der Netiquette (hier im Forum):
Unerwünscht sind auch Crosspostings - also dieselbe Frage gleichzeitig in mehreren Foren (nicht nur im MSOF).
Denn auf diese Weise werden mehrere Gruppen von Leuten mit dem gleichen Thema befasst, ohne dass sie voneinander wissen.
Naturgemäß laufen dann die Antworten, die im einen Forum "zu spät" gegeben wurden, ins Leere und bleiben ohne Resonanz.
Es reicht also, zunächst in einem Forum zu posten - wenn die Antworten dann unbefriedigend sein sollten, steht es einem anschließend immer noch offen, ein anderes Forum zu Rate zu ziehen.
Ich mache keine Werbung für andere Foren und verzichte darum auf den Link.
Die Forumssoftware verhindert das auch bei den meisten Foren.







Meine Homepage Homeseite - Hajo's Excelseiten