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

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

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!
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige