05. september 2004 - 13:56Der er
10 kommentarer og 1 løsning
indhentning af navn på faneblad
Jeg har et regneark med regnskab, hvor jeg har et ark for hver måned, og et der summerer op for hver måned. Når jeg skal lave en ny kolonne med udgifter, indtægter osv. i summerings-arket, kopierer jeg den foregående. originalen hedder f.eks.: =okt04!D15, mens kopien bliver: =nov04!E15 kan jeg på en eller anden måde få den til at tage titlen på det sidste faneblad i stedet, og ændre den, samtidig med at ceele-reference er den samme? Håber i forstår hvad jeg mener
ok, det jeg vil have den til, er at hente navnet på det faneblad der ligger sidst i rækken, og ændre DET i celle-referencen. Sådan at når jeg kopierer cellen, skifter den fra =okt04!D15 til =nov04!D15, pr. automatik
Via makro kan du, men det kræver at det sidste ark også er længst til højre, når du kikker på fanerne.
Maker de celler i den nye kolonne, du vil have regnskabet i,kør såmakroen, den kikker så på kolonnen før og laver ref. svarende til den, men med det sidste ark, som navn.
Makroen skal ligge i et modul.
Public Sub NæsteMåned() Dim S As Variant, A As Integer, B As String, Ny As String If ActiveSheet.Name = "Ark1" Then A = ThisWorkbook.Sheets.Count B = Worksheets(A).Name For Each c In Selection If c.Offset(0, -1).HasFormula Then S = Split(c.Offset(0, -1).Formula, "!") Ny = "=" & B & "!" & S(1) c.Value = Ny End If Next End If End Sub
Public Sub NæsteMåned() Dim S As Variant, A As Integer, B As String, Ny As String If ActiveSheet.Name = "Ark1" Then' ret lige navnet til dit samleark A = ThisWorkbook.Sheets.Count B = Worksheets(A).Name For Each c In Selection If c.Offset(0, -1).HasFormula Then S = Split(c.Offset(0, -1).Formula, "!") Ny = "=" & B & "!" & S(1) c.Value = Ny End If Next End If End Sub
ret lige navnet til dit samleark, det er fordi makroen kun må køre på dette ark
ok, lige to tillægsspørgsmål: Jeg er kun vant til at indspille makroer i word, hvordan gør man lige hvis man sidder med sådan et script som du giver mig her? Er der ikke nogen tutorials til excel et sted?
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.