FarbenIndexUmsetzen

Forumthread: FarbenIndexUmsetzen

FarbenIndexUmsetzen

Volker


Sub FarbenIndexUmsetzen()
Sheets("Farben").Activate
Range("A15").Select
Select Case ActiveCell.Value
Case 1 'schwarz
ActiveCell.Offset(0, 1).Interior.ColorIndex = 1
Case 3 'rot
ActiveCell.Offset(0, 1).Interior.ColorIndex = 3
End Select
End Sub

Hallo !
Ich möchte das Case 3 'rot auch gemacht werden soll!!
Es ist aber nicht der Fall nur Case 1 'schwarz und dann End Select?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: FarbenIndexUmsetzen

Hajo_Zi
AW: FarbenIndexUmsetzen

Volker

AW: FarbenIndexUmsetzen

Hajo_Zi

Hallo Volker
Auf select, Activate usw. kann in VBA zu 99% verzichtet werden


Sub FarbenIndexUmsetzen()
With Sheets("Farben").Range("A15")
Select Case .Value
Case 1 'schwarz
.Offset(0, 1).Interior.ColorIndex = 1
Case 3 'rot
.Offset(0, 1).Interior.ColorIndex = 3
End Select
End With
End Sub

AW: FarbenIndexUmsetzen

25.03.2004 09:49:12

Volker

Möchte mich für eure Mühe recht herzlich Betanken!!!
Find ich Saustark!!!!

Forumthread: FarbenIndexUmsetzen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread