AW: Hintergrundbild in Arbeitsmappe
07.12.2005 19:00:18
Horst
Hallo Beate,
den Tag über hatte ich leider keine Zeit, mich mit dem Problem zu beschäftigen. Ich möchte mich nun, wenn auch verspätet, für Deine Info bedanken, denn der Tipp war goldrichtig. Ich habe mir ein Jahres-Haushaltsbuch mit einem Deckblatt und die Blätter Januar bis Dezember, also insgesamt 13 Tabellenblätter entwickelt, auf die das Makro zugreifen soll. Der nachfolgende Code wurde von mir ergänzt und besteht aus 2 Teilen.
Private Sub Workbook_Open()
Worksheets("Deckblatt").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Konto-Dateien\dbl-06.jpg"
Worksheets("Januar").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("Februar").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Hasi\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("März").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("April").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("Mai").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("Juni").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("Juli").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("August").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("September").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("Oktober").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("November").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\jan-nov.jpg"
Worksheets("Dezember").SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\Eigene Dateien\Ko\Ko-Dateien\dez.jpg"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Deckblatt").SetBackgroundPicture Filename:=""
Worksheets("Januar").SetBackgroundPicture Filename:=""
Worksheets("Februar").SetBackgroundPicture Filename:=""
Worksheets("März").SetBackgroundPicture Filename:=""
Worksheets("April").SetBackgroundPicture Filename:=""
Worksheets("Mai").SetBackgroundPicture Filename:=""
Worksheets("Juni").SetBackgroundPicture Filename:=""
Worksheets("Juli").SetBackgroundPicture Filename:=""
Worksheets("August").SetBackgroundPicture Filename:=""
Worksheets("September").SetBackgroundPicture Filename:=""
Worksheets("Oktober").SetBackgroundPicture Filename:=""
Worksheets("November").SetBackgroundPicture Filename:=""
Worksheets("Dezember").SetBackgroundPicture Filename:=""
End Sub
Private Sub Workbook_Open()
Sheets("Juli").ScrollArea = "B1:F53"
Sheets("August").ScrollArea = "B1:F53"
Sheets("September").ScrollArea = "B1:F53"
Sheets("Oktober").ScrollArea = "B1:F53"
Sheets("November").ScrollArea = "B1:F53"
Sheets("Dezember").ScrollArea = "B1:F53"
Sheets("Januar").ScrollArea = "B1:F53"
Sheets("Februar").ScrollArea = "B1:F53"
Sheets("März").ScrollArea = "B1:F53"
Sheets("April").ScrollArea = "B1:F53"
Sheets("Mai").ScrollArea = "B1:F53"
Sheets("Juni").ScrollArea = "B1:F53"
End Sub
Der letzte Teil des Code soll bewirken, dass nur die Zellen B1:F53 aktiviert werden können. Auf diesen Effekt möchte ich ungern verzichten. Doch beides zusammen funktioniert nicht. Also entweder Code für die Hintergrundbilder oder aber Code für die zu aktivierenden Zellen. Wie kann man beides unter einen Hut bekommen?
Ich darf mich im Voraus bedanken.
Mit freundlichen Grüßen
Horst