Arkfane navn

Det virker upåklageligt hos mig. Hvilken linie viser debug fejl i?

Det skyldes at du forsøger at navngive 2 skemaer med samme navn; det som står i C3 i det aktive ark.

Når du kopierer arket så er det "jo" samme værdi i C3 i begge ark.

Et spørgsmål:
Skal der skiftes navn på skema hver gang der sker en ændring i regnearket?

hvis ja kan du bruge denne formel:
Private Sub Worksheet_Change(ByVal Target As Range)
On error resume next
Sheets(ActiveSheet.Name).Name = Range("c3")

End Sub

jkorns: Det er i forbindelse med ændring nr. to og flere i arket!

Når du ændrer i master2, vil den prøve at give arket det navn, der står i c3, og det er der allerede et ark, der har. Du kan ændre din kode, så det kun er ændringer i c3, der opdaterer navnet, ikek ændirnger i andre celler.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("c3")) Is Nothing Then
        Sheets(ActiveSheet.Name).Name = Range("c3")
    End If
End Sub

arkfanen "master" skal bruges til at oprette nye arkfanen med. Når jeg lave en kopi af "master", er det meningen, at jeg i cellen c3 skal skrive hvad den ny arkfane skal hedde. Men problemet er, at når jeg har lavet en kopi af "master" får jeg beskeden "debug..."

håber dette kan være med til løse mit problem.

Et spørgsmål:
Skal der skiftes navn på skema hver gang der sker en ændring i regnearket?

Ja, det er meningen, at navnet på arkfanen skal skifte, når jeg ændrer i cellen c3.

for at gøre det mere klart.

kopien af "master" => "master2" - her er det meningen at jeg i den ny ark "master2" i celle c3 skal skrive havd den ny ark skal hedde.

Det burde ikek volde problemer med den sidste kode, jeg har lagt.

Så er det jkrons's kode som er den "rigtige"

hvis c3 er en formel, så vil jkrons senenste kode ikke virke

i celle c3 indeholder følgende formel

=HVIS($B$3="";"";SAMMENKÆDNING($A$3;$B$3))

formel siger, hvis der bliver tastet noget i b3, så skal der indeholder i celle a3 og b3 sammenkædes - fx. celle a3: tekst; celle b3: test => celle c3:teksttest

i øvrigt hvordan kan man lave mellemrum mellem et sammekæde tekst??? - dette vil give 15 point ekstra - på forhånd tak

Når c3 indeholder en formel, skal min kode rettes til at pege på den celle, du peger på, nemlig B3.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b3")) Is Nothing Then
        Sheets(ActiveSheet.Name).Name = Range("c3")
    End If
End Sub

Sammenkædninf med mellemrum:

=SAMMENKÆDNING(A3;" ";B3)

Peger på = retter i.

yep, its working

mange tak for hjælpen

hvordan giver jeg dig point, jkrons??

hvordan kan man via en makro lave en kopi af bestemt arkfane, fx. "master". Her havde jeg tænkt på via en knap løsning

Du giver point ved at acceptere et svar :-)

Sidste spørgsmål: Læg denne kode på en knap:

    Sheets("master").Copy After:=Sheets("Master")

nu har jeg prøvet lavet en arkfane - jo flere jeg lave i samme regenark des tungere bliver regneark => det tager længere og længere tid, når jeg lave et kopi af "master". Den står og beregner celler fra 0% til 100%. Når den er færdig med at beregne og jeg taster i celle b3, som arkfane skal hedde, beregner igen. Hvorfor gør den det. Jeg har lavet omkring 40 arkfaner.

jeg har prøvet at kopier denne kode


Sheets("master").Copy After:=Sheets("Master")

Men den virker ikke

Hvad skal jeg præcis skrive???

Fordi hele mappen opdateres ved hver ændring. For at undgå det, er du nok nødt til at slå automatriskl bregning fra under Funktioner - Indstillinger. Fanebladet Beregning.

jo flere kopier jeg laver af "master" des tungere bliver regnearket => det tager længere og længere tid at lave et kopi af arket. Kan dette skyldes at "master" er bygget op med formlen Lopslag. Dem har jeg rigtige mange af - rigtige mange. For hvert md for hvert produkt skal den finde. Hvis jeg har 40 akr af disse og den skal søge efter data - kan dette være med til at skabe længere ventetid på dannelse af ny arkfane af "master"

Indsæt en kommandoknap i dit ark og højreklik på den. Vælg Vis program kode og sæt linien ind mellem de to andre:

Private Sub CommandButton1_Click()
    Sheets("master").Copy After:=Sheets("Master")
End Sub

Omkring opdateringstiden er det sådan set ligegyldigt, hvilke formler du har. Det er mængden af dem, og deres kompleksitet i beregningerne, der har betydning.

sorry, for den sene svar. Mange tak for hjælpen.

sorry, for den sene svar. Mange tak for hjælpen.

sorry, for den sene svar. Mange tak for hjælpen.

Velbekomme