Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
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

Select-Case Anweisung

Select-Case Anweisung
Andreas
Hallo Excel-Spezialisten,
habe eine Select-Case Anweisung, die nicht ganz Funktioniert.
Der bedingte Bereich ist von A2:E15 festgelegt.
Wenn ich aber außerhalb des Bereiches Zahlen eingebe werden dort auch die Zellen eingefärbt.
Wo liegt der Fehler.
Danke für die Hilfe

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich
Dim Zelle As Range
Set Bereich = Range("A2:E15")
For Each Zelle In Bereich
Select Case Target.Value
Case Is = ""
Target.Interior.ColorIndex = 0
Case Is 

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Select-Case Anweisung
24.01.2011 21:17:17
Gerd
Hallo Andreas,
wenn die geänderte(n) Zelle(n) im Bereich liegen sollen, den Du ruhig als Range deklarieren kannst.
Set Bereich = Intersect(Range("A2:E15"), Target)
if Not Bereich is Nothing Then
For Each ...
................
................
Next
End if
Gruß Gerd
AW: Select-Case Anweisung
24.01.2011 21:24:17
Peter
Hallo Andreas,
versuch es so:
Option Explicit
Private Sub Worksheet_Change(ByVal Zelle As Excel.Range)
Dim Bereich
'Dim Zelle As Range
Set Bereich = Range("A2:E15")
For Each Zelle In Bereich
Select Case Zelle.Value
Case Is = ""
Zelle.Interior.ColorIndex = 0
Case Is 

Gruß Peter
Anzeige
AW: Select-Case Anweisung
24.01.2011 22:06:54
Andreas
Hallo Danke,
Super geht wunderbar
Danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige