Kopier ark med VBA

Hvis det er en hjælp, så kan du holde ctrl nede og klikke på fanen og trække mod højre, så dannes der en kopi. Det gør det hurtigere at kopiere arket.

Hej Thomas_bk

Det er bestemt en hjælp, så tak for det.

Jeg er dog også interesseret i en løsning på ovenstående, da der også er andre brugere og det derfor gerne må være nemt via en knap.

Vh CHC

Denne kode kan sikkert forbedres, men den gør jobbet, forudsat, at det ark, derkal kopieres er det aktive ark. Koden indsætter kopien lige efter det ark, der  kopieres, og giver den kopiens navn + 1. Den virker kun, hvis der ikke allerede er et ark, med navn, den fårå. Hvis du fx har ark 2.3 vil det nye ark kommer til at hedde 2.4, men hvis du allerede har et ark med det navn, vil den fejle. Men du kan evt selv arbejde videre med koden.

Sub KopierogOmdoeb()
    Dim name As String, numm As String, lastpart As String, firstpart As String
   
    name = ActiveSheet.name
    numm = InStrRev(name, ".", Len(name))
    numm = CInt(numm)
   
    lastpart = CInt(Mid(name, numm + 1, Len(name)))
    firstpart = Left(name, InStrRev(name, ".", numm))
   
    ActiveSheet.Copy after:=ActiveSheet
   
    ActiveSheet.name = firstpart & lastpart + 1
End Sub

Hej Jan K

Mange tak for dit bud på en løsning.

Jeg kunne dog rigtig godt tænke mig, at nummereringen var identisk med ovenstående beskrivelse, hvor man ved at højreklikke på fanen og vælger 'flyt eller kopier' og sætter kryds i 'opret en kopi' får lavet en kopi med en nummerering, som f.eks. fane 2.1, så de hedder 2.1(2), 2.1(3) osv.

Vh CHC

Det er nemt. Slet alt, bortset fra ActiveSheet.Copy After:=ActiveSheet

Resten  bruges faktisk kun til navngivningen af det nye ark.

Hej Jan K

Mange tak for hjælpen. Det var sådan set ret simpelt!

Vh CHC

Velbekomme :-)