Excel: tabbladen als aparte file saven

[sierranl]

Hallo, ik ben op zoek naar een oplossing om het volgende met Excel te realiseren:

Een werkmap bevat meerdere tabbladen waarvan een aantal tabbladen altijd een bepaalde zelfde waarde bevatten (in voorbeeld 1599). Ik wil alleen de tabbladen die deze waarde bevatten (staat in cel E3) opslaan als aparte werkbladen met de naam van het betreffende tabblad.

Als dit lastig is, is het ook goed als alle tabbladen aparte gesaved worden met de naam van het tabblad als bestandsnaam.

Bekijk bijlage Savesheets.xlsx

 

[HSV]

Kom je hiermee weg.

Sub hsv()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Sheets
 If InStr(1, sh.Name, Range("E3").Value) > 0 Then
  sh.Copy
  Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "c:\map1\map2\" & sh.Name
    ActiveWorkbook.Close
  End If
Next sh
Application.DisplayAlerts = True
End Sub

 

[snb]

Sub M_snb()
  c00=Range("E3")
  For Each sh In Sheets
    If InStr(sh.Name, c00) Then sh.saveas "c:\map1\map2\" & sh.Name
  next
End Sub

 

[HSV]

Dat is beter. :thumb: