Makro das 52 Tabellenblätter ändert
01.12.2003 11:48:51
Markus H.
ich habe mir dieses Script aufgezeichnet:
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" _
).Select
Range("D19").Activate
With Selection.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
und habe dazu 52 Tabellenblätter (1.KW - 52.KW) über die das Script laufen soll.
wie stlel ich das am günstigsten an?
(das script sollte sich nach seiner ausführung automatisch löschen)
MfG
Markus