Autoopret af ark + navngivning

Denne makro kan gøre det, men er ikke helt automatisk.
Du skal stå på cellen med det nye navn og så køre makroen. Dette kan du evt. klare ved at indsætte en knap der kører den.

Sub AddWorksheetExample()
    Dim wksNewSheet    As Excel.Worksheet
    Dim wksNewSheets    As Excel.Worksheet
    detteark = ActiveSheet.Name
    navn = ActiveCell.Value
    With ThisWorkbook
        Set wksNewSheet = Worksheets.Add
        wksNewSheet.Name = navn
    End With
    Sheets(detteark).Activate
End Sub

Denne makro er semi automatisk, og koden skal placeres i arkets eget kodemodul. Hver gang der ændres en tekst i kolonne A bliver du promptet for, om du vil oprette et ark med dette navn. Skal prøves :-)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rColumn As Range
Dim wsAdd As Worksheet
Dim vSvar As Variant
    Set rColumn = Range(\"A:A\")
   
    If Not Intersect(Target, rColumn) Is Nothing Then
       
        vSvar = \"\"
        vSvar = MsgBox(\"Der er ændret i kolonne A.\" & vbCrLf & vbCrLf & _
              \"Skal der oprettes et ark med navnet \" & Target.Value & \" ?\", _
              vbYesNo, \"Systeminformation\")
       
        If vSvar = vbYes Then
            Set wsAdd = Worksheets.Add
            wsAdd.Name = Target.Value
        End If
   
    End If
   
Set rColumn = Nothing
Set wsAdd = Nothing
End Sub

Glimragende Flemming. Jeg låner lige \"Not intersect\" til brug for en anden gang.
Jeg turde ikke lave min så automatisk, for jeg troede man ville blive spurgt for mange gange, men nu kan jeg se at det ikke er tilfældet.
Bak

:-) velbekomme BAK - jeg har flere i ærmet :-)

husk at følge \"Not Intersect\" op med \"Is Nothing\"

Har først tid til at afprøve i morgen. Vender snarligt tilbage

Palmanimal

Helt OK :-)

Hej Flemming.
Som Sagt er jeg ikke nogen Xl nørd. Kan du skære det ud i pap hvad jeg skal gøre ??
Hvad er arkets eget kodemodul ?

Højreklik på fanebladet\'s navn (der hvor der står \"Ark1\") vælg \"Vis programkode\" - Nu befinder du dig på kodemodulet for \"Ark1\". Indsæt koden her.

Hjalp det !

Genialt ! slet og ret..

www.win-consult.com takker og bukker :-)