AcLo

Sub AcLo()
'********************************************************************
'*** 09-07-06 : Althaus	Feld 1700 ergänzt
	On error resume next
	Dim strKuerzel, strStandort
	Call HoleKuerzel(strKuerzel)
	Call HoleDNBStandort(strStandort)
	'Place your function code here
	Application.ActiveWindow.Command "e t", False
	Application.ActiveWindow.Title.InsertText	"0500 Ac" & vbCR &_
							"0600 lo" & vbCR &_
							"1700 " & vbCR &_
							"3010 " & vbCR &_
							"3100 " & vbCR &_
							"3120 " & vbCR &_
							"4000 " & vbCR &_
							"4030 " & vbCR &_
							"4060 Losebl.-Ausg." & vbCR &_
							"4062 cm" & vbCR &_
							"4063 " & vbCR &_
							"4700 " & strKuerzel & vbCR &_
							"4701 " & strStandort & ";" & strKuerzel
	Application.ActiveWindow.Title.StartOfBuffer
	Application.ActiveWindow.Title.Find "3010", True, False, True
	Application.ActiveWindow.Title.EndOfField
End Sub