Peter, U kunt beter naar http://www.openoffice.org/nl/ gaan en eventueel de vraag via forum https://forum.openoffice.org/, Nederlandse gemeenschap de vraag stellen. Of de vraag in het Engels op dit forum plaatsen.
Bert de Lange -----Oorspronkelijk bericht----- Van: Peter [mailto:peter.za...@telenet.be] Verzonden: donderdag 16 april 2015 10:15 Aan: users@openoffice.apache.org Onderwerp: vba code laten werken in calc Hallo wie kan (en wil) bijgevoegde code aanpassen zo ze werkt in oo 4.1 Option VBASupport 1 Public Sub Opslaanvolledigbook() Range("r2").Value = Date Range("b1").Value = Range("b1").Value + 1 Dim Test As Variant 'kopiëren document als nieuw jachtdag ActiveWorkbook.Sheets.Copy Test = "/home/peter/Documenten/Jacht/Jachtdag " & Range("b1").Value & (" - ") & Format(Range("r2"), "dd mm yy ") & ("- ") & Range("d2") & ".xlsm" activesheet.Name = "Jachtdag " + range("B1").value ActiveWorkbook.SaveAs Test, FileFormat:=52 ActiveWorkbook.Close 'opslaan van de jachtdag op nummer en datum Range("e6:g12").Select Selection.ClearContents Range("e14:g17").Select Selection.ClearContents Range("e19:g23").Select Selection.ClearContents Range("k6:m20").Select Selection.ClearContents Range("r6:s20").Select Selection.ClearContents Range("c26:c29").Select Selection.ClearContents Range("d2").Select Selection.ClearContents Range("d2").Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub -- Met vriendelijke groeten Peter Zaman --------------------------------------------------------------------- To unsubscribe, e-mail: users-unsubscr...@openoffice.apache.org For additional commands, e-mail: users-h...@openoffice.apache.org
