Herbers Excel-Forum - das Archiv
Zellen als Auswahlfeld
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
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
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