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"