Ohne Select möglich.........

Forumthread: Ohne Select möglich.........
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Ohne Select möglich.........

13.01.2009 22:29:07

Gast

Hallo,
irgendwie will es nicht ohne Select?
Test = "Tabelle1!$A$" & Wert1 & ":$I$" & Wert2
ActiveSheet.Shapes("Picture 1").Select
Selection.Formula = Test
geht.
ActiveSheet.Shapes("Picture 1").Formula = Test
geht nicht?
Geht das generell nicht ohne Select?
Gruß Gast

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ohne Select möglich.........

13.01.2009 22:52:10

Jan
AW: Ohne Select möglich.........

13.01.2009 23:42:00

Gast
AW: Ohne Select möglich.........

13.01.2009 23:50:00

Jan
AW: Ohne Select möglich.........

15.01.2009 13:58:10

Gast

AW: Ohne Select möglich.........

13.01.2009 22:52:10

Jan

Hi,
ja, ist möglich.


Sub xyz()
Dim Sh as Shape
Set Sh = ActiveSheet.Shapes("Picture 1")
End Sub

Setze bei End


Sub einen Haltepunk, führ den Code aus und schau dir dann
im Lokalfenster an, wo der korrekte Begriff, also Formula, zu finden ist.
mfg Jan

AW: Ohne Select möglich.........

13.01.2009 23:42:00

Gast

Servus Jan,
Set Sh = ActiveSheet.Shapes("Picture 1")
With Sh
.Formula = Test
End With
geht auch nicht, im Lokalfenster ist nix zu Formeln zu sehen.
Für heute bin ich erst mal leer, ich probier morgen nach Feierabend noch mal.
Danke für den Hinweis.
Gruß Gast

AW: Ohne Select möglich.........

13.01.2009 23:50:00

Jan

Hi,
mach mal einen screenshot des Lokalfensters.
mfg Jan

AW: Ohne Select möglich.........

15.01.2009 13:58:10

Gast

Hallo Jan,
ich musste halt weiter suchen :-(
Es wurde gefunden :-)
Set AnSchr = ActiveSheet.Shapes("Picture 1")
Test = "Anschreiben!$A$" & Wert1 & ":$I$" & Wert2
With AnSchr
.OLEFormat.Object.Formula = Test
End With
Gruß Gast
PS: Quelle/ http://www.office.gmxhome.de/tabellen_objekte.htm
War ein Zufallstreffer