Clever-Excel-Forum - VBA rgb Farbe zuweisen

Seiten: 1 2

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 Huh

Liebe Grüße
Florian

Hallo Florian,

was soll das

Code:
If CommandButton_Take = True

sein?

(21.03.2018, 15:31)Steffl schrieb: [ -> ]Hallo Florian,

was soll das

Code:
If CommandButton_Take = True

sein?

Hallo,

das soll der Verweis zum save button sein Blush

der ist so:

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

Hallo,
diese Anweisung existiert nicht.

Code:
Private Sub CommandButton_Take_Click()

Ich vermute :

Code:
Private Sub CommandButton_Click()

(21.03.2018, 15:44)EbyAS schrieb: [ -> ]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:

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

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..

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

hi,
Zur Info für die Anderen

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

hängt wohl damit zusammen

(21.03.2018, 17:09)chris-ka schrieb: [ -> ]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

Seiten: 1 2