Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit Add ---Item deklaration????

Forumthread: Problem mit Add ---Item deklaration?

Problem mit Add ---Item deklaration?
28.10.2005 12:16:35
Mola
Hallo nochmal,
ich möchte eine Checkbox in meine Tabelle einfügen...habe mir dazu folgenden Code abgewandelt....leider meckert er immmer bei der item (CheckBox) Eigenschaft. Wie muss ich diese richtig definieren damit dieser Code klappt.
obj habe ich als Object definiert.
Set obj = ActiveSheet.OLEObjects.Add _
(CheckBox, Range("N" & zelle.Row).Left, Range("N" & zelle.Row).Top, _
Range("N" & zelle.Row).Width, Range("N" & zelle.Row).Height)
Vielen Dank nochmals!
Grüße
Mola
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Add ---Item deklaration?
28.10.2005 12:31:11
u_
Hallo,
warum benutzt du nicht den Recorder?
Set obj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.CheckBox.1", left:=Range("N" & zelle.Row).Left, top:=Range("N" & zelle.Row).Top, _
width:=Range("N" & zelle.Row).Width, height:=Range("N" & zelle.Row).Height)
Gruß
Geist ist geil!
Anzeige
Danke - passt jetzt :) o.T.
28.10.2005 12:49:56
Mola
.
Doch noch ein Problem mit Linked Cell
28.10.2005 13:21:55
Mola
Bin gerade nochmal über ein Problem gestolpert....
mein Code schaut so aus:
Dim lz, zelle
Dim obj As Object
Dim c As Long
lz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'CheckBox einfügen
For Each zelle In Range("B8:B" & lz)
If zelle "" Then
c = c + 1
Set obj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.CheckBox.1", Left:=Range("N" & zelle.Row).Left, Top:=Range("N" & zelle.Row).Top, _
Width:=Range("N" & zelle.Row).Width, Height:=Range("N" & zelle.Row).Height)
obj.Name = "Box" & c
obj.Caption = ""
obj.LinkedCell = zelle
obj.Placement = xlMoveAndSize
End If
Next
Set obj = Nothing
Caption, LinkedCell und Placement funktionieren nicht. Der Namen nimmt er aber...was mache ich hier falsch? Auch bin ich mir bei LinkedCell nicht so ob das so klappt wie ich es möchte. Je nachdem ob in Spalte B ab Zeile 8 ein Wert steht wird in N eine Checkbox eingefügt. Jetzt soll diese aber auch gleichzeitig mit der entsprechenden Zelle verlinked sein. Wer kann mir nochmal helfen?!
Vielen Dank!
Grüße Mola
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige