startzelle für code festlegen
04.10.2006 13:59:10
oliver
habe jetzt diesen code gefunden. wie kann ich die startzelle für den code festlegen. am liebsten wäre mir, wenn der code in der activecell beginnt und von dort aus runter einfügt. bei dem code unten beginnt er immer in der zelle A1.
mfg
olli
' 5 ComboBoxen mit LinkedCell in der nebenstehenden Spalte zufügen
Sub x()
Dim i%
With Worksheets("Tabelle1")
For i = 1 To 5
.Rows(i).RowHeight = 18
With .Shapes.AddOLEObject(ClassType:="Forms.ComboBox.1", _
DisplayAsIcon:=False, _
Link:=False, _
Left:=.Cells(i, 1).Left, _
Top:=.Cells(i, 1).Top, _
Width:=.Cells(i, 1).Width, _
Height:=.Cells(i, 1).Height)
' Linked Cell setzen und Einträge zufügen
With .DrawingObject
.LinkedCell = Cells(i, 2).Address
With .Object
.AddItem "Horst"
.AddItem "Kurt"
.AddItem "Klaus"
End With
End With
End With
Next
End With
End Sub