Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Beim Druck Zelle auslesen...

Betrifft: Beim Druck Zelle auslesen... von: InaB
Geschrieben am: 10.10.2007 15:26:14

Hallo Forum,

ich habe ein Problem, dessen Lösung ich einfach nicht "gebacken" bekomme.

Mein Problem:
Ist es möglich, beim Ausdruck eine Zelle (B1) auszulesen und in der Kopfleiste (rechts) darzustellen?

Der Ausdruck soll über einen CommandButton im Tabellenblatt ausgelöst werden und in der Kopfzeile soll "Foto-Nr." und der Wert aus Zelle B1 stehen.

Für eure Hilfe (möglichst mit Beispiel-Code) sage ich vielen Dank!

Grüsse, InaB

  

Betrifft: Wert aus Zelle in Kopfzeile schreiben von: NoNet
Geschrieben am: 10.10.2007 15:33:54

Hallo Ina,

wenn das z.B. ein CommandButton aus der Steuerelement-Toolbox ist, kannst Du ihm diesen Code zuweisen :

Private Sub CommandButton1_Click()
    ActiveSheet.PageSetup.RightHeader = "Foto Nr. " & [B1]
    ActiveSheet.PrintPreview 'Druckvorschau
    'ActiveSheet.PrintOut 'Ausdrucken
End Sub
Code eingefügt mit Syntaxhighlighter 4.12

Ich habe zum Testen nur die Druckvorschau aktiviert, natürlich kannst Du auch direkt ausdrucken !

Gruß, NoNet


  

Betrifft: AW: Wert aus Zelle in Kopfzeile schreiben von: InaB
Geschrieben am: 10.10.2007 15:38:57

Hallo NoNet,

ich danke Dir! Genau das habe ich gesucht!

Grüsse, InaB