Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Fußzeile ein- und auslesen

Gruppe

Kopf/Fußzeile

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