ANPSW

Sub ANPSW()
'************************************************

	On error resume next
	Dim PersonenSW, PPN
	Application.ActiveWindow.Title.StartOfField
	Application.ActiveWindow.Title.WordRight 1
	Application.ActiveWindow.Title.EndOfField True
	PersonenSW = Application.ActiveWindow.Title.GetSelection()
	PersonenSW = "rec n; f per " & PersonenSW & " and tb s"
	Application.ActiveWindow.Title.DeleteSelection
	Application.ActiveWindow.Command PersonenSW, True

	' Uebernahme der PPN mit Funktion Hole IDN, deswegen die folgenden Zeilen auskommentiert
	' PPN = Application.ActiveWindow.Variable("P3GPP")
	' Application.ActiveWindow.CloseWindow
	' Application.ActiveWindow.Title.InsertText "!" & PPN & "!"

End Sub