Skal det forstås sådan, at der er tale om samme fil, hvor du har navne på et ark og at disse skal anvendes til navngivning af de øvrige ark i samme fil - eller?
VBA-koden er anbragt under ark X Const tabelKol = "A,O,AC" Const tabelRæk = "1,7,13,19,25,31" Dim antalKol As Integer, antalRæk As Integer Dim tabelK As Variant, tabelR As Variant Dim adrTabel As Variant, kolNr, rækNr, arkNr As Integer Private Sub Worksheet_Change(ByVal Target As Range) Dim adresse, kol, ræk Rem Beregn antal elementer i tabeller tabelK = Split(tabelKol, ",") antalKol = UBound(tabelK)
If kolNr > 0 And rækNr > 0 Then ActiveWorkbook.Sheets(1 + (kolNr - 1) * 6 + rækNr).Name = Target End If End Sub Private Function findKolNr(kol) Dim x As Integer For x = 0 To antalKol If kol = tabelK(x) Then findKolNr = x + 1 Exit Function End If Next x findKolNr = 0 End Function Private Function findRækNr(ræk) Dim x As Integer For x = 0 To antalRæk If ræk = tabelR(x) Then findRækNr = x + 1 Exit Function End If Next x findRækNr = 0 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.