title image


Smiley Re: Benutzername aus Kommentar entfernen






Hier geht's ...

zu meiner Homepage









'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'+ entwickelt von Winfried Radner

'+ e-mail: Wolf.W.Radzinski@gmx.de

'+ Benutzung frei - ohne Gewähr

'+ 27.2.2002 --- www.rendar.de

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'+ Kopie des Makros

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub change_user_to_zero_activecell(Optional temp_user As String = " ")

   Dim c As Comment

   Dim nl As String

   Dim user As String

   Dim x As String

   Dim temp As String

   Dim del_str As Long

   nl = Chr(10)

   'hiermit wird verhindert, daß der User in der

   'Statuszeile genannt wird

   'zwischenspeichern

   user = Application.UserName

   'ändern oder chr(32) einsetzen NUR KEIN NULLstring

   If IsMissing(temp_user) Then temp_user = " "

   Application.UserName = temp_user

   

   For Each c In ActiveSheet.Comments

      If c.Parent.Address = ActiveCell.Address Then

          del_str = InStr(1, c.Text, nl)

          If InStr(1, c.Text, c.Author) > 0 Then

              temp = Right(c.Text, Len(c.Text) - del_str)

              Else

              temp = c.Text

              End If

          x = c.Parent.Address

          c.Delete

          Range(x).AddComment temp

          End If

       Next

   'alten Usernamen zurückholen

   Application.UserName = user

End Sub











geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: