Kopfzeile auslesen

Forumthread: Kopfzeile auslesen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Kopfzeile auslesen

Kopfzeile auslesen

13.01.2003 14:06:00

Nino19

Hallo
Mein Beitrag ist weg, und der von Hajo auch.
Deshalb nochmals:
Ich will die rechte Kopfzeile in die aktuelle Zelle übertragen.
ActiveCell = ActiveSheet.PageSetup.RightHeader

ist ein guter Ansatz, aber führt nicth zum Ziel, weil da ein paar Formatierelemente mitgehen.
Aus Lindner T wird

&11Lindner T

Und wenn es in Fett geschrieben ist, dann steht noch was dabei.
Gibt es da Abhilfe?
Entweder nur den Text lesen oder alles bis &11 rauslöschen.
LG Nino

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Kopfzeile auslesen

13.01.2003 14:23:57

Michael Scheffler
Re: Kopfzeile auslesen

13.01.2003 14:32:00

philipp
Re: Kopfzeile auslesen

13.01.2003 15:49:35

Ninoi19
Lösung selbst gefunden!

13.01.2003 16:12:38

Nino19

Re: Kopfzeile auslesen

13.01.2003 14:23:57

Michael Scheffler

Hallo,

klar, weil es eben Variants sind, da hilft nur der Weg über Stringvarable.

Gruß

Micha

Re: Kopfzeile auslesen

13.01.2003 14:32:00

philipp

ein Ansatz

Sub test()
Dim v As String
Dim m As Integer

v = ActiveSheet.PageSetup.RightHeader
m = InStr(1, v, "&")
[a1] = Left(v, m - 1)

End Sub

gruss phil

Re: Kopfzeile auslesen

13.01.2003 15:49:35

Ninoi19

Hallo Phil,
danke für Deine Antwort.
Ich glaube, irgend was ist da nicht richtig.
Aus
&11Lindner T
soll
Lindner T
werden.
Tut es aber nicht. Leider kenne ich die Befehle, die Du verwendet hast (InStr und Left), nicht. Könntest Du Dir das nochmals ansehen, bitte?
Und was schreibe ich, wenn ich das Ergebnis in die aktuelle Zelle schreiben will?
LG, Nino.

Lösung selbst gefunden!

13.01.2003 16:12:38

Nino19

Ich hab die Lösung selbst gefunden!

Sub test()
Dim v As String
v = ActiveSheet.PageSetup.RightHeader
Right(v, Len(v) - InStr(1, v, "11") - 1)
End Sub

Ist doch gut, oder?
LG, Nino

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!