Sub-Schleife
12.09.2016 13:39:49
Thomas
kann man,wenn ich mehrere Sub´s mit der gleichen Anweisung darunter habe, dass mit einer Schleife vereinfachen?
Beispiel: 10 X Grafik_Klicken
Sub Grafik1_Klicken()
If Worksheets(1).Range("B11").Interior.Color = RGB(56, 56, 56) Then
Worksheets(1).Range("B11").Interior.Color = RGB(0, 156, 0)
Else
Worksheets(1).Range("B11").Interior.Color = RGB(56, 56, 56)
End If
End Sub
Sub Grafik2_Klicken()
If Worksheets(1).Range("E11").Interior.Color = RGB(56, 56, 56) Then
Worksheets(1).Range("E11").Interior.Color = RGB(0, 156, 0)
Else
Worksheets(1).Range("E11").Interior.Color = RGB(56, 56, 56)
End If
End Sub
Sub Grafik3_Klicken()
If Worksheets(1).Range("H11").Interior.Color = RGB(56, 56, 56) Then
Worksheets(1).Range("H11").Interior.Color = RGB(0, 156, 0)
Else
Worksheets(1).Range("H11").Interior.Color = RGB(56, 56, 56)
End If
End Sub
Anzeige