Letzte Woche hat mir Reinhard sehr geholfen und mir folgende Prozedur gemacht:
Sub tt()
x = Split(ActiveSheet.PageSetup.LeftHeader, Chr(10))
xx = Split(x(UBound(x)), "-")
For n = 0 To UBound(xx)
MsgBox xx(n)
Next n
End Sub
Zum Verständnis, meine Kopfzeile sieht so aus:
.B. "GR-HDK
&""Arial,Fett""&14IN&""Arial,Standard""&10
Hamburg-München"
oder "AK-BDZ
&""Arial,Fett""&14IN&""Arial,Standard""&10
Hamburg-Frankfurt-München"
Das löst vom Prinzip her genau mein Problem, aber:
Wie kann ich die 2 oder 3 Ergebnisse der Schleife, die hier in der Msgbox angezeigt werden an 2 bzw. 3 Variablen übergeben um sie im Code weiter zu verarbeiten?
Danke im Voraus
Herbert