AW: Button Backcolor
23.03.2018 12:49:01
Antonio
Hallo Zwenn,
ich stehe völlig daneben.
Also die Buttons (Array) haben schon beim starten der Form die Ausgangsfarbe.
Hier mein Code in der Form für die Buttons:
Dim myClass1 As clsButtonArray1 '###### Button Array 1 #####
Set myColl1 = New Collection
Dim myClass2 As clsButtonArray2
Set myColl2 = New Collection
Dim a As Integer, j As Integer, k As Integer, t As Integer
k = 1 'Spalte
j = 1 'Zeile
t = 10 'Anzahl Tasten in Zeile
For i = 1 To 60
Set ctrl = UserForm1.Frame1.Controls.Add("Forms.CommandButton.1", "myCmd1" & i, True)
With ctrl
.Tag = i
' .Caption = "cmdButton " & Format(i, CStr("00"))
.Left = k * 50.6 - 50.6
.Height = 20
.Width = 50.6
.Top = j * 20 - 20
.BackColor = &H80000002
.Font.Size = 9
End With
k = k + 1
If i Mod t = 0 Then
j = j + 1 'nächste Zeile
k = 1
End If
Hier mein Code in ein Klassenmodul für das Click Ereignis der Buttons:
Option Explicit
Dim myColl1 As New Collection
Dim myColl2 As New Collection
Public WithEvents myCmd2 As MSForms.CommandButton
Public WithEvents myCmd1 As MSForms.CommandButton
Private Sub myCmd1_Click()
Worksheets("Tabelle6").Activate
ActiveSheet.Cells(9, 11).Value = myCmd1.Caption
Dim Text As String
Text = ActiveSheet.Cells(9, 11).Value
ActiveSheet.Cells(8, 11).Value = Right(Cells(9, 11).Text, Len(Cells(9, 11).Text) - 1)
'MsgBox myCmd1.Caption
Call UserForm1.Eintragen
Call UserForm1.copy_paste
Call UserForm1.InStr
End Sub
Kannst du mir bitte sagen was und wo ich was screiben soll.
In Click Ereignis habe mein Code schon gehabt aber die Buttons ändern die Farbe aber schalten sie nicht zurück beim nächtes Click.
Und das mit dem Zurücksetzen habe leider nicht verstanden.
Vielleich gibst du mir ein Anregung oder ein bisschen Code zum Verständnis.
Danke in Voraus
Antonio