Microsoft Excel

Herbers Excel/VBA-Archiv

Falsche bennenung der Kopierten blätter

Betrifft: Falsche bennenung der Kopierten blätter von: Matthias
Geschrieben am: 15.09.2004 07:25:50

Woran liegt es das er nach diesem Quellcode die Eingefügten blätter falsch benennt?

er soll wie folgt Nummerieren Page_2,Page_3 usw.

aber er beginnt bei Page_11 woran liegt das?
Bitte um Hilfe und bedanke mich schon mal im Voraus

Sub cmd_Blätter_einfügen()
Dim iCounter As Integer
Dim iCount As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 5
    iCount = Worksheets.Count
    Worksheets(iCount).Visible = True
    Worksheets(iCount).Copy after:=Worksheets(iCount)
    ActiveSheet.Name = "Page_1" & iCounter
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
        .Properties("_CodeName").Value = ActiveSheet.Name
    End With
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub

  


Betrifft: AW: Falsche bennenung der Kopierten blätter von: cHRIS
Geschrieben am: 15.09.2004 07:31:45

Hallo Mathias,

Mit ActiveSheet.Name = "Page_" & iCounter fängt er bei Page_1 an
mit "Page_" & iCounter + 1 würde er bei Page_2 anfangen

viele Grüße
Chris


  


Betrifft: AW: Falsche bennenung der Kopierten blätter von: Matthias
Geschrieben am: 15.09.2004 08:12:52

Danke für deine Hilfe Chris

MFG Matthias


 

Beiträge aus den Excel-Beispielen zum Thema "Falsche bennenung der Kopierten blätter"