Mit problem er, at jeg har 6 faner der starter med Noter, altså Noter1, Noter2, Noter 3 osv., Antallet kan variere for gang til gang.
Er det muligt at lave en for next løkker, som kan køre alle de faner i gennem som starter med Noter, og ændre teksten - hvis ja, har I så en idé om hvordan koden skal se ud?
If Worksheet.Name = "Noter*" Then ReplaceCarriernb "Noter*", Me.cmbNavn.Value, Me.txtÆndre.Value End If
Next
Mit problem er, at sheet navnet efter ReplaceCarriernb skal være præcist, f.eks. Noter1, Noter2 osv. Tænker at den skal tælle hvor mange faner der starter med Noter, og derefter tage værdien og bruge i stedet for *?
Jeg tror det fejler, fordi din funktion skal bruge det præcise arknavn:
Dim Sht as worksheet For Each Sht In ThisWorkbook.Worksheets If Sht.Name Like "Noter*" Then ReplaceCarriernb Sht.Name, Me.cmbNavn.Value, Me.txtÆndre.Value End If Next
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
