Jeg vil gerne undgå VBA koder og Form/AktiveX Controls i løsningen til følgende:

 

I kolonnen A star nogle tal (vilkårlige). Ud fra disse tal anbringer brugeren et bogstav (fx A) i kolonen B, hvormed et tal dukker op i kolonne C.

 

Jeg vil gerne have, at følgende overholdes og kan ske:

1. Der må kun være ét "A" i hele kolonne B.

2. At hvis brugeren ændrer mening, dvs. flytter* "A"'et, fra en celle til en anden, så er det muligt.

* flytter = brugeren kan skrive "A" i en ny celle, hvormed det eksisterende "A" i den gamle celle slettes.

 

Det minder meget om / identisk med Form Control's Alternativ Afkrydsning, men jeg vil bare gerne have, at dette sker inde i cellerne og ikke ude i et objekt.

 

Er dette muligt?

 

Mange tak for hjælpen.

 

Med venlig hilsen

Alexander

 

 

Førlgende kode indsættes i arkets kodemodul og sletter et evt. bestående tegn.

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B21")) Is Nothing Then Exit Sub
If Application.CountIf(Range("B2:B21"), Target) > 1 Then
x = Target: Target = "#"
Range("B2:B21").Find(x, LookIn:=xlValues).ClearContents
Target = x
End If
End Sub

 

 

Mange tak for svar. Selv havde jeg også fundet en løsning via VBA, men mange virksomheder tillader ikke anvendelsen af macro'er og derfor ville jeg gerne undgå VBA-kodningen.