Opslaan als... met VBA

[Rikja]

Kan het nergens vinden.

Het getuigt van respect om tijdens het plaatsen van je vraag aan te geven dat je je vraag op meerdere forums heb geplaatst. Reden hiervoor is, is dat helpers vaak op meerdere forums aanwezig zijn om te helpen. Ze zijn dus dubbel " aan het werk" voor een soortgelijk probleem. Is niet netjes naar de helpers toe, zij steken tenslotte tijd in het oplossen van je probleem.

Gevonden?

 

[jvandervliet]

Staat niet in de gedragsregels, dus kon ik het ook niet weten dat het zo werkt. Maar goed dat ik dat weet. Dan kan ik me daar aan houden. Heb voor iedereen respect, maar dat het zo werkt wist ik niet.

 

[HSV]

Je code iets anders geschreven.

Sub Opslaan()
Sheets("Factuur").Copy
 With ActiveWorkbook
     Link = .LinkSources(xlExcelLinks)
    If Not IsEmpty(Link) Then
        For j = 1 To UBound(Link)
           .BreakLink Link, xlLinkTypeExcelLinks
        Next j
    End If
     ActiveSheet.Buttons.Delete
     Range("G9").ClearContents
    .SaveAs ThisWorkbook.Path & "\" & Range("H2").Value & ".xlsx", 51
    .Close
  End With
End Sub

 

[jvandervliet]

Harry, super bedankt!

Alleen er komt een foutmelding op de regel

.BreakLink Link, xlLinkTypeExcelLinks

.

Fout 13 tijdens runtime: Typen komen niet overeen.

 

[cow18]

gewoon buikgevoel bij dergelijke delete's, de boel omdraaien.
Ik kan de bal volledig verkeerd slaan, in die loop staat namelijk nergens die j !

 For j = 1 To UBound(Link)
vervangen door
 For j = UBound(Link) to 1 step -1

 

[jvandervliet]

Ha Cow18,

De foutmelding is nog steeds hetzelfde. In ieder geval bedankt!

 

[HSV]

Misschien.

.BreakLink Link(j), xlLinkTypeExcelLinks

 

[jvandervliet]

Mensen, de herschreven code werkt super! Hartelijk dank!