FRAGE AN HAJO WEGEN SCRIPT

Bild

Betrifft: FRAGE AN HAJO WEGEN SCRIPT
von: Markus H.
Geschrieben am: 01.12.2003 11:22:04

Moin!

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
Bild


Betrifft: AW: Frage zum Code, NOCH OFFEN
von: Hajo_Zi
Geschrieben am: 01.12.2003 12:58:58

Hallo Markus

zu Zeit Beantworte ich keine Fragen in den Foren. Mein Rechner ist hin und das wird sich wahrscheinlich auch erst zum Wochenende ändern.

Gruß Hajo


Bild

Beiträge aus den Excel-Beispielen zum Thema " FRAGE AN HAJO WEGEN SCRIPT"