Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sub-Schleife

Sub-Schleife
12.09.2016 13:39:49
Thomas
Hallo zusammen,
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
........usw

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sub-Schleife
12.09.2016 14:18:39
Thomas
Hat sich erledigt.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige