Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1164to1168
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
Optionsbutton LinkedCell mit VBA zuweisen
Peter.H
Hallo zusammen
die Art wie ich die LinkedCell zuweise funktioniert nicht...
Wie muss ich das richtig zuweisen?
Option Explicit
Const iCol_1 As Integer = 1 + 1

Sub Opt()
Dim i As Integer
With Tabelle1
For i = 2 To 10
.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
Left:=.Cells(i, iCol_1).Left, Top:=.Cells(i, iCol_1).Top, _
Width:=.Cells(i, iCol_1).Width, Height:=.Cells(i, iCol_1).Height).Name = "a" & i
.OLEObjects("a" & i).Object.GroupName = "Frage_" & i
.OLEObjects("a" & i).Object.Caption = ""
.OLEObjects("a" & i).Object.BackColor = &H80000015
'**** das funktioniert nicht *****
.OLEObjects("a" & i).Object.LinkedCell = .Cells(i, iCol_1).Address
'****Meldung ist: Laufzeitfehler 438 - Objekt unterstützt diese Methode nicht
Next i
End With
End Sub

Gruß
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Optionsbutton LinkedCell mit VBA zuweisen
20.07.2010 23:23:13
Ramses
Hallo
es muss heissen
.OLEObjects("a" & i).LinkedCell = .Cells(i, iCol_1).Address
Gruss Rainer
Funktioniert perfekt
21.07.2010 06:51:52
Peter.H
Hallo Rainer,
funktioniert perfekt...
Danke und Gruß
Peter
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige