Office: (Office 2007) Fusszeile mit UserName und Datum / Zeit einfügen

hallo *Smilie

habe ca. 200 excel-dateien als vorlagen.

nun die frage:

wenn ich eine datei öffne soolte automatisch in jeder datei eine fusszeile mit folgendem inhalt eigefügt werden.

Druck: 18.Juli 2008 / 14:45 Uhr von Meierku (vobei Meierku der Username sein soll und ander User)

datum und die zeit resp. der username sollte immer wieder neu aktuallisiert werden (aktueller datum/Zeit/username)

schriftgrösse sollte 7 sein und rechts plaziert werden.

dass ganze sollte alles automatisch funktionieren. (keine makros starten usw.)

wer kann mir helfen, wäre sehr dankbar

gruss aus der schweiz *mrcool *mrcool

oldfield

:)

 

Hallo oldfield,

folgendes Makro kommt in das Modul "DieseArbeitsmappe" der betreffenden Dateien. Das Makro startet automatisch beim Öffnen der Datei und fügt die gewünschte Fußzeile auf allen Tabellenblättern ein.

Code:

 

Hallo oldfiled,

um das zu lösen, musst Du eine VBA-Lösung einsetzten - ich denke, das ist Dir schon klar, oder ?
Ich sehe da 3 Lösungsmöglichkeiten :

• Makro "Workbook_Open()" in jede einzelne Mappe
  VORTEIL :
  • Makro startet beim Öffnen der Mappe automatisch
  NACHTEILE :
  • Muss in jede Mappe integriert werden
  • Makro wird in jeder Kopie der vorlage mitgespeichert
  • Makro muss beim Öffnen bestätigt werden (oder VBA-Zertifizierung erforderlich)
• Ein "normales" AddIn
  VORTEILE :
  • Wird nur einmalig auf einem PC installiert
  • Dateien bleiben Makrofrei
  NACHTEILE :
  • Muss auf jedem PC installiert werden
  • Funktionalität muss manuell angestossen werden
• Ein AddIn auf Klassenmodulbasis
  VORTEILE :
  • Siehe "normales" AddIn
  • Kann auf alle neuen Mappen automatisch reagieren
  NACHTEILE :
  • Muss auf jedem PC installiert werden
  • Komplexität der Erstellung (soll heissen : fundierte Kenntnisse der Klassenprogrammierung erforderlich)

Ein Beispiel für ein Klassenorientiertes AddIn ("Save Historie" o.ä.) findest Du in einem Beitrag von chris-ka, den ich z.Zt. jedoch leider nicht finde
*frown.gif*

 

Hallo oldfield,

nach einem Tip von jinx bzgl. eines kleinen Beispielcodes für klassenorientierte Programmierung habe ich nun mal auf die Schnelle ein Mini-AddIn erstellt.
Es enthält eine kleine Symbolleiste zum Aktivieren/Deaktivieren der Funktionalität, da diese ansonsten für alle Mappen der aktuellen Excel-Instanz automatisch greift !

Lade das angehänget AddIn herunter und installiere es per "Extras - AddIns-Manager - durscuhen - (XLA auswählen) - OK"

Der Code ist offen, Du kannst dir also anschauen, wie das programmiert ist !
Wichtig sind im VBA-Editor die Container DieseArbeitsmappe, Modul1 und clsApp !
Im Klassenmodul clsApp ist der Text der Fusszeile hinterlegt - dort kannst Du ihn abändern !

 

hallo NoNet

besten dank für die vorlage und den ärklärungen.

soweit funk. es gut, habe jedoch noch einen wunsch.

beim username wir der angemeldete name übernommen. gibt es eine möglichkeit den ganzen volständigen namen zu schreiben.

z.b.: meierma = Meier Markus
mülleha = Müller Hans

der username ist immer name=5 plus vorname=2 buchstaben.

wenn man dies noch integrieren könnte wäre dies supper!

besten dank im voraus

oldfield

 

hallo ingolf

besten dank für die prompte antwort.

werde die verschiedenen möglichkeiten prüfen.

also nochmals besten dank

oldfield

 

Hallo oldfield,

woher kommt denn die Zuordnung "meierma" zu "Meier Markus" ?
diese Namen müssten dann irgendwo hinterlegt sein (zur Not in einer externen Mappe !)

 

Hallo oldfield,

statt:
Environ(" USERNAME ") 'z.B. HAME

probiere mal:
Application.Username 'z.B. Hans Meier

Es hängt aber davon ab, ob die Namen wirklich gänzlich hinterlegt sind bei den Usern, ansonsten benötigt man, wie oben schon erwähnt, eine Referenzinformation.

 

guten morgen nonet

besten dank für die antwort

ich habe mir gedacht mann könne das etwa in der vorlage einbauen die du mir am 18.07.08 als muster beigelegt hast.
sollte das nicht machbar sein müsste man über die idee mit einer sep. mappe machen.

kannst du mir hier dabei helfen? wäre sehr supper.

im voraus besten dank

oldfield*wink.gif* *Smilie

 

guten morgen woody

besten dank für deine antwort

die idee wäre die referenz in der vorlage von NoNet zu integrieren.
ich habe 3 div. namen die umgesetzt werden müssten.

der username = Name + Vorname

wenn es nicht anders geht müsste man die idee mit der sep. mappe nachdenken.

aber wie kann ich das lösen?

gruss

oldfield*eek.gif* *upps