Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

objekt an sub übergeben und eigenschaften ändern

objekt an sub übergeben und eigenschaften ändern
10.08.2004 13:23:12
IngoG
Hallo zusammen,
ich habe ein problem bei der parameterübergabe in VBA.
ich möchte mit einer subroutine die schriftfarbe eines Commandbuttons in einer Tabelle auf rot setzen.
versucht habe ich dies mit:

Sub Buttonfarbe_Rot(button As Object)
button.ForeColor = RGB(0, 0, 255)
End Sub

und dem Aufruf:
Buttonfarbe_Rot (Cmbxxx)
Buttonfarbe_Rot (Cmbyyy)
leider meint er, dass die Typen unverträglich sind...
aber irgendwie sollte es doch funzen, dass ich ihm ein objekt mitgeben kann und dann in der

Sub die eigenschaften ändere
wäre schön, wenn mir jemand einen hinweis geben könnte
Gruß Ingo

		

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

Betreff
Datum
Anwender
Anzeige
AW: objekt an sub übergeben und eigenschaften ändern
Boris
Hi Ingo,
geht sicherlich eleganter - aber so geht´s schon mal:
Option Explicit

Sub aufruf()
Call Buttonfarbe_Rot(ActiveSheet.OLEObjects(1).Name)
End Sub


Sub Buttonfarbe_Rot(button As String)
ActiveSheet.OLEObjects(button).Object.ForeColor = RGB(0, 0, 255)
End Sub

Grüße Boris
P.S.: Is aber nicht rot, sondern eher blau...
AW: objekt an sub übergeben und eigenschaften ändern
IngoG
Hallo Boris,
Danke erstmal für den Tip, werde es mal ausprobieren.
aber irgendwie denke ich, dass es einfacher gehen müsste.
So selten kommt das ja nicht vor, dass man das handling von objekten automatisieren muß ;-)
Gruß Ingo
PS stimmt nat. dass die Farbe blau ist, hab ich wohl mit der sub buttonfarbe_Blau verwechselt ;-)
Anzeige
AW: objekt an sub übergeben und eigenschaften ändern
10.08.2004 13:55:14
Thomas
Hallo Ingo
Versuch's mal so ...


      
Option Explicit
Private Sub CommandButton1_Click()
    
    
' UserForm
    Buttonfarbe_Rot Me.CommandButton1
    
    
' Tabelle
    Buttonfarbe_Rot Tabelle1.OLEObjects(1).Object
    
End Sub
Sub Buttonfarbe_Rot(button As MSForms.CommandButton)
    button.ForeColor = RGB(0, 0, 255)
End Sub 


Gruß
Thomas
Risi Thomas Softwareentwicklung
Anzeige
AW: objekt an sub übergeben und eigenschaften ändern
IngoG
Hallo Thomas,
zunächst einmal vielen dank für den Tip und sorry für die späte Rückmeldung.
Ich habe es auf dem beschriebenen Weg versucht, aber keine Änderung erreicht.
das Modul läuft zwar durch, aber die schriftfarbe des Buttons wird nicht verändert.
Ich werde das Problem jetzt lösen, in dem ich beim Drücken des Buttons explizit diesen Einen anspreche und die Farbe direkt in der ereignisgesteuerten Routine ändere.
Ist zwar nicht wirklich modular programmiert ;-) funzt aber...
Gruß Ingo
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge