Automatisk oprettelse af flere ark

Hej ohansen1

Jeg har måske noget du kan bruge ... det er lavet i Excel version 2003.

Hvilken version har du ??


Med venlig hilsen, Nicolai

Hej ohansen1

Det jeg har er:

En knap på faneblad 1, som åbner en lille formular, hvorpå der er et tekstfelt og endnu en knap.

I tekstfeltet tastes antallet af ønskede nye faneblade og med knappen starter oprettelsen af fanebladene.

Før hver oprettelse af et nyt faneblad spørger en input boks om det aktuelle faneblads navn.

Når alle ønskede faneblade er oprettet/navngivet, lukkes den lille formular.

Jeg vil gerne poste den til dig ... skriv blot til nicolaifogt@gmail.com

Med venlig hilsen, Nicolai

Hej Ialocin
Jeg sender dig min e-mail adresser
Hilsen
ohansen1

Hej Ialocin
ja alt fungerer og tak for filerne
Hilsen
ohansen1

Hej John

Bare for go´ ordens skyld, så kommer her lige hvad jeg har gjort.

Jeg har oprettet:
- en knap med navnet "cmdIndsætNyeArk" i Excel.
- en UserForm i Excel´s vba miljø med navnet "frmIndsætNyeArk"
- en tekstboks på UserFormen med navnet "txtAntalArk"
- en knap på UserFormen med navnet "cmdOpretArk"


Diverse vba hændelser/koder:

- NewSheet hændelse i Workbook:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
'indsæt nyt ark, bagest i rækken af ark
Sh.Move After:=Sheets(Sheets.Count)
End Sub



- Klik hændelse bag knappen "cmdIndsætNyeArk"

Private Sub cmdIndsætNyeArk_Click()
'åbn formular
frmIndsætNyeArk.Show
End Sub



- Klik hændelse bag knappen "cmdOpretArk"

Private Sub cmdOpretArk_Click()
On Error GoTo OpretArk_cmd_Click

Dim a As Integer        'antal ark der ønskes oprettet
Dim b As Integer        'tællevariabel
Dim arknavn As String  'det aktuelle arknavn


'tjek om der er indtastet et antal ark, der ønskes oprettet
If Me.txtAntalArk.Value = "" Then

    'hvis der IKKE er indtastet en antal!
    MsgBox "Der er ikke indtastet noget", vbInformation

Else

    'lav evt. indtastet komma tal om til et heltal
    a = Int(Me.txtAntalArk.Value)
    Me.txtAntalArk.Value = a
       
       
           
        'løb gennem antallet af ønskede ark
        For b = 1 To a

            'tilføj ark
            ActiveWorkbook.Sheets.Add
           
            'tilføj arket et navn
line1:      arknavn = InputBox("Ark nummer:" & " " & b)
           
           
              'tjek om der er tastet et arknavn
              If arknavn = "" Then
           
                  'hvis der IKKE er tilføjet at arknavn
                  MsgBox "Der er ikke indtastet noget arknavn", vbInformation
               
                  'gå til line1 og prøv igen!
                  GoTo line1
               
              Else
           
                  'tildel arket sit navn
                  ActiveWorkbook.ActiveSheet.Name = arknavn
           
              End If
           
           
        'forfra med næste ark
        Next



    'luk formular efter sidste ark
    Me.txtAntalArk.Value = ""
    Me.Hide

     
End If


exit_cmd_Click:
    Exit Sub

'fejlmeddelelse, hvis der ikke er indtastet et tal
OpretArk_cmd_Click:

    MsgBox "Der er ikke indtastet et heltal", vbInformation

    Resume exit_cmd_Click

End Sub