Footer-Problelm
24.08.2021 12:04:56
Andreas
ich muss mich wieder mit einem Problem an euch wenden, das ich aktuell nichtmal selber verstehe... (obwohl ich mit VBA an sich gut zurecht komme)
Ich habe eine Tabelle mit 7 Tabellenblättern.
Über einen Button "drucken" werden 4 davon in bestimmter Reihenfolge gedruckt. Das klappt wunderbar.
Über das Ereignis "BeforePrint" sollen dann automatisiert Fußzeilen hinzugefügt werden, hier der Code dazu:
Option Explicit
Public i As Byte
Public Batch As String
Public Language As String
Public LastCol As Byte
Public Sub Workbook_BeforePrint(Cancel As Boolean)
If Start.cmd_admin.Caption "Admin-Bereich verlassen" Then
If Start.cmd_admin.Caption "Leave Admin-Area" Then
On Error GoTo Fehler
End If
End If
Dim footer_val_1 As String
Dim footer_val_2 As String
Dim footer_lef_1 As String
Dim footer_lef_2 As String
If Start.Range("B1").Value = "DSA" Then
Batch = "Schwimmkurs"
ElseIf Start.Range("B1").Value = "DRSA" Then
Batch = "Rettungsschwimmkurs"
End If
If Start.Range("B8").Value Jetzt zu meinem Problem:
Um Artefakte aus vorherigen Druckvorgängen zu verhindern, lösche ich einmal alle Footer-Teile, bevor ich sie neu beschreibe (oder es versuche...)
Die Variablen, die in den Footer reingeschrieben werden sollen, habe ich mit debug.print geprüft und sie sind korrekt.
Sie werden anscheinend "einfach" nicht an den Footer übergeben. Wo ist mein Gedankenfehler?
Alle Variablen werden nur in diesem kleinen Makro deklariert, beschrieben und verwendet.
Das Ansprechen der Tabellenblätter über z.B. Worksheets("Teilnehmerliste") oder über Tabelle1 habe ich beides versucht, leider ohne Erfolg.
Ein Neustart des Tools hat leider auch keine Besserung gebracht.
Hat irgendjemand eine Idee, wo mein Fehler liegt?
Danke für eure Hilfe
Grüße
Andreas
Anzeige