Excel: Automatisches Drucken von einem Bereich

Hallo,
<br />probiere es mal so:
<br />

Private Sub CommandButton1_Click()

Dim LRow As Long

With ActiveSheet

LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

With .PageSetup

.PrintArea = "A1:B" & LRow

End With

.PrintOut

End With

End Sub

Claus
<br />

In Word: Bereich markieren, STRG-C

In Excel: F2 drücken, STRG-V

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.

Öffnen Sie Ihr Excel-Dokument.

Wählen Sie den Bereich/Bereich aus, den Sie in Word hinzufügen möchten, klicken Sie mit der rechten Maustaste auf Kopieren oder drücken Sie STRG+C.

Hallo,

ich kann das Problem bei meinem Office 2016 nachstellen.

Aber nur dann, wenn ich einen einfachen Excel-Bereich als Datengrundlage für die Diagramme nehme.

Ich erweitere meine Liste, das Diagramm ist nicht automatisch erweitert. Wenn ich dann das Diagramm manuell auf den neuen Datenbereich verweisen lasse, wird das verknüpfte PowerPoint-Diagramm nicht aktualisiert.

Ändere ich hingegen nur einzelne Werte aus dem vorhandenen Bereich, wirken die Änderungen sofort in Excel und PowerPoint. Die Verknüpfung ist also da.

Du könntest alternativ versuchen, den Bereich für die Daten mit einem Namen zu versehen.

Oder Du verwendest einfach eine Tabelle für den Datenbereich (Als Tabelle formatieren mit z.B. STRG + T oder STRG + L). Der Datenbereich wird dann in Excel automatisch angepasst, da sich die Tabelle erweitert. Das Diagramm wird in Excel verändert und diese
Veränderungen sind bei mir sofort auch in PowerPoint sichtbar.

Viel Erfolg

Andreas

Hallo Harri,

um für die Zukunft solchen Problemen (bei Namen und Bereichen) vorzubeugen, wäre es denkbar die Bereiche dynamisch zu gestalten.

Kommen Datensätze hinzu wird der Bereich automatisch erweitert.



Beate hat wie das funktioniert hier recht ausführlich beschrieben

http://www.online-excel.de/excel/singsel.php?f=69