nw bestand aanmaken obv VBA

[mooske04]

Luitjes,

het is vast heel simpel, maar in de hoeveelheid Q&A's hier kon ik het nog niet vinden... Ik gebruik onderstaande code om bij wijziging in cellen autmatisch een nieuw tabblad in mijn excel bestand te maken. Nu wil ik echter geen nieuw tab maken, maar een soortgelijke code gebruiken om een nieuw bestand te maken. Help?

Private Sub Worksheet_change(ByVal Target As Range)

    If Not Intersect(Target, Range("b10:b49, e10:e49, h10:h49")) Is Nothing Then
    Sheets("factuur").Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Target
End If
   Sheets("Klant").Range("$A$1:$A$1550").AutoFilter Field:=1, Criteria1:="1"

End Sub

 

[Warme bakkertje]

Hier kan je al mee starten. Je moet nog wel even het pad aanpassen.

Private Sub Worksheet_change(ByVal Target As Range)
   nName=Target.value
If Not Intersect(Target, Range("b10:b49, e10:e49, h10:h49")) Is Nothing Then
    Sheets("Faktuur").Copy
    With ActiveWorkbook
      .SaveAs "E:\Zaak\Faktuur\Fakturen\" & nName & ".xls"
      .Close
    End With
End If
   Sheets("Klant").Range("$A$1:$A$1550").AutoFilter Field:=1, Criteria1:="1"

End Sub

 

[mooske04]

Bedankt!