Excel - Generering af underark med navn og automatisk oprettelse af "områdenavn"
Hjælp søges!
Jeg skal bruge et excelark, hvor brugeren har mulighed for at vælge opret nyt underark og give det et navn fx. leverandør1.
Arket der oprettes skal være efter en skabelon og der skal være flere områder i arket der automatisk får et "områdenavn" fx. "A4"="leverandør1_fakturering%"
Yderligere skal der på et samleark oprettes en post og henvises til de valgte "områder" i mit nye underark.
Er det en kæmpe kode der skal til, for at dette kan lade sig gøre? - Evt. er der en der kan pege mig lidt i den rigtige retning til at starte med, det er lang tid siden jeg har arbejdet med VB.
Har en færdig model med VBA-kode som du kan få, hvis du sender en mail. Ark1: Skabelon Ark2: SamleArk Leverandør ark oprettes herefter
VBA-koden ser således ud og er anbragt i ThisWorkbook: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Rem dobbelklikkes der på ark "Skabelon" i celle A1 - så..:
If Sh.Name = "Skabelon" And Target.Address = "$A$1" Then arknavn = InputBox("Indtast ønskede arknavn:", "Oprettelse af leverandør-ark") If arknavn <> "" Then Rem Opret nyt ark med ønskede navn Sheets("Skabelon").Select Sheets("Skabelon").Copy After:=Worksheets(Worksheets.Count) ActiveSheet.Name = arknavn
Rem opret leverandøren i samleark - indsæt navn i 1. tomme trække Sheets("Samleark").Activate Range("A" & findTomRække) = arknavn End If End If End Sub Private Function findTomRække() Dim ræk As Long For ræk = 1 To 65000 If Range("A" & ræk) = "" Then findTomRække = CStr(ræk) Exit Function End If Next ræk End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
