Daten einlesen und nicht mehr überschreiben
18.08.2006 11:15:27
Turi
ich habe eine Vorlage erstellt und lese mit folgendem Makro aus unserer Benutzerverwaltung (Active Directory) in eine Zelle ein:
Private Sub Workbook_open()
Set myUserCurrentUser = GetObject("WinNT://" & Environ$("USERDOMAIN") & "/" & Environ$("USERNAME") & ",user")
Set myUser = GetObject("LDAP://CN=" & myUserCurrentUser.FullName & ",OU=USER,OU=" & Environ$("USERDOMAIN") & ",DC=" & Environ$("USERDOMAIN") & ",DC=ch")
Range("b18").Select
ActiveCell.FormulaR1C1 = myUser.get("mailNickname")
End Sub
Wenn der User aus dieser Vorlage eine Arbeitsmappe erstellt, so erscheint die gewünschte Information in B18 und funktioniert eigentlich. Nun möchte ich dieses Makro so ergänzen, dass es nur abläuft, wenn von der Vorlage eine neue Arbeitsmappe erstellt wird. Mit anderen Worten, wenn eine bestehende Arbeitsmappe erneut geöffnet wird, darf dieser Eintrag nicht überschrieben werden. Weiss jemand wie das geht?
Vielen Dank für die Antwort.
Gruss Turi