2 Makros kombinieren
25.07.2006 16:43:46
horst
vielleicht kann jemand von Euch mir dabei helfen 2 Makros die ich bekommen habe zu kombinieren.
1a & b. Makro
Sinn des/r Makros ist es bei einer Änderung des Tabellenblattes das aktuelle Datum zu hinterlegen
------------------------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("A1").Value = Date
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Sh.Range("A1").Value = Date
Application.EnableEvents = True
End Sub
2. Makro
Das Makro liest den Benutzernamen des bei Windows angemeldeten Benutzer aus und gibt den Namen in einer MessageBox aus. Das Makro muss manuell ausgelöst werden.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("A1").Value = Date
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Sh.Range("A1").Value = Date
Application.EnableEvents = True
End Sub
________________________________________________________________
Weiß jemand von Euch, wie man die Funktionalität von Makro 2 zu der von Marko 1a und b hinzufügen kann? Meint, dass zu dem Datum das automatisch bei jeder Änderung in A1 geschrieben wird auch der angemeldete Name in B1 abgespeichert werden soll.
Wäre toll wenn mir ein Profi einen Tip geben könnte wie man das 2 Makro aus dem ersten aufruft und die Ausgabe in der Messagebox zu B2 gewandelt werden kann.
Gruß Horst