☰

Wie füge ich einer Tabelle eine Schaltfläche hinzu und entferne Ränder von einer bestimmten Zelle?

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 microsoft-excel-2007 vba spreadsheet
Wie füge ich einer Tabelle eine Schaltfläche hinzu und entferne Ränder von einer bestimmten Zelle?

Ich habe zwei Fragen zu folgender Excel-Datei:

Bildbeschreibung hier eingeben

  1. Ich hätte gerne einen Button auf dieser Excel-Tabelle, der „Als PDF speichern“ heißen soll.

    • Wenn ich diese Schaltfläche drücke, sollten alle Daten der Excel-Tabelle im PDF-Format unter dem Pfad M:\formats\ „Dateiname“ gespeichert werden.

    • „Dateiname“ sollte der Wert der Zelle Nr. H8 sein.

    • Mit anderen Worten, wenn ich auf die Schaltfläche „Als PDF speichern“ klicke, sollte die Excel-Datei im PDF-Format im oben genannten Pfad und unter dem Namen gespeichert werden, der in Zelle Nr. H8 steht.

    • Wenn beispielsweise der Name ANDREW PITTERSON in Zelle H8 geschrieben wird, sollte er unter demselben Namen gespeichert werden, also als ANDREW PITTERSON.

  2. Ich möchte die Zeile entfernen, die in diesem Snapshot angezeigt wird.

    • Dazu habe ich versucht, die Gitternetzlinien auf der Registerkarte „Ansicht“ zu deaktivieren. Das Problem besteht hier jedoch darin, dass alle Gitternetzlinien ausgeblendet werden, obwohl ich möchte, dass einige der Gitternetzlinien angezeigt werden (Zelle Nr. H8 ist eine davon).

    • Um dieses Problem zu lösen, habe ich außerdem versucht, indem ich „alle Ränder“ auf der Registerkarte „Home“ eingefügt habe.

    • Dadurch entsteht jedoch ein anderes Problem: Wenn ich das Blatt ausdrucke, sind Ränder zu sehen.

    • Ich möchte nicht, dass beim Ausdrucken des Blattes ein Rand angezeigt wird.

    • Gibt es also eine Möglichkeit, nur ausgewählte Zeilen aus dem Blatt zu entfernen, wie im Bild gezeigt?

Antwort1

Verwenden Sie den folgenden Code für die Schaltfläche

Sub Button1_Click()
ActiveSheet.ExportAsFixedFormat 
        Type:=xlTypePDF, 
        Filename:=Range("H8").Value, 
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, 
        IgnorePrintAreas:=False, 
        OpenAfterPublish:= False
End Sub

Der einfachste Weg, dies zu lernen, besteht darin, ein Makro aufzuzeichnen (so habe ich es gemacht).

verwandte Informationen