Just nu i M3-nätverket
Gå till innehåll
Tommy H

Hämta Fliknamn från cell Excel VBA

Rekommendera Poster

Tommy H

Hej!

Jag vill hämta fliknamnet på den flik som jag vill jobba med från en cell.

Får dock inte det att accepteras.

Vad gör jag för fel?

 

    Dim Ws2 As Worksheet
    Dim Ws As String

    Ws = Worksheets("Mail").Range("B15")
    Set Ws2 = Worksheets.Name("Ws")

    With Ws2
        .ActiveSheet.Unprotect
        .Range("H9:H363").ClearContents

End with

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_
Dim Ws2 As Worksheet
Dim Ws As String

Ws = Worksheets("Mail").Range("B15").Value
Set Ws2 = Worksheets(Ws)

With Ws2
    .Unprotect
    .Range("H9:H363").ClearContents
End With

 

3 fel och en rekommendation:

Ws = Worksheets("Mail").Range("B15")

Här skulle jag klämma in .Value

Inte för att det behövs, men för att det blir tydligare att det är värdet från "B15" du vill ha
Ws = Worksheets("Mail").Range("B15").Value

 

 

Set Ws2 = Worksheets.Name("Ws")

Här har du 2 fel

.Name  används bara om du vill hitta namnet (och kanske för att döpa om, osäker)

exempel:

MsgBox ActiveSheet.Name

 

Men även "Ws" är fel eftersom citattecknen betyder att du vill vill ha ett blad som heter Ws  (dvs texten Ws), inte namnet som står i  variabeln Ws. Så ändra till:

Set Ws2 = Worksheets(Ws)

 

När du säger with Ws2 så är det alltid det bladet du jobbar med inom With ... end with.

Och Ws2.Activesheet.Unprotect är fel (då letar du efter det aktiva bladet på Ws2. och något sådan finns inte). Ändra till . unprotect

    With Ws2
'        .ActiveSheet.Unprotect
        .Unprotect
 

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Tommy H

Hmmm....

Ja, det behövs inte mycket för att det ska bli fel!

Ett stort tack för dom utförliga förklaringarna!

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...