Hallo Steffi,
folgende Version von GetText sollte dann aber funktionieren
Public Function GetText(find, prop, limit) As Variant
Dim txt, pos1, pos2
txt = CallByName(ActiveSheet.PageSetup, prop, VbGet)
pos1 = InStr(txt, find) + Len(find)
If limit = "" Then
pos2 = Len(txt) + 1
Else
pos2 = InStr(txt, limit)
End If
GetText = Mid(txt, pos1, pos2 - pos1)
End Function
Grüße Lutz
|