Hello there.
I have some problems with my data validation, I have try google - but can't find a solution to the problem.
I can save it and everything seems working. But then I start up the Excel file, then I get this error:
Some know, how I can fix this?
I have some problems with my data validation, I have try google - but can't find a solution to the problem.
VBA Code:
Private Sub DropDownV4()
Dim ws As Worksheet
Set ws = Worksheets(Sh)
Dim rng As Range: Set rng = ws.Range("B9")
Dim myArray
myArray = Array("Bundtet i luft" & Chr(130) & " på en overflade" & Chr(130) & " indfældet eller inkapslet", "Enkelt lag på væg" & Chr(130) & " gulv eller uperforeret kabelbakke", _
"Enkelt lag fastgjort direkte under et træloft", "Enkelt lag på perforeret vandret eller lodret kabelbakke", _
"Enkelt lag på kabelstige eller på holdere osv.")
With rng.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(myArray, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
I can save it and everything seems working. But then I start up the Excel file, then I get this error:
Code:
<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
<logFileName>error040000_01.xml</logFileName>
<summary>Errors found in the file 'C:\Elektriker.xlsm'</summary>
<removedFeatures>
<removedFeature>Removed feature: Data validation from /xl/worksheets/sheet7.xml-del</removedFeature>
</removedFeatures>
</recoveryLog>
Some know, how I can fix this?