Export PP + Zusatzfrage
24.02.2015 15:01:37
Meike
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ß