• 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.

automatisch een werkblad aanmaken

Status
Niet open voor verdere reacties.
bascas

bascas

Gebruiker
Lid geworden
18 mei 2006
Berichten
446
Hallo, is het mogelijk om met een macro zodra je in kolom A een naam invult Excel gelijk een nieuw tabblad maakt met die naam erop? En zo ja, hoe
Alvast bedankt
Bas
 
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Sheets.Add().Name = Target
End Sub
Zodra je iets invoert in de A-kolom, dan wordt automatisch een werkblad aangemaakt met die naam.

Met vriendelijke groet,


Roncancio
 
Roncancio zei:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Sheets.Add().Name = Target
End Sub
Zodra je iets invoert in de A-kolom, dan wordt automatisch een werkblad aangemaakt met die naam.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Als je op DELETE drukt in de A-kolom...krijg je automatisch een error ;)
 
Laatst bewerkt:
exhelp zei:
Als je op DELETE drukt in de A-kolom...krijg je automatisch een error
Klik om te vergroten...

Bedankt voor de melding.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Len(Trim$(Target)) > 0 Then Sheets.Add().Name = Target
End Sub

Met vriendelijke groet,


Roncancio
 
Of zoiets :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
'Deze macro is geschreven door Zapatr
If Target.Column = 1 Then
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
If Target.value = "" Then
.Name = "Blad" & Sheets.Count
Else
.Name = Target.value
End If
End With
End If
End Sub
 
Bascas,
Heb je nog een vraag i.v.m. dit topic of is de vraag opgelost?
Laat dit even weten a.u.b.
 
Bedankt heren. De vraag is opgelost.:thumb: Toch niet.
 
Laatst bewerkt:
Met jullie hulp en overpeinzing heb ik dit ( zie bestand). Maar nu zou het tabblad wat gemaakt wordt moeten aansluiten na " index" en niet ervoor. En... de opmaak van het tabblad zou eruit moeten zien als tablad "1". Hoe krijg ik dat voor elkaar?
 

Bijlagen

Zoiets?
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = Target
   Sheets("1").Range("1:5").Copy ActiveSheet.Range("1:5")
  ActiveSheet.Columns.AutoFit
End Sub
 
Laatst bewerkt:
Bedankt HSV, dat werkt! Zou er nu ook in kolom i ook nog een hyperlink automatisch gezet kunnen worden als het tabblad wordt gemaakt?
Ik geraak ook niet uit een juiste formule voor het berekenen van de waarde die in cel M3 moet komen. In L moeten het aantal maanden ingevuld worden.

Alvast bedankt voor de hulp
 

Bijlagen

Laatst bewerkt:
Met een automatisch aangemaakte Hyperlink in kolom I.
De rest van je vraag heb ik helaas nog niet naar gekeken.
 

Bijlagen

Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan