Hallo,
ich verwende für "Command Buttons" immer wieder einen sehr ähnlichen Ablauf
Nun möchte ich am Anfang des Codes gerne dem Objekt "MeinObjekt" das Objekt "cb_Akte" zuordnen. Dann kann ich das immer schnell für den gesamten Abschnitt austauschen.
Das funktioniert aber nicht, da in "MeinObjekt" der Inhalt des Objekts "cb_Akte" gespeichert wird und nicht das Objekt selber. Was mache ich falsch?
Private Sub cb_Akte_Click()
Public MeinObjekt as object
Set MeinObjekt = cb_Akte
Spalte = 50
If MeinObjekt .BackColor = &H8000000F Then MeinObjekt .BackColor = &HFF00& Else MeinObjekt .BackColor = &H8000000F ' Farbe Messpunkt 1 grün oder grau
If MeinObjekt.BackColor = &HFF00& Then
Workbooks(WorkbookName).Sheets("Aufträge").Cells(Aktueller_Fall_Zeile, Spalte) = Date
Else
Workbooks(WorkbookName).Sheets("Aufträge").Cells(Aktueller_Fall_Zeile, Spalte) = ""
End If
End Sub |