Gültigkeit / Validation

20/12/2007 - 17:31 von Tomasz Poplawski | Report spam
Hallo NG!

Ich habe ein Problem mit eine Zelle die mir in Form einer Auswahlliste Werte
zur Verfügung stellt.

In der Datei existieren mehrere solcher Zellen, allerdings verhàlt sich nur
diese so seltsam.

Die Inhalte werden aus einer ini gelesen und komma-getrennt in ein String
geschrieben.

Das funktioniert für 99% der Auswahllisten. In einer aber nicht. Da will er
";" als Trennzeichen haben. Warum!?!?!?!?!??!

Mit Application.International(xlListSeparator) gibt es immer ein ";".

Mein Code:
Sub FuelleDropdowns(strRangeName As String, Optional strspecial As String,
Optional strCondition As String)

'Variablen
Dim VarSettings As Variant
Dim varValue As String
Dim i As Integer
Dim strDrpDnContent As String
Dim intUBound As Integer

Dim sep As Variant
'sep = Application.International(xlListSeparator)
sep = ","
VarSettings = GetINISection(strRangeName)

intUBound = UBound(VarSettings, 2)

For i = 0 To intUBound
varValue = VarSettings(1, i)
strDrpDnContent = strDrpDnContent & sep & varValue
Next

ThisWorkbook.ActiveSheet.Range(strRangeName).Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:=xlBetween, Formula1:=strDrpDnContent
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Bitte ..."
.InputMessage = ""
.ErrorMessage = "... einen Eintrag aus der Liste auswàhlen!"
.ShowInput = True
.ShowError = True
End With
Exit Sub

End Sub

Vielen Dank

Gruß

Tomasz Poplawski
 

Lesen sie die antworten

#1 Tomasz Poplawski
20/12/2007 - 17:51 | Warnen spam
Habe gerade selbst rausgefunden woran das liegt.

Nach dem Füllen der Liste wird noch ein Hyperlinks.Add für dieses Sheet
ausgeführt.

Das scheint alle gefüllten listen danach kaputt zu machen. :)

Werden die Listen danach gefüllt, so funktioniert alles so es soll!

Die Lösung habe ich, aber ich weis immer noch nicht warum es so ist.

Gruß

Tomasz Poplawski



"Tomasz Poplawski" schrieb im Newsbeitrag
news:
Hallo NG!

Ich habe ein Problem mit eine Zelle die mir in Form einer Auswahlliste
Werte zur Verfügung stellt.

In der Datei existieren mehrere solcher Zellen, allerdings verhàlt sich
nur diese so seltsam.

Die Inhalte werden aus einer ini gelesen und komma-getrennt in ein String
geschrieben.

Das funktioniert für 99% der Auswahllisten. In einer aber nicht. Da will
er ";" als Trennzeichen haben. Warum!?!?!?!?!??!

Mit Application.International(xlListSeparator) gibt es immer ein ";".

Mein Code:
Sub FuelleDropdowns(strRangeName As String, Optional strspecial As String,
Optional strCondition As String)

'Variablen
Dim VarSettings As Variant
Dim varValue As String
Dim i As Integer
Dim strDrpDnContent As String
Dim intUBound As Integer

Dim sep As Variant
'sep = Application.International(xlListSeparator)
sep = ","
VarSettings = GetINISection(strRangeName)

intUBound = UBound(VarSettings, 2)

For i = 0 To intUBound
varValue = VarSettings(1, i)
strDrpDnContent = strDrpDnContent & sep & varValue
Next

ThisWorkbook.ActiveSheet.Range(strRangeName).Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:=xlBetween, Formula1:=strDrpDnContent
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Bitte ..."
.InputMessage = ""
.ErrorMessage = "... einen Eintrag aus der Liste auswàhlen!"
.ShowInput = True
.ShowError = True
End With
Exit Sub

End Sub

Vielen Dank

Gruß

Tomasz Poplawski



Ähnliche fragen