For Schleife Problem

21/01/2008 - 14:15 von Petra Kessler | Report spam
Hallo NG

Ich habe in Tabelle1 A15 eine Auswertung in der je nach Ausrechnung
verschiedene Wörter stehen.
z.B Januar; Februar; Màrz ..Dezember.

Weiterhin habe ich ein Formular "Userform1" mit 12 Buttons. Die Captions
sind mit Januar; Februar; Màrz ..Dezember beschriftet.

Nun möchte ich mit einer For Schleife die Zelle A15 auswerten und den
entsprechenden Button in Userform1 in einer anderen Farbe einfàrben.

Dim Zahl As Integer
Dim Taste

Zahl = 0

For Each Controls.Count In Userform1
Zahl = Zahl + 1

Taste = "CommandButton" & Zahl & ".BackColor"

If Zahl = Workbooks("Mappe1.xlsm").Sheets("Tabelle1").Range("A15").Value
Then
Taste = &H80FF&
Else
Taste = &HFFFF&
End If
Next

Leider erhalte ich immer die Fehlermeldung "Variable erforderlich -
Zuweisung an diesen Ausdruck nicht möglich."

Ich stehe da im Moment etwas auf dem Schlauch. Wer kann mir da netter Weise
weiter helfen?
Was ist da falsch an dem Ding?

Gruß Petra
 

Lesen sie die antworten

#1 Melanie Breden
21/01/2008 - 14:48 | Warnen spam
Hallo Petra,

"Petra Kessler" schrieb:
Ich habe in Tabelle1 A15 eine Auswertung in der je nach Ausrechnung verschiedene Wörter stehen.
z.B Januar; Februar; Màrz ..Dezember.

Weiterhin habe ich ein Formular "Userform1" mit 12 Buttons. Die Captions sind mit Januar;
Februar; Màrz ..Dezember beschriftet.

Nun möchte ich mit einer For Schleife die Zelle A15 auswerten und den entsprechenden Button in
Userform1 in einer anderen Farbe einfàrben.



ich würde die Caption-Bezeichnungen gleich mit dem Wert in der Tabelle vergleichen.
Das könnte so aussehen:

Private Sub CommandButton1_Click()
Dim ctl As Control

For Each ctl In UserForm1.Controls
' Nur CommandButton durchlaufen
If TypeName(ctl) = "CommandButton" Then
' Caption prüfen
If ctl.Caption = Range("A15").Value Then
ctl.BackColor = &H80FF&
Else
ctl.BackColor = &HFFFF&
End If
End If
Next ctl
End Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de
Das Excel-VBA Codebook 2007 http://tinyurl.com/2nwvod

Ähnliche fragen