InputBox zur Namenseingabe vor dem Drucken in Excel
Schritt-für-Schritt-Anleitung
Um eine InputBox vor dem Drucken in Excel anzuzeigen, kannst du das Workbook_BeforePrint Ereignis verwenden. Hier ist eine einfache Anleitung, um dies mithilfe von VBA (Visual Basic for Applications) umzusetzen:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Suche im Projekt-Explorer nach "DieseArbeitsmappe" unter deinem aktuellen Arbeitsbuch.
-
Doppelklicke auf "DieseArbeitsmappe", um das Codefenster zu öffnen.
-
Füge den folgenden Code ein:
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" Or Wert = "" Then
Cancel = True
Exit Sub
End If
' Kopfzeile Rechts setzen
ActiveSheet.PageSetup.RightHeader = Wert
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Teste den Druckvorgang. Du solltest jetzt eine Eingabeaufforderung sehen, bevor der Druck ausgeführt wird.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du die Eingabeaufforderung für den Druck auf andere Weise umsetzen möchtest, könntest du auch eine UserForm erstellen, die mehr Anpassungen erlaubt. Dies erfordert jedoch zusätzliche Schritte zur Gestaltung der Form und zur Anpassung des Codes.
Praktische Beispiele
Hier ist ein einfaches Beispiel, um zu verdeutlichen, wie du die Eingabe in der Kopfzeile anpassen kannst:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Wert As String
Wert = Application.InputBox("Bitte Namen eingeben:", "Druckfreigabe", Type:=2)
If Wert = "" Then
MsgBox "Druck abgebrochen. Bitte einen Namen eingeben."
Cancel = True
Exit Sub
End If
ActiveSheet.PageSetup.RightHeader = "Druck von: " & Wert
End Sub
In diesem Beispiel wird der eingegebene Name als Teil der Kopfzeile angezeigt.
Tipps für Profis
- Eingabevalidierung: Du kannst die Eingabe weiter validieren, indem du bestimmte Bedingungen hinzufügst, wie z.B. die Überprüfung auf unerlaubte Zeichen.
- VBA Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um unerwartete Fehler während der Ausführung zu erfassen.
On Error GoTo Fehlerbehandlung
' Dein Code hier
Exit Sub
Fehlerbehandlung:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
FAQ: Häufige Fragen
1. Wie kann ich die Kopfzeile in anderen Bereichen anpassen?
Du kannst die ActiveSheet.PageSetup.LeftHeader oder ActiveSheet.PageSetup.CenterHeader verwenden, um die Kopfzeile links oder in der Mitte anzupassen.
2. Funktioniert dieser Code in allen Excel-Versionen?
Der gezeigte Code sollte in den meisten modernen Excel-Versionen (Excel 2010 und später) funktionieren, die VBA unterstützen.