FRAGE AN HAJO WEGEN SCRIPT
01.12.2003 11:22:04
Markus H.
du hattest mir mal vor einiger zeit diesen script gegeben um tabellenblätter zu kopieren:
Sub Makro2()
Dim ByI As Byte
Dim BoI As Boolean
For ByI = 2 To 52
Sheets("1.KW").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = ByI & ".KW"
Range("B1") = Range("B1") + ByI - 1
If BoI Then
Range("BS1") = Worksheets(ByI - 1 & ".KW").Range("BS1") + 14
Else
Range("BS1") = Worksheets(ByI - 1 & ".KW").Range("BS1")
End If
BoI = Not BoI
Next ByI
With Application.VBE.ActiveVBProject
.vbComponents.Remove .vbComponents("Modul1")
End With
End Sub
allerdings habe ich in dem zu kopierenden tabellenblatt eine bedingte gültigkeit mit dropdown feld
inhalt: u;f;s;u, a;f, a;s, a;x;k
allerdings sieht der inhalt nach dem kopieren so aus:
inhalt: u;f;s;u; a;f; a;s; a;x;k
er nimmt alle , und verwandelt sie in ;
warum??
wie kann ich das umgehen???
thx for help!
MFG
Markus