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

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?
Anzeige

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

Betreff
Benutzer
Anzeige
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



Anzeige
AW: FarbenIndexUmsetzen
25.03.2004 08:49:12
Volker
Möchte mich für eure Mühe recht herzlich Betanken!!!
Find ich Saustark!!!!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige