Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Zellen als Auswahlfeld"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen