Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
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
Inhaltsverzeichnis

VBA - ohne Select

VBA - ohne Select
03.02.2018 13:20:34
WalterK
Hallo,
Meine Frage: geht das auch ohne Select und ohne Selection oder doch nicht?
    wksArb.Shapes.Range(Array("Spinner 2")).Select
With Selection
.Value = 2018
.Min = 2006
.Max = 2099
.SmallChange = 1
.LinkedCell = "$G$13"
.Display3DShading = True
End With
Besten Dank und Servus, Walter

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - ohne Select
03.02.2018 13:24:58
Gerd
Servus Walter!
Statt:
wksArb.Shapes.Range(Array("Spinner 2")).Select
With Selection
dann:
With wksArb.Shapes.Range(Array("Spinner 2"))
Vielleicht geht es auch ohne "RangeArray".
Gruß Gerd
AW: VBA - ohne Select
03.02.2018 14:11:18
WalterK
Hallo Gerd,
Die Zeile .Value = 2018 wird gelb markiert und es kommt die Meldung:
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
Servus, Walter
AW: VBA - ohne Select
03.02.2018 14:22:12
Sepp
Hallo Walter,
das geht so.
  With wksArb.Shapes("Spinner 2").DrawingObject
    .Value = 2018
    .Min = 2006
    .Max = 2099
    .SmallChange = 1
    .LinkedCell = "$G$13"
    .Display3DShading = True
  End With

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß Sepp

Anzeige
Besten Dank Sepp. So gehts. Servus, Walter
03.02.2018 14:26:53
WalterK

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige