Export einer Tabelle in Powerpoint

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franz,
erstmal Danke für deine Antwort. Mein Anliegen hat folgenden Hintergrund:
Meine "Tabelle2" soll Erklärungen zu einem bestimmten Thema beinhalten, die man auch ausdrucken kann. Da der Anwender selbst entscheidet, welche Inhalte ausgedruckt werden sollen, werden in Tabelle2 zum Teil Zeilen ausgeblendet. Um die ausgeblendeten Zeilen beim ausdrucken nicht als leere Seiten darzustellen, habe ich manuell erstellte Seitenumbrüche herausgenommen - so funktioniert es!
Nun wollte ich mein Exceltool einmal auf einem anderen PC ausprobieren und habe bemerkt, dass die Seitenumbrüche hier anders gelegt werden und das ein-und ausblenden bestimmter Seiten in Tabelle2 somit nicht mehr passt. Daher kam mir die Idee, das ganze evtl. zu umgehen, wenn man die Exceltabelle in PP exportiert?!
Nun zu deinen Fragen:
Es muss kein verknüpftes Objekt sein.
Die Inhalte sollen nicht in eine bestimmte PowerPoint-Folie eingefügt werden sondern jede Seite in Excel soll eine Seite in PP sein. Maximal wären es 22 Seiten. Möchte der Anwender den ein oder anderen Inhalt nicht ausgedruckt haben, sind es dementsprechend weniger.
Dass das ganze sehr komplex ist, habe ich bei meinen Recherchen leider schon feststellen müssen :(. Das mit dem Kopieren und "Inhalte einfügen" klappt zwar, nur leider werden meine 20 Seiten Excel in einer PP-Seite eingefügt. Ich bin mir fast sicher, dass die Antwort "nein" ist, aber könnte man den Befehl des Kopiermakro so definieren, dass bei einfügen in PP jede Excelseite auf eine PPSeite dargestellt wird? Oder fällt dir noch eine Alternative ein?
Ganz lieben Gruß

Hallo Franz, erstmal Danke für deine Antwort.
Es würde total ausreichen, dass Excelblatt auf ein leeres Folienblatt einzufügen. Aber es kann gut sein, dass die Grundproblematik am Seitenrand liegt. Den habe ich nämlich nahe null gesetzt. Das werde ich aufjedenfall nochmal mit einem anderen Rechner testen.
Meine anonymisierte Beispieldatei ist zu groß um sie hier hochzuladen, daher bin ich leider wieder auf die uncharmante Alternative angewiesen sie bei File-upload hochzuladen. :/
http://www.file-upload.net/download-10340313/hochladen_MK_20150224.xlsm.html
(- der blaue Download Button mit der Wolke müsste der richtige sein. )
Ich habe mir das so vorgestellt, dass neben der Druckvorschau und dem Erstellen als Pdf auch die Möglichkeit besteht, es in Powerpoint darzustellen.
Ich hätte noch drei weitere Fragen am Bsp. des Kontrollkästchen1 bei dem du mir in einem anderen Beitrag schon geholfen hast (leider ist dieser bereits archiviert):
1. Wäre es möglich das bei deaktivieren des Kk1 nicht nur ein bestimmter Zellenhalt gelöscht wird, sondern auch in C441:D442 etwas eingefügt wird?
2. Könnte man mit deaktivieren des Kk1 und ausblenden der jeweiligen Zeilen in Tabelle2 auch etwaige Häkchen die in Tabelle2 in den Symbolen gesetzt wurden zurücksetzen? mit Text="" (aber nur für diesen ausgeblendeten Zeilenbereich und nicht für alle Symbole auf Tabelle2?)
So, dass bei wieder einblenden der Seite diese mit keinen im Vorfeld geleisteten Eingaben dargestellt wird?
3. Könnte man auf Tabelle2 auch ein Makro erstellen, das in alle Symbole auf der jeweiligen Seite einen Haken setzt? Ich habe dies mal mit einer Schaltfläche versucht, diese wird aber leider nicht mit ausgeblendet.
Der Code für Kk1 sieht bisher folgendermaßen aus:

Sub Button_G()
Application.ScreenUpdating = False
Dim bol_Sichtbar As Boolean
Dim chb As Checkbox, wksEingabe As Worksheet
bol_Sichtbar = Sheets("Eingabe").Range("I15").Value
With Sheets("Tabelle2")
.Unprotect Password:="pw"
.Rows("425:462").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("B425").Select
ActiveWindow.ScrollRow = 425
Else
.Range("B425,B426,B428").ClearContents
.Range("C441:D442").Select
        ActiveCell.FormulaR1C1 = "test"
setze die Häkchen in den Symbolen für die Zeilen zurück 425:462
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
Application.ScreenUpdating = True
End Sub

Ich hoffe, das ich meine Anliegen darstellen konnte und der Download diesmal entspannter ist.
Vielen Dank für deine Hilfe.
Ganz lieben Gruß

Beliebteste Forumthreads (12 Monate)

Export einer Tabelle in Powerpoint

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Export einer Tabelle in Powerpoint

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread