Zellen als Auswahlfeld

Bild

Betrifft: Zellen als Auswahlfeld
von: Reinhard Müller
Geschrieben am: 07.04.2005 18:46:00

Hallo Zusammen,
ich habe 4 zellen AC17:AC20. Die einzelne Zelle soll mit einem X gekenzeichnet
werden, um eine Option anzuzeigen, die in der rechten Nebenzelle steht. Es
darf aber immer nur eine Zelle ausgewählt werden . Also wenn ich in Zelle AC17
ein Kreuz habe, und ich ein Kreuz in AC18 mache, muss das Kreuz in AC17
verschwinden. Ferner muß es egal sein, ob ich X oder x eingebe. Vielleicht
kann mir jemand helfen?

Gruß aus ROW von Reinhard

Bild

Betrifft: AW: Zellen als Auswahlfeld
von: Ceyser Soze
Geschrieben am: 07.04.2005 19:38:58
Hi Reinhard,
das müsste helfen:

      
Private Sub Worksheet_Change(ByVal Target As Range)
    
Dim xRange As Range, Zelle As Range
    
Set xRange = Range("AC17:AC20")
    
If Not Application.Intersect(Range(Target.Address), xRange) Is Nothing Then
        
If UCase(Target.Value) = "X" Then
            
For Each Zelle In xRange
                
If UCase(Zelle.Value) = "X" And Target.Address <> Zelle.Address Then
                    Zelle.Clear
                
End If
            
Next Zelle
        
End If
    
End If
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß CS
Bild

Betrifft: AW: Zellen als Auswahlfeld
von: Reinhard Müller
Geschrieben am: 07.04.2005 21:58:37
Hallo CS
hat super geklappt. Da meine Zellen einen Rahmen haben, habe ich nur den Code
Zelle.Clear in
Zelle.ClearContents
geändert.

Also vielen Dank für die schnelle Hilfe.

Gruß aus dem Norden

Reinhard
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen als Auswahlfeld"