Office: Controls per code dauerhaft ändern

Beverly · 12. Januar 2021

Hi ransi,

ich möchte nochmal auf meinen Beitrag zurückkommen - ist wahrscheinlich durch die Folgebeiträge untergegangen:

von Beverly

dann muss dieser Code nicht bei jedem Start des UserForms ausgeführt werden sondern nur einmalig? Die Änderung gilt nur für die beim Ausführen angesprochene Arbeitsmappe und kann für jedes vorhandene VBA-Objekt genutzt werden - im Prinzip also so etwas Ähnliches wie beim Ändern der Farbpalette? Das wäre dann ja wirklich ein komfortables Werkzeug. Oder funktioniert das nur mit einem UserForm?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe es mit einem Tabellenblatt so versucht, läuft aber auf einen Fehler (Objektvariable oder With-Blockvariable nicht festgelegt)

Code:

Private Sub CommandButton1_Click()
Dim myDesigner
Set myDesigner = ThisWorkbook.VBProject.VBComponents("Tabelle2").Designer
With myDesigner
.Range("C1") = Worksheets("Tabelle1").Range("B1").Interior.Color
End With
Set myDesigner = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In der Überwachung von myDesigner wird dabei nichts angezeigt im Gegensatz zu deinem Code für das UserForm.

ransi · 27. März 2015

Hallo Karin,

Aus der Hilfe:

In manchen Fällen, wie z.B. bei Standardmodulen und Klassenmodulen, wird kein Designer erstellt, weil diese Funktion vom VBComponent-Objekttyp nicht unterstützt wird.

Die Designer-Eigenschaft gibt den Wert Nothing zurück, wenn das VBComponent-Objekt keinen Designer aufweist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Darum geht das nur mit einer Userform.

ransi

Beverly · 27. März 2015

Hi ransi,

vielen Dank für die Auskunft.

Ich hasse die VBA-Hilfe von Excel2013 - da findet man alles Mögliche zum Stichwort, aber nie eine kurze und prägnante Antwort auf eine Frage (so wie das z.B. in Excel2003 war). *rolleyes.gif*

ransi · 27. März 2015

Hallo Karin,

Ich hasse die VBA-Hilfe von Excel2013 - da findet man alles Mögliche zum Stichwort, aber nie eine kurze und prägnante Antwort auf eine Frage
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Stimmt zu 100%
Aber ganz ohne Hilfe geht leider auch nicht...

ransi

Muller · 27. März 2015

Hallo Phelan,

ich erhalte den gleichen Fehler (Xl2007, Vista), Du mußt den Show-Aufruf mit einem Timer breaken, dann geht's:

PHP:

Option Explicit Private Sub CommandButton1_Click() Dim myDesigner Set myDesigner = ThisWorkbook.VBProject.VBComponents("Userform1").Designer With myDesigner .Controls("CommandButton1").BackColor = Sheets("Tabelle1").Range("A1").Interior.Color .Controls("CommandButton1").Caption = Sheets("Tabelle1").Range("A1").Text .Controls("Frame1").BackColor = Sheets("Tabelle1").Range("A2").Interior.Color .Controls("Frame1").Caption = Sheets("Tabelle1").Range("A2").Text .Controls("CommandButton1").Name = "cboTest" End With Application.OnTime EarliestTime:=Now, Procedure:="prcTimer" End Sub

Beverly · 27. März 2015

\@ransi,

da hast du natürlich Recht - aber zum Glück gibt es im Forum ja Wissende, die man befragen kann *wink.gif*

@All,

ich bekomme keine Fehlermeldung (Excel2013).

xlph · 27. März 2015

Hallo Muller,

in der Tat, so funktioniert es auch:

Code:

Private Sub CommandButton1_Click()
Call xx
Call xy
End Sub

Sub xx()
Dim myDesigner
Set myDesigner = ThisWorkbook.VBProject.VBComponents("Userform1").Designer
With myDesigner
.Controls("CommandButton1").BackColor = Sheets("Tabelle1").Range("A1").Interior.Color
.Controls("CommandButton1").Caption = Sheets("Tabelle1").Range("A1").Text
.Controls("CommandButton1").Name = "cboTest123"
.Controls("Frame1").BackColor = Sheets("Tabelle1").Range("A2").Interior.Color
.Controls("Frame1").Caption = Sheets("Tabelle1").Range("A2").Text
End With
End Sub

Sub xy()
UserForm1.Show
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBAEisbär · 27. März 2015

Hallo Beverly,
da sieht man den Wald vor lauter Bäumen nicht mehr.
Danke für das entknoten meines Hirns.

Vielen Dank noch mal für eure Beiträge.
Setze den Blog jetzt auf erledigt.

LG
VBAEisbär

Office: Controls per code dauerhaft ändern

Controls per code dauerhaft ändern

Controls per code dauerhaft ändern

Controls per code dauerhaft ändern

Controls per code dauerhaft ändern

Controls per code dauerhaft ändern - Similar Threads - Controls code dauerhaft

Excel 2024 Kombinationsfeld ohne Register Steuerung

Access365 und Windows Common Controls

Bilddaten aus Speicher direkt ins Image control laden

Controls

Control an Sub übergeben

Zugriff auf das FlexGrid Control

Wie vorgehen bei Bennung der Controls auf Multipages