Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereich wählen

Bereich wählen
14.03.2007 22:16:43
Susi
Hi Profis
habe hier einen Code gefunden mit dem ich Zellen färben kann wenn verschuedene Buchstaben drin stehen. Hier wird aber nur die kommplette Zeile angegeben. Ich habe aber mehr Bereiche zb. D1:J1, D4:J4, D2:J9. Könnt ihr mir da helfen das ich den Code so umstellen kann das ich die verschiedenen Bereiche eintargen kann.
Gruß Susi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 10 Then
Select Case Cells(10, Target.Column)
Case Is = "A"
Cells(10, Target.Column).Interior.ColorIndex = 3
Case Is = "B"
Cells(10, Target.Column).Interior.ColorIndex = 6
Case Is = ""
Cells(10, Target.Column).Interior.ColorIndex = xlNone
' hier können weitere Zuweisungen folgen
End Select
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Bereich wählen
14.03.2007 22:44:00
Matthias
Hallo Susi,
das geht z.B. so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich As Range, rng As Range, z As Range
Set bereich = Range("D1:J1,D4:J4,D9:J9")
Set rng = Intersect(Target, bereich)
If Not rng Is Nothing Then
For Each z In rng
Select Case z
Case Is = "A"
z.Interior.ColorIndex = 3
Case Is = "B"
z.Interior.ColorIndex = 6
Case Is = ""
z.Interior.ColorIndex = xlNone
' hier können weitere Zuweisungen folgen
End Select
Next z
End If
End Sub

Gruß Matthias
AW: Bereich wählen
14.03.2007 23:04:00
Susi
Danke für deine hilfe.
Gruß Susi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige