Daten--Gültigkeit--Liste aktualisiert sich falsch
21.12.2008 18:31:00
Reinhard
In Datei--Gültigkeit--Liste von D1 steht ja durch das SelectionChange-Ereignis das Richtige drin, also
1;2;3;4;5;6;7
aber es erscheint in der Auswahl nicht so
1
2
3
4
5
6
7
...
sondern in einer einzigen Zeile. Erst wenn ich dann manuell in Daten--Gültigkeit gehe und ohne Änderung "Ok" klicke klappt es.
Wie kann man den Code verbessern?
Die auskommentierten Zeilen halfen nicht.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ausw, arr
If Target.Cells.Count 1 Then Exit Sub
If Target.Address(0, 0) "D1" Then Exit Sub
Ausw = Join(WorksheetFunction.Transpose(Range("A1:A100")), ";")
'MsgBox Ausw
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Ausw
End With
'Call Makro1
'DoEvents
'Application.EnableEvents = False
'With Target.Validation
' .Delete
' .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
' xlBetween, Formula1:=Ausw
'End With
'Target.Select
'Application.EnableEvents = True
End Sub
Sub Makro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1;2;3;3;3;3;3;3;3;3;3;3;3;3;3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Danke ^ Gruß
Reinhard