VBA - excel

rem Indsætter et nyt Ark "til højre" og omdøber det
...
...
        With ActiveWorkbook
            .Sheets.Add after:=Sheets(ActiveWorkbook.Sheets.count)
            .Sheets(.Sheets.count).Name = NytArkNAvn
        End With
    End If
...
...

....der vælges med musen i en string ???

Hej

Tja - det kan man måske ikke.

Det er fordi jeg vil stå i et ark som kunne være en forside og behandle data fra et af de andre ark. Det ark der ønskes behandles vil jeg gerne vælge med musen. Kan man det?

I princippet kan alle arknavne være liste på "forsiden". Ved et klik herpå skiftes til det ønskede ark - jo det kan godt lade sig gøre. (har for et par måneder siden netop anvendt dette i et kundesystem).

Ok. Kunne man gøre følgende:

Lave en knap der opdaterer og laver knapper svarende til de ark der er?

I stedet for at lave knapper - kunne der vises en userform, når man aktiverer forsiden. I denne Userform kunne der være en Listbox, hvor alle arknavne blev vist (undtaget forsiden).

Ja - god idé.

Hvordan gør man det?

Skal konstruere en lille model inden længe - så hvis du sender en mail til mig (mailadr. under profil) - så returnere jeg filen.

Rem KODE på Forside-fanen
Rem =====================
Private Sub worksheet_activate()
    Load UserForm1
    UserForm1.Show 0
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    worksheet_activate
End Sub

Rem Kode i USERFORM1
Rem ================
Const forsideNavn = "forside"
Dim valgteArkNavn As String
Private Sub CommandButton1_Click()                  'Luk
    Unload UserForm1
End Sub
Private Sub ListBox1_Click()
    valgteArkNavn = Me.ListBox1.Value
   
Rem aktivere valg arknavn
    ActiveWorkbook.Sheets(valgteArkNavn).Activate
End Sub
Private Sub UserForm_activate()
    Me.ListBox1.Clear
   
    For Each ark In ActiveWorkbook.Sheets
        If LCase(ark.Name) <> forsideNavn Then
            Me.ListBox1.AddItem ark.Name
        End If
    Next
End Sub

Mange tak.

sender du et svar?

Selv tak - du får et svar...