Gruppe
Allgemein
Bereich
Kopf/Fußzeile
Thema
Fußzeile ein- und auslesen
Problem
Aus der Fußzeile soll der Name hinter dem Doppelpunkt in der letzten Zeile in die obige TextBox eingetragen werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub PartLeftFooter()
Dim intCounter As Integer, intChr As Integer
Dim sTxt As String
sTxt = ActiveSheet.PageSetup.LeftFooter
Do Until InStr(sTxt, vbLf) = 0
For intCounter = Len(sTxt) To 1 Step -1
If Asc(Mid(sTxt, intCounter, 1)) = 10 Then Exit Do
intChr = Asc(Mid(sTxt, intCounter, 1))
If intCounter = 1 Then Exit Sub
Next intCounter
Loop
sTxt = Right(sTxt, Len(sTxt) - intCounter)
sTxt = Trim(Right(sTxt, Len(sTxt) - InStr(sTxt, ":")))
ActiveSheet.TextBox1.Text = sTxt
End Sub