Variablendeklaration eines Commandbutton:

01/12/2007 - 11:57 von Markus Löw | Report spam
Na, da waren die Finger gerade etwas dicker :-)

Hallo NG.

so jetzt die der richtige Beitrag:
Ich habe ein Problem mit der Variablendeklaration eines Commandbutton:


Ziel ist folgendes:

ich möchte den Commandbutton "cb_vds_Blumen"
so deklarieren, daß ich diesen weiter in einer Subroutine verarbeiten
kann.

Dies sieht ungefàhr so aus:
sub Subroutine(OleObj)

With Worksheets("Start").ObeObj
.BackColor = &HFFC0C0
.ForeColor = vbBlack
.Caption = ButtonCaptionNeu
End With
End sub

Ich bekomme aber die Deklaration nicht nicht hin:
Hier der Code vom Aufruf:
Private Sub cb_vds_Blumen_Click()

Dim OleObj As OLEObject
Set OleObj = Worksheets("Start").OLEObjects("cb_vds_Blumen")
call Subroutine "OleObj"

Hat einer eine Idee, was ich falsch mache?
Ich bekomme immer Laufzeitfehler 438

Gruß Markus Löw
 

Lesen sie die antworten

#1 Thomas Ramel
01/12/2007 - 14:41 | Warnen spam
Grüezi Markus

Markus Löw schrieb am 01.12.2007

Na, da waren die Finger gerade etwas dicker :-)



Jau, diesen Eindruck hatte ich auch...

Ich habe ein Problem mit der Variablendeklaration eines Commandbutton:

Ziel ist folgendes:

ich möchte den Commandbutton "cb_vds_Blumen"
so deklarieren, daß ich diesen weiter in einer Subroutine verarbeiten
kann.

Dies sieht ungefàhr so aus:
sub Subroutine(OleObj)

With Worksheets("Start").ObeObj



...denn hier verwendest Du O*b*eObj statt OleObj...

...kann dies bereits der Grund sein, oder hast du hier bloss flasch
geschrieben?

In VBA solltest Du prinzipiell als erste Zeile eines Moduls:

Option Excplicit

drin haben, dann passieren solche Verschreibser nicht unbemerkt.

.BackColor = &HFFC0C0
.ForeColor = vbBlack
.Caption = ButtonCaptionNeu
End With
End sub

Ich bekomme aber die Deklaration nicht nicht hin:
Hier der Code vom Aufruf:
Private Sub cb_vds_Blumen_Click()

Dim OleObj As OLEObject
Set OleObj = Worksheets("Start").OLEObjects("cb_vds_Blumen")
call Subroutine "OleObj"

Hat einer eine Idee, was ich falsch mache?
Ich bekomme immer Laufzeitfehler 438



...in welcher Zeile denn genau?


Mit freundlichen Grüssen
Thomas Ramel

- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-2]
Microsoft Excel - Die ExpertenTipps

Ähnliche fragen