VBA rgb Farbe zuweisen

[Florian20]

Hallo liebes Forum,

Ich Habe mal wieder eine Frage an euch nette Leute, also ich würde gerne den RGB Farb Code zuweisen ich hab die Zuweisung schon so weit das sich der wert auch ändert.
Nun soll aber der wert sich erst ändern wenn ich den Save Button Klicke habe auch schon eine Idee, aber sie geht nicht oder mach ich mir das hier zu leicht ?

Hier meine Idee:


'Speichert die Aktuelle Farbe die gewählt wurde nur bei Klick des Save Buttons
  Dim OldColor1 As Long
'Variablen für alten Farb Code zuweisen
  Image1.BackColor = NewColor1
  NewColor1 = Image3.BackColor
  Image3.BackColor = OldColor1
  NewColor1 = OldColor1
'Zeigt die alte Füll Farbe im Image3
    If CommandButton_Take = True Then
       NewColor1 = Image3.BackColor
    Else
       Image3.BackColor = OldColor1
    End If
End Sub

Ich hoffe ihr könnt mir sagen was ich falsch mache

Liebe Grüße
Florian

[Steffl]

Hallo Florian,

was soll das

Code:

If CommandButton_Take = True

sein?

[Florian20]

Hallo Florian,

was soll das

Code:

If CommandButton_Take = True

sein?

Hallo,

das soll der Verweis zum save button sein

der ist so:

Private Sub CommandButton_Take_Click()
'Speichert die änderungen und schließt das programm
  ActiveWorkbook.Save
  Unload Me
End Sub

[EbyAS]

Hallo,
diese Anweisung existiert nicht.

Code:

Private Sub CommandButton_Take_Click()

Ich vermute :

Code:

Private Sub CommandButton_Click()

[Florian20]

Hallo,
diese Anweisung existiert nicht.

Code:

Private Sub CommandButton_Take_Click()

Ich vermute :

Code:

Private Sub CommandButton_Click()

Hallo,

Das ist keine Anweisung das ist der Name des Save Buttons. :19:

[Steffl]

Hallo Florian,

aufgerufen wird dein Makro (dessen Namen ich nicht kenne) vom dem CommandButton!!!!!!!!!

Code:

Private Sub CommandButton_Take_Click()
'Speichert die änderungen und schließt das programm
  prcFlorian20 ActiveControl.Name
  ActiveWorkbook.Save
  Unload Me
End Sub


Sub prcFlorian20(strName As String)
'Speichert die Aktuelle Farbe die gewählt wurde nur bei Klick des Save Buttons
  Dim OldColor1 As Long
'Variablen für alten Farb Code zuweisen
  Image1.BackColor = NewColor1
  NewColor1 = Image3.BackColor
  Image3.BackColor = OldColor1
  NewColor1 = OldColor1
'Zeigt die alte Füll Farbe im Image3
    If strName = "CommandButton_Take" Then
       NewColor1 = Image3.BackColor
    Else
       Image3.BackColor = OldColor1
    End If
End Sub

[Rabe]

Hi,

es ist schlecht, wenn die Namen von Variablen, Buttons oder sonstigen Shapes wie tatsächliche Excel-Sachen benannt sind. Wenn schon umbenennen, dann nach der ungarischen Notation. Sonst kommt es immer zu Mißverständnissen oder Excel-Fehlern.

siehe hier:
http://www.online-excel.de/excel/singsel_vba.php?f=4
ca. in der Mitte bei "Technik für Variablennamen"

Ich benenne Module statt Modul1, Modul2,... so:
mdl_WiedererkennbarerName (der evtl. die Funktion beschreibt)
Userforms so:
frm_WiedererkennbarerName
Buttons:
btn_WiedererkennbarerName
usw..

[Florian20]

Also der button ist zum speichern da und nicht um das Programm zu offen es soll nur die Farbe auf das image3 Übernohmen werden wenn ich speichern drücke und wenn ich das Programm offne soll die alte Farbe im imagimage3 angezeigt werden

[chris-ka]

hi,
Zur Info für die Anderen

http://www.clever-excel-forum.de/thread-...#pid114224

hängt wohl damit zusammen

[Florian20]

hi,
Zur Info für die Anderen

http://www.clever-excel-forum.de/thread-...#pid114224

hängt wohl damit zusammen

Hi nein tut es nicht das hab ich ja lösen können aber das hab ich auch oben in der Frage beschrieben