Hello!

Hvordan kan jeg indstille en datavalideringsliste sådan, at hvis drop down-værdien i cellen slettes, vil cellen automatisk vise en standardværdi (dvs. "-Select-")?

For eksempel har jeg et regneark med flere rullelister, som jeg vil vise en standardværdi på "-Vælg-", når arket er åbnet. En bruger vil vælge værdier fra listerne, som vil påvirke resultatet af beregninger i hele regnearket. En bruger kan ved et uheld "slette" celleindholdet på listerne. Hvis dette sker, i stedet for at cellen bliver tom, vil jeg have cellen til at vise standardværdien "-Vælg-". Dette scenarie forekommer på flere tilfældige steder i regnearket, ikke kun på ét lokaliseret sted.

Jeg var i stand til at finde følgende VBA-kode indtil videre, men den anvender kun konceptet over et område, snarere end blot individuelle celler, der indeholder rullelister. Problemet med det, jeg har kodet indtil nu, er, at hver eneste tomme celle i området ender med "-Select-" i den. Nogle af listerne er i intervaller, men nogle er også spredt over hele arket. Det problem, jeg har med min nuværende kode, er, at hver eneste tomme celle i området ender med "-Select-" i den. Jeg forsøger at få dette til at gælde over hele regnearket til KUN celler, der er rullelister.

Er det, jeg prøver at opnå, overhovedet muligt?

Eksempelfil kan findes her:
https://drive.google.com/file/d/1VoO8VgFs3IJ0ALwqfk0i8gt69UE4vEKW/view?usp=sharing

Eksempel kode:

Mulighed for eksplicit

Privat Sub Worksheet_Change (ByVal Target As Range)
Dim cel som rækkevidde
' Hvis Target.Cells.Count > 1 Then Exit Sub 'deaktivering gør det muligt for flere celler at blive markeret og slettet på samme tid
Hvis ikke skærer (mål, rækkevidde("f2:p17")) er intet så
For hver celle i området("f2:p17")
Application.EnableEvents = False
If IsEmpty(cel.Value) Then cel.Value = "-Select-"
Næste cel
End If
Application.EnableEvents = True
End Sub


Tak på forhånd!

Hej, Hvordan kan jeg få defineret værdigrænse i excel-rullemenuen, som om jeg vil indtaste Apple i produktet mod tre navn, og det skal ikke sætte 4. indtastning og give fejl, hvis jeg gør det, nogen løsning tak.