'	-----------------------------------------------------------
'	Add SheetName.bas		[12.05.2019]
'	Namen fr Tabelle und Arbeitsblatt (Kalender.bas) vergeben.
'	-----------------------------------------------------------

'	Definitionen
	Dim KalJahr as String
	Dim pm as Object
	Dim newDoc as Object
	Dim newSheet as Object

'	Kalenderjahr und Pfad w„hlen
	KalJahr = "1684"
	Pfad = "E:\VERZ\Kalender\"

'	Leeres PlanMaker Fenster anzeigen und sichtbar stellen	
	Set pm = CreateObject("PlanMaker.Application")
	pm.Visible = True

' Ein Dokument hinzufuegen
	Set newDoc = pm.Workbooks.Add

' Dem Dokument ein Arbeitsblatt mit der Jahreszahl hinzufuegen.
	Set newSheet = newDoc.Sheets.Add(KalJahr)

'	Jetzt kann man das Default-Arbeitsblatt "Tabelle1" loeschen.
	pm.ActiveWorkbook.Sheets(1).Delete

'	... und die Datei mit dem gewnschten Namen speichern
	DateiName = "Kalender " & KalJahr & ".xlsx"
	pm.ActiveWorkbook.saveAs(Pfad & DateiName)