Hallo,
Op dit moment worstel ik met het probleem dat ik de naam van het sheet niet kan wijzigen middels VBA
Ingesloten een stukje VBA waarmee ik het volgende probeer te bewerkstelligen:
- vanuit een workbook wordt een sheet aangemaakt met duplicaatgegevens van een andere sheet
- Deze Sheet wordt vervolgens als los bestand met een naam afkomstig uit een textbox verzonden naar 1 ontvanger.
Bovenstaande lukt allemaal erg goed maar ik heb tot nu toe nog geen idee hoe ik het voor elkaar kan
krijgen om invloed uit te oefenen op de naam van het te versturen workbook en op de naam van de sheet dat het workbook bevat.
Wie o wie kan mij hierbij helpen. Onderstaand het stukje VBA dat ik momenteel gebruik
Alvast bedankt
greetz
Renew
Op dit moment worstel ik met het probleem dat ik de naam van het sheet niet kan wijzigen middels VBA
Ingesloten een stukje VBA waarmee ik het volgende probeer te bewerkstelligen:
- vanuit een workbook wordt een sheet aangemaakt met duplicaatgegevens van een andere sheet
- Deze Sheet wordt vervolgens als los bestand met een naam afkomstig uit een textbox verzonden naar 1 ontvanger.
Bovenstaande lukt allemaal erg goed maar ik heb tot nu toe nog geen idee hoe ik het voor elkaar kan
krijgen om invloed uit te oefenen op de naam van het te versturen workbook en op de naam van de sheet dat het workbook bevat.
Wie o wie kan mij hierbij helpen. Onderstaand het stukje VBA dat ik momenteel gebruik
Code:
Sub mcrVerzenden()
Dim Names()
Dim NamesCurrence()
Names = Array("rene.hanssens@gmail.com")
On Error Resume Next
With ActiveWorkbook
With .Sheets.Add
ActiveWorkbook.Sheets(2).Cells.Copy .Cells(1)
.Copy
With ActiveWorkbook
.SendMail Names(), OpmaakForm.txtNaam
.Close False
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End With
End Sub
Alvast bedankt
greetz
Renew