• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Index in andere kolom

Status
Niet open voor verdere reacties.
S

Senso

Meubilair
Lid geworden
13 jun 2016
Berichten
9.662
Besturingssysteem
W10 Pro en W11 Pro
Office versie
Office 2007 H@S en Office 2021 Prof Plus
In welke regel staat dat de Index in kolom A komt te staan?
Code: 
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With
    
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            .Range("H1").Name = "Start" & wSheet.Index
            .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Back to Index"
        End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub
 
Hier:
Cells(1, 1) = "INDEX"

Oftewel:
Range("A1")
 
"with Me" in een eventmacro van een bladmodule wijst altijd naar het blad zelf
 
Oké, lukt mij niet om dit in kolom F te zetten. Dan maar via een omweg. Kolom A breder maken en dan tekst centreren.
 
Kolom F is Cells(1,6).
Of uiteraard Range("F1").
 
Laatst bewerkt:
Hoofdzonde 1 in VBA:

gebruik geen 'namen' die kunnen interfereren met de VBA compiler.
Code: 
        .Cells(1, 1).Name = "I_Index"
 
Heeft dit er mee te maken? Dit krijg ik soms als ik een tabblad kopieer.

Infobox _.jpg
 
dat krijg je vermoedelijk als je vanuit een andere werkmap iets kopieert met daarin een gedefinieerde naam "start5" naar je huidige werkmap waar ook al een gedefinieerde naam "start5" inzit.
Dat heeft dus niets met #6 te maken. "Start5" is behoorlijk specifiek zodat die zeker niet in aanraking komt met VBA-terminologie.
Kijk in beide mappen anders eens naar de gedefinieerde namen.
 
Laatst bewerkt:
.Range("H1").Name = "Start" & wSheet.Index

In werk binnen één bestand en maak dan meerdere bladen/sheets aan. Het begon met de error start4 en toen gaf ik een andere naam start5 omdat Excel maar bleef zeuren. Ik denk toch dat die verwijst naar H1 die heb ik gewijzigd naar A1.
 
maak anders eens een lijst van al je namen,
ga ergens in een ongebruikte hoek van je werkblad staan of voeg een nieuw werkblad toe.
maak dan gebruik van het lint
formules>gebruiken in formule>namen plakken>lijst plakken
 
Het heeft zich niet weer voorgedaan en ik beschouw het als opgelost. Kan niet uren en uren bezig zijn met hoe en wat van een error, ik moet ook nog duizenden gegevens invullen. Dat kost al genoeg tijd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan