monkey1601
Gebruiker
- Lid geworden
- 1 feb 2011
- Berichten
- 29
hallo helpers
Ik heb een bestand met een knop die een formulier opent voor toevoeging nw sheet en verwijderen sheet.
Toevoegen van een sheet gaat goed.
Het verwijderen van een bestaande sheet zou nog wat verbeterd kunnen worden door enkele controle's
nu gebruikte code voor verwijderen sheet
Mijn vba is Niet zo goed en bovenstaande code heb ik door mbv van dit dit forum voor elkaar gekregen. Het aanpassen waarbij de 2 punten eerder genoemd tot uitvoering te brengen lukt mij niet.
Ik heb een bestand met een knop die een formulier opent voor toevoeging nw sheet en verwijderen sheet.
Toevoegen van een sheet gaat goed.
Het verwijderen van een bestaande sheet zou nog wat verbeterd kunnen worden door enkele controle's
- als verkeerde naam wordt ingegeven of een bestaande naam(wel/niet met hoofdletter) ; sheet bestaat niet
- Als de naam wel bestaat (hoofdletter gevoelig)nogmaals een bevestiging of ik sheet wel wil wissen
nu gebruikte code voor verwijderen sheet
Code:
Private Sub Cmd_delete_Click()
'Eerst de ingevoerde Sheetnaam ophalen.
sh = txtdelWorksheet
'Als er niets in staat, gaat het niet.
If Trim(sh) = vbNullString Then
MsgBox "Geen Naam voor de Sheet ingevoerd"
Exit Sub
End If
Sheets(sh).Select
Sheets(sh).Delete
Unload Me
End Sub
Mijn vba is Niet zo goed en bovenstaande code heb ik door mbv van dit dit forum voor elkaar gekregen. Het aanpassen waarbij de 2 punten eerder genoemd tot uitvoering te brengen lukt mij niet.
Laatst bewerkt: