Ich hab mich gefragt, was meine Eltern früher ohne Internet gemacht haben. Auch meine 14 Geschwister konnten mir keine Antwort geben.
Hallo Herr Martin,
Hier mal ein Problem an Sie als Excel-Guru.
Wir haben in unserem Dokumentenlenkungssystem eine Vorlage für Excel mit spezifischen Eigenschaften (siehe Bild mit den teilweise kundenspezifischen Eigenschaften).
Damit in Excel beim ausdrucken die wesentlichen Informationen in Kopf und Fußzeile erscheinen, müssen wir das alles sehr aufwändig händisch in allen Tabellenblättern pflegen. Was natürlich sehr fehlerträchtig ist…
Ich habe mit meinen sehr bescheidenen Kenntnissen mal versucht, irgendwie mit VBA da an die Info ranzukommen, so:
Sub Test()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.CustomDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
rw = rw + 1
Next
End Sub
Im Ergebnis allerdings ohne Erfolg, da kaum Werte so rauslesbar sind, vor allem nicht die spezifischen. Das wäre auch nur die halbe Miete gewesen, da ja das Einbringen der Info in die Kopf- und Fußzeile nochmal ein separates Problem darstellt, für die ich aktuell keine Idee zur Lösung habe… Kennen Sie vielleicht ein paar VBA-Kniffe, wie ich hier vielleicht weiterkomme?
Hallo Herr F.,
und so geht es:
mit
Dim i As Integer
On Error Resume Next
For i = 1 To ThisWorkbook.ContentTypeProperties.Count
MsgBox ThisWorkbook.ContentTypeProperties(i).Name & „//“ & ThisWorkbook.ContentTypeProperties(i).Value
Next
ermittle ich die von SharePoint gesetzten Werte und Namen.
Mit
MsgBox ThisWorkbook.BuiltinDocumentProperties(„Title“).Value, , „Titel“
MsgBox ThisWorkbook.ContentTypeProperties(„Location“).Value, , „Location“
MsgBox ThisWorkbook.ContentTypeProperties(„Target group“).Value, , „Target group“
MsgBox ThisWorkbook.ContentTypeProperties(„Document type“).Value, , „Document type“
greife ich auf die Inhalte zu.
Und: Dies kann in
Private Sub Workbook_BeforePrint(Cancel As Boolean)
eingebunden werden:
ActiveSheet.PageSetup.LeftHeader = …
