werkblad

[rioteri]

Hallo,

Is er iemand die mij kan vertellen hoe ik b.v. een werkbladnaam kan wijzigen via sneltoetsen?

Gr

 

[Cobbe]

Probeer hier eens mee:

Sub cobbe()
 ActiveSheet.Name = Range("H2").Text
End Sub

 

[rioteri]

Beste Cobbe,

Hier kom ik niet uit.. please explain

 

[sylvester-ponte]

hallo Rioteri,
je drukt een sneltoets in. wat gaat er dan gebeuren.
graag stap voor stap.

 

[rioteri]

??

 

[Cobbe]

Open dit bestandje en druk in elk blad eens op ctrl-q en kijk beneden in de tabs wat er gebeurt.

 

[gast0660]

Hoi,
een andere versie met macro
zelfde sneltoets als Cobbe

 

[rioteri]

Dank je wel Cobbe,

Niet om het een of ander, maar er moet toch een andere manier zijn om de naam te veranderen?

 

[Cobbe]

Ja, dubbelklikken in de tab en de naam wijzigen.

Wat is de reden dat je zoveel bladnamen moet wijzigen?

 

[rioteri]

Ik kan me herinneren dat ik het ooit met deze toets veranderde..
Wil gewoon met sneltoetsen werken.. en niet met de muis

 

[OctaFish]

Je kunt dat alleen met een macro doen. Die kun je vervolgens aan elke gewenste sneltoets hangen. Daarbij is het wel handig als de macro ook controleert of de bladnaam wel mag. Dit kan met één functie:

Sub RenameSheet()
Dim sNewName As String
Dim sCurName As String
Dim ws As Worksheet
Dim b As Boolean
        
    sCurName = ActiveSheet.Name
    sNewName = InputBox("Typ de nieuwe naam van het werkblad:", "Werkblad hernoemen", sCurName)
    
    On Error Resume Next
    Set ws = ActiveWorkbook.Sheets(sNewName)
    If Err = 0 Then b = True Else: b = False
        If b = True Then
        MsgBox "Bladnaam bestaat al.", vbCritical + vbOKOnly, "Blad bestaat"
        RenameSheet
    End If
    On Error GoTo 0
    If sNewName = "" Then
        ActiveSheet.Name = sCurName
    Else
        ActiveSheet.Name = sNewName
        Exit Sub
    End If
                                  
End Sub

 

[rioteri]

Hoe voer ik zo'n code in?

 

[rioteri]

stap voor stap graag..

 

[gast0660]

Hoi,
In mijn vbtje zit die controle er ook in
groet

 

[gast0660]

Hoi,
Ga naar uw vba editor,voeg een module in en kopieer de code en plak die in de module, dan bij macro's een sneltoets invullen naar wens
Groet

 

[Cobbe]

Heb er een filmpje van gemaakt(niet met uw code erin)

http://we.tl/4qqASrOxsF

 

[rioteri]

Dank je voor je video uitleg.

Ik wist niet dat het zo ingewikkeld is.

 

[gast0660]

Hoi,
Probeer eens het volgende:
Neem een van uw exelbestanden en kopieer de werkbladen (of 1 werkblad) naar mijn vbtje (postje #7) en test met CTRL q
groet