VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Fußzeile ein- und auslesen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopf/Fußzeile