Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Excel nach Hause telefonieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Excel nach Hause telefonieren (1091 mal gelesen)
Ultimate AL8.0i
Mitglied
Dipl. -Ing. Maschinenbau


Sehen Sie sich das Profil von Ultimate AL8.0i an!   Senden Sie eine Private Message an Ultimate AL8.0i  Schreiben Sie einen Gästebucheintrag für Ultimate AL8.0i

Beiträge: 472
Registriert: 04.10.2007

NX 7.5.5.4 MP12
12er Päckchen Buntstifte + Geodreieck

erstellt am: 09. Okt. 2008 13:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

runkelruebe
Moderator
Straßen- / Tiefbau




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8017
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 09. Okt. 2008 13:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Ultimate AL8.0i
Mitglied
Dipl. -Ing. Maschinenbau


Sehen Sie sich das Profil von Ultimate AL8.0i an!   Senden Sie eine Private Message an Ultimate AL8.0i  Schreiben Sie einen Gästebucheintrag für Ultimate AL8.0i

Beiträge: 472
Registriert: 04.10.2007

erstellt am: 09. Okt. 2008 13:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

runkelruebe
Moderator
Straßen- / Tiefbau




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8017
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 09. Okt. 2008 13:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Ultimate AL8.0i
Mitglied
Dipl. -Ing. Maschinenbau


Sehen Sie sich das Profil von Ultimate AL8.0i an!   Senden Sie eine Private Message an Ultimate AL8.0i  Schreiben Sie einen Gästebucheintrag für Ultimate AL8.0i

Beiträge: 472
Registriert: 04.10.2007

erstellt am: 09. Okt. 2008 14:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Nochmals Danke!

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

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

Thomas Harmening
Moderator
Arbeiter ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2896
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 09. Okt. 2008 18:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Ralf_A
Mitglied



Sehen Sie sich das Profil von Ralf_A an!   Senden Sie eine Private Message an Ralf_A  Schreiben Sie einen Gästebucheintrag für Ralf_A

Beiträge: 269
Registriert: 14.10.2002

erstellt am: 10. Okt. 2008 07:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Thomas Harmening
Moderator
Arbeiter ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2896
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 10. Okt. 2008 09:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Ralf_A
Mitglied



Sehen Sie sich das Profil von Ralf_A an!   Senden Sie eine Private Message an Ralf_A  Schreiben Sie einen Gästebucheintrag für Ralf_A

Beiträge: 269
Registriert: 14.10.2002

erstellt am: 13. Okt. 2008 08:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

runkelruebe
Moderator
Straßen- / Tiefbau




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8017
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 13. Okt. 2008 08:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Ralf_A
Mitglied



Sehen Sie sich das Profil von Ralf_A an!   Senden Sie eine Private Message an Ralf_A  Schreiben Sie einen Gästebucheintrag für Ralf_A

Beiträge: 269
Registriert: 14.10.2002

erstellt am: 13. Okt. 2008 08:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

runkelruebe
Moderator
Straßen- / Tiefbau




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8017
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 13. Okt. 2008 09:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Ralf_A
Mitglied



Sehen Sie sich das Profil von Ralf_A an!   Senden Sie eine Private Message an Ralf_A  Schreiben Sie einen Gästebucheintrag für Ralf_A

Beiträge: 269
Registriert: 14.10.2002

erstellt am: 13. Okt. 2008 09:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Axel.Strasser
Ehrenmitglied V.I.P. h.c.
Selbstständig im Bereich PLM/CAx



Sehen Sie sich das Profil von Axel.Strasser an!   Senden Sie eine Private Message an Axel.Strasser  Schreiben Sie einen Gästebucheintrag für Axel.Strasser

Beiträge: 4107
Registriert: 12.03.2001

Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!

erstellt am: 13. Okt. 2008 09:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

runkelruebe
Moderator
Straßen- / Tiefbau




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8017
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 13. Okt. 2008 09:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

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

Ralf_A
Mitglied



Sehen Sie sich das Profil von Ralf_A an!   Senden Sie eine Private Message an Ralf_A  Schreiben Sie einen Gästebucheintrag für Ralf_A

Beiträge: 269
Registriert: 14.10.2002

erstellt am: 13. Okt. 2008 10:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

Danke an alle jetzt funzt es

Ralf

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

Thomas Harmening
Moderator
Arbeiter ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2896
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 13. Okt. 2008 13:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Ultimate AL8.0i 10 Unities + Antwort hilfreich

;-) 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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz