---

Hallo liebe Excel Gemeinde, die Suchfunktion habe ich schon erfolglos benutzt deshalb hier mein erster Beitrag. (Excel 2003 SP3)

Ich habe eine Arbeitsmappe in die verschiedene Mitarbeiter eintragen können. Nun möchte ich informiert werden, wenn ein Mitarbeiter in die Excelmappe etwas eingetragen hat, am besten per Mail.

Geht sowas, und wenn ja wie?

------------------
MfG Alexander

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Könnte das (KLICK) was für Dich sein?

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi runkelruebe, das ging ja mal fix!

Sieht schon sehr gut aus, wobei ich jedoch gehofft hatte das das ohne VBA geht da ich davon fast keine Ahnung habe.

Aber macht nix, ich werde mir den Thread mal genau durchlesen und schauen wie ich das umsetzen kann.

Tausend Dank für die schnelle Antwort!

------------------
MfG Alexander

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ohne VBA ist mir nicht bekannt, aber ich hab noch was gefunden: Ramses Excel-Seite. Klicker Dich mal durch, gibt viel zu gucken dort ;-)

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nochmals Danke!

------------------
MfG Alexander

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Pfui,

nach hause telefonieren ;-)

ich hatte mal zum Spass mitprotokolliert,
wer alles meine Mappe benutzte ;-)

Dazu habe ich nur User, Zeitstempel in eine Ascii datei schreiben lassen;-)

Ich wollte nicht in einer Mailflut begraben werden  .

irgendwo müsste ich auch noch ein Fragment eines codes haben, das mailversand per Lotus Notes ermöglicht.

Achherje, war früher alles perfekt automatisiert ,-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich hatte mal zum Spass mitprotokolliert,
wer alles meine Mappe benutzte ;-)

Hallo Thomas,

würde mich mal interessieren, kannst du das hier mal reinstellen wie du das umgesetzt hast.

Danke im voraus

Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Private Declare Function GetUserName _
    Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, _
    nSize As Long) _
    As Long
   
Public Function Benutzername() As String
Dim strName As String
Dim lngErgebnis As Long

  Application.Volatile
  strName = String(256, Chr(0))
  lngErgebnis = GetUserName(strName, 256)
  If lngErgebnis <> 0 Then
    strName = _
      Left(strName, InStr(strName, Chr(0)) - 1)
  Else
    strName = "unbekannt"
  End If
  Benutzername = strName
 
End Function

Sub bigbrother()
Open "C:\tmp\DNC-LOG.txt" For Append As #1
    Print #1, "Programm " & Cells(1, 3) & ": DNC-Blatt gedruckt am " & Date & " um " & Time & " von " & Application.UserName & " aka WindowsAnmeldeID" & Benutzername
    Close
End Sub

---

hier der Schnippsel,

bei nicht vorhandensein, der Log-Datei wird sie angelegt, sofern C:/tmp vorhanden,
wenn vorhanden wird sie um eine Zeile erweitert.

den Print #1 nach eigenem gusto zusammen stellen  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

es funzt schon ganz gut, nur muß ich das Makro manuell starten. Es gibt doch bestimmt eine Möglichkeit, das Makro beim verlassen automatisch zu starten.

Danke im voraus

Gruß
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ralf,
was meinst Du damit? Schreib doch z.B. in DieseArbeitsmappe ein

Code:

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call bigbrother
End Sub

---

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Runkelruebe,

Danke für deine Hilfe.

Mein Makro sieht jetzt so aus:

Private Declare Function GetUserName _
    Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, _
    nSize As Long) _
    As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call bigbrother
End Sub

Public Function Benutzername() As String
Dim strName As String
Dim lngErgebnis As Long
Application.Volatile
strName = String(256, Chr(0))
lngErgebnis = GetUserName(strName, 256)
If lngErgebnis <> 0 Then
strName = _
Left(strName, InStr(strName, Chr(0)) - 1)
Else
strName = "unbekannt"
End If
Benutzername = strName

End Function
Sub bigbrother()
Open "C:\Temp\DNC-LOG.txt" For Append As #1
Print #1, "Programm " & Cells(1, 3) & ": DNC-Blatt gedruckt am " & Date & " um " & Time & " von " & Application.UserName & " aka WindowsAnmeldeID" & Benutzername
Close
End Sub

Aber leider wird noch nichts automatisch in die Datei C:\Temp\DNC-LOG.txt eingetragen.

Ein automatischer Eintrag in die Datei C:\Temp\DNC-LOG.txt müsste doch hinzukriegen sein.

Gruß
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
definiere bitte "automatisch".

automatisch = beim Schließen der Mappe?
-> s.o.

automatisch = Montags um 5?
-> If Weekday(Now()) = 2 And Hour(Now()) = 5 Then Call bigbrother

usw. hth

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

automatisch = beim Schließen der Mappe

Ich habe es in mein Makro eingefügt (siehe oben) aber es funzt nicht.
Vielleicht ist es an einer falschen Stelle eingefügt habe keine Ahnung.

Gruß
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wohin hast Du den Deine  Sub Workbook_BeforeClose geschrieben ?

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry, diese Kreativität hatte ich doch glatt übersehen..
Der BeforeClose-Schnippsel gehört, wie erwähnt, in DieseArbeitsmappe , nicht mit ins Modul.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke an alle jetzt funzt es

Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

;-) ich führte das Makro immer beim Öffnen der Mappe aus;-)

und C: ist lokal ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP