VBA Kommentar

27/11/2009 - 18:36 von Ralf11 | Report spam
Hallo,
ich bin leider sehr unbeholfen wenn es um VBA geht.
Ich möchte gerne in dem untenstehenden Makro für eine Kommentareingabe den
Usernamen, Datum und die Uhrzeit nicht mit im Kommentar stehen haben.

Sub Kommentar()
Dim Kom As Comment
Dim s As String

Sheets("Urlaubsliste").Activate
s = InputBox _
("Geben Sie ihren Kommentar ein!", _
"Kommentar")
If s = "" Then Exit Sub
Set Kom = ActiveCell.AddComment
Kom.Text Application.UserName & Chr(10) _
& Date & Chr(10) & Time & " Uhr" & Chr(10) & s
With Kom.Shape.TextFrame
.Characters.Font.Name = "Arial"
.Characters.Font.Size = 12
.AutoSize = True
End With
End Sub

Vielen Dank für Eure Hilfe.

Gruß,
Ralf
 

Lesen sie die antworten

#1 Frank Arendt-Theilen
27/11/2009 - 19:48 | Warnen spam
Hallo Ralf11?,
wie folgt:

Sub Kommentar()
Dim Kom As Comment
Dim s As String
Sheets("Urlaubsliste").Activate
s = InputBox _
("Geben Sie ihren Kommentar ein!", _
"Kommentar")
If s = "" Then Exit Sub
Set Kom = ActiveCell.AddComment
Kom.Text s
With Kom.Shape.TextFrame
.Characters.Font.Name = "Arial"
.Characters.Font.Size = 12
.AutoSize = True
End With
End Sub


Mit freundlichem Gruß aus der Rattenfàngerstadt Hameln
Frank Arendt-Theilen
(ehem. MVP für Excel)
Website: www.xl-faq.de
Microsoft - Excel, Bedingte Formatierung, ISBN: 978-3-86645-806-2

Ähnliche fragen