Komma in Makro? (nike)
02.12.2003 17:42:52
Markus H.
Nike hatte mir den script gegeben!
Sub loescher()
Dim wks As Worksheet
For i = 1 To 52
Set wks = Worksheets(i & ".KW")
With wks.Range( _
"D4,F4,H4,J4,L4,N4,N9,L9,J9,H9,F9,D9,D14,F14,H14,J14,L14,N14,N19,L19,J19,H19,F19,D19" _
).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="u,f,s,u; a,f; a,s; a,x,k"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte Zeichen aus auswählen!"
.ShowInput = True
.ShowError = True
End With
Next
Application.Goto Reference:="loescher"
Range("D4").Select
End Sub
jetzt hab ich selber heraus gefunden das wenn man
u,f,s,u; a,f; a,s; a,x,k
hier ein , setzt eine neue bedingung geschaffen wird. allerdings brauch ich in einer bedingung auch u, a f, a s, a
das heißt diese kommas müssten auch als kommas wiedergegeben werden!
wenn man jetzt normal ne gültigkeit (Liste( macht steht das drin:
u;f;s;u, a;f, a;s, a;x;k
so klappt das auch.. nur halt mit dem makro nicht!
wer kann helfen?
thx
Anzeige