AW: Ctrl+Enter das klappt aber noch etwas!
19.12.2007 08:58:00
serge
Hi mag
bei Set cmt bleibt er stehen und meldet " Laufzeitfehler 1004-Anwendung oder Objektdefiniereter Fehler"!
Was ist falsch daran?
Serge
Private Sub CommandButton2_Click()
If ComboBox1.Value = "" Then
Wahl = MsgBox("Benutzer fehlt?", , Title:=" Benutzer ")
ComboBox1.SetFocus
Else
If ComboBox2 = "" Then
Wahl = MsgBox(" Zweck fehlt?", , Title:=" Zweck ")
ComboBox2.SetFocus
Else
ActiveSheet.Unprotect
Selection.Merge
Selection.FormulaR1C1 = ComboBox1 & Chr(10) & ComboBox2
Selection.RowHeight = 12.75
Dim cmt As Comment
Dim LOG, UserN$, UserID$
UserID = Environ("Username") ' Der Anmeldename am Netzwerk
UserN = Application.UserName 'der in Excel eingetragenen Name
For Each rng In Selection
Set cmt = ActiveCell.AddComment(ComboBox1 & Chr(10) & ComboBox2 & Chr(10) & _
Chr(10) _
& "Termin erfasst" & Chr(10) & "am " & Format(Date, "d.m.yy") _
& Chr(10) & "von " & UserID)
With cmt.Shape.TextFrame.Characters.Font
.Name = "Courier"
.Size = 12
.Bold = False
End With
With cmt.Shape.TextFrame
.AutoSize = True
End With
Next
End With
Unload Me
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub