Hallo Schauan,
also, ich habe jetzt alle Daten und Formeln meine Originaltabelle in die Mustertabelle kopiert und es läuft natürlich
Können wir noch folgendes einbauen:
Bezogen, auf die kopierten Daten, die sich auf einem temporären Blatt befinden:
Wäre es möglich, das Blatt immer im Querformat zu bekommen mit Skallierung 80%?
Danke und Gruß
Alex
Hallo Alex,
füge dazu bitte im Makro DateiSpeichernUnter folgende Änderung ein:
Diese Stelle
Code:
'Aktives Blatt als pdf speichern
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "/" & ThisWorkbook.Name & ".pdf"
so mit dem code von With... bis EndWith erweitern:
Code:
'Aktives Blatt als pdf speichern
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = 80
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "/" & ThisWorkbook.Name & ".pdf"
Hallo Schauan,
heilige Mutter Maria, du solltest in deinem Profil die Kenntnisse von Fortgeschritten evtl. mal eine Stufe höher stellen
Vielen Dank.
Wenn ich die Daten kopiere, sind die Zellen 1-8 Leer. Die Kopierten Dateien fangen erst in Zelle 9 an.
Wäre es möglich entweder:
wenn man kopiert hat oben unser Logo rein zu pasten, dass die erzeugte PDF im oberen Teil unser logo hat
oder:
wenn o.g. Wunsch schwierig zu realisieren ist die Zeilen nach oben rutschen lässt?
Viele Grüße
Alex
Hallo Alex,
ja, das würde gehen. Wenn die Excel-Datei verteilt wird, ist es wohl am besten, die Grafik in der Datei, z.B. auf dem Blatt Setup einzufügen und mitzugeben. Bitte benenne die Grafik dann in "Logo" um. Beim bearbeiten dann kann sie der code an die gewünschte Stelle kopieren.
Ich würde das dann beim Kopieren mit rüberholen. Dazu musst Du noch 3 Zeilen code einfügen,
siehe '<-- hier
Code:
'Daten aus Setup uebernehmen
With Sheets("Setup")
Cells(2, 1) = .Cells(2, 1) 'Daten aus A2
Cells(3, 2) = .Cells(3, 2) 'Daten aus B3
Cells(4, 1) = .Cells(4, 1) 'Daten aus A4
Cells(4, 12) = .Cells(4, 12) 'Daten aus L4
Cells(6, 1) = .Cells(6, 1) 'Daten aus A6
Cells(8, 1) = .Cells(8, 1) 'Daten aus A8
'In Spalte P (16) bearbeiter und in Spalte Q (17) Datum & Zeit eintragen
.Cells(.Cells(Rows.Count, 16).End(xlUp).Row + 1, 16) = Application.UserName
.Cells(.Cells(Rows.Count, 17).End(xlUp).Row + 1, 17) = Date + Time
'Bild kopieren und im aktiven Blatt in C1 einfuegen '<-- hier
.Shapes("Logo").Copy '<-- hier
ActiveSheet.Paste Range("C1") '<-- hier
'Ende Daten aus Setup uebernehmen
End With
Datei ist angekommen, ich schaue dann mal rein.
Hallo Schauan,
vielen Dank. Jetzt dreht und skalliert er mir das Blatt wieder nicht :(
Hab ich mal wieder was falsch gemacht?
Gruß und Danke :100:
Alex
Edit: Ich hab die falsche Reihenfolge benutzt! Kommando zurück
Next step:
Folgendes soll dazu kommen:
"Setup"
A3 = leere Hilfszeile für späteres Dropdown
A4 = Timeline 1
A5 = Timeline 2
A6 = Timeline 3
A7 = Timeline 4
Ist nur Text.
B3 = von (ist formatiert auf maximale Eingabe bis 31.12.2018)
N3 = bis (ist formatiert auf maximale Eingabe bis 31.12.2018
Dann folgen B4:B7 für Timeline 1,2,3,4 (Start)
Dann folgen N3:N7 für Timeline 1,2,3,4 (Ende)
"Intelligent_Light" = 1 Tabellenblatt
K3 = Select Timeline (via Dropdown soll mit definierter Liste aus Setup A3:A7 gewält werden)
L3 = Timeline Start (verknüpft =WENN(K3="Timeline 1";Setup!$B$4;(WENN(K3="Timeline 2";Setup!$B$5;(WENN(K3="Timeline 3";Setup!$B$6;(WENN(K3="Timeline 4";Setup!$B$7;"")))))))
M3 = Timeline End (verknüpft = =WENN(K3="Timeline 1";Setup!$N$4;(WENN(K3="Timeline 2";Setup!$N$5;(WENN(K3="Timeline 3";Setup!$N$6;(WENN(K3="Timeline 4";Setup!$N$7;"")))))))
G3 = Days = Verknüpft (=WENN(ISTFEHLER(M3-L3);"";(M3-L3)))
Frage 1:
Wenn ich in K1 Timeline 1 wähle zeigt mir Excel in L3 und M3 immer 00.01.1900 an. Sämtliche versuche das weg zu bekommen scheitern. Hast du da evtl. eine Idee?
Andere Frage folgt
Danke Schauan :)
Gruß
Alex
Edit:
Frage 2: Kann man die Zellgröße automatisch nach dem Kopieren anpassen? Also das er die Zellgröße vollständig anpasst? Sonst schneidet er mir Begriffe ab :)
Danke und Gruß
Alex
Edit 3:
Hallo Schauan,
macht es Sinn, ein Makro zu erstellen, was einem die Tabelle wieder auf "Null" setzt? Evtl. wäre dies auch ein geeigneter Befehl für das Kontextmenü? Quasi als letzter Punkt? z.B. "Eingaben zurücksetzen" oder so?!
:15:
Danke und Gruß
Alex
Hallo Alex,
Frage 1:
Hast Du auf Setup in den entsprechenden Zellen auch Daten drin? Das, was dort steht, muss Excel als Datum interpretieren.
Stimmt die Bezeichnung Timeline x? Eventuell hast Du ein Leerzeichen zuviel dazwischen oder am Ende ... Dann gibt die Formel 0 zurück.
Wenn die Formel 0 liefert, bekommst Du das entsprechende Datum.
Frage 2:
Welche Zellen konkret? Bestimmt nur die Breite? Ich kann alle mit dem Befehl AutoFit anpassen oder ich nehme eine feste Größe - hat den Vorteil, dass die Blätter immer gleich aussehen.
Hallo Schauan,
also in Setup R8:R1833 sehen die Hilfsdaten als Datum vom 1.1.14-31.12.2018. Ich verstehe nicht, warum er mir dieses Datum anzeigt :(
zu 2: ich denke, es macht Sinn, wenn du es auf AutoFit breite anpassen würdest. Nimm dafür ruhig die meist zur verfüng stehende Breite des Blattes (Seitenränder können gerne 0,3 oder weniger haben). Es sei denn, du hast natürlich eine bessere Idee
Danke und Gruß
Alex