ich möchte gern über das Before Print Ereignis eine InputBox öffnen
in die derjenige der Druckt seinen Namen eingiebt und dieser Name sollte dann in der Kopfzeile rechts erscheinen.
Danke Andre´
ich möchte gern über das Before Print Ereignis eine InputBox öffnen
in die derjenige der Druckt seinen Namen eingiebt und dieser Name sollte dann in der Kopfzeile rechts erscheinen.
Danke Andre´
Gruß Hajo
Danke Andre´
ich galube jetzt müßten alle Fäle abgesichert sein. Nur wenn ein Name eingegeben wird, wird auch gedruckt
Gruß Hajo
irgendwie hats nicht Funktioniert aber vielleicht hab ich´s ja nur schlecht beschrieben. Ich habe deinen Code etwas "Modifiziert" (kl. Scherz) und so Funktionierts jetzt:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Wert As String
Wert = Application.InputBox("Bitte Kürzel eingeben um den Druck freizugeben.", "Druckfreigabe", Type:=2)
If Wert = "Falsch" Then Cancel = True
If Wert = "" Then Cancel = True
Exit Sub
' Kopfzeile Rechts
ActiveSheet.PageSetup.RightHeader = Wert
' Left=Links; Center=Mitte; Right=Rechts
' Header=Kopfzeile; Footer=Fußzeile
End Sub
Danke für deine Hilfe, Tschüß Andre´
ich will ja nicht an Deinen Programmierkenntnissen zweifeln aber nach dem ersten blick kommt das Makro nicht zu
ActiveSheet.PageSetup.RightHeader = Wert
da davor ein Exit Sub steht
es mußte schon
If Wert = "Falsch" Then Cancel = True:Exit Sub
If Wert = "" Then Cancel = True:Exit Sub
ActiveSheet.PageSetup.RightHeader = Wert
lauten
Gruß Hajo