Kommentare
08.05.2006 22:05:24
Jacky
ich hab ja den Code von Sepp bekommen der ja super gut klappt. Hätte da aber noch eine frage wie kann man den Kommentaren eine ander schrift, schriftstärke, größe, usw. einstellen. Kann man das in dem Code noch intigrieren?
Ich hoffe ihr könnt mir helfen?
Gruß Jacky
Hier der Code !!!
Option Explicit
Public Merker As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
'Application.ScreenUpdating = False
Application.DisplayCommentIndicator = xlCommentAndIndicator
Application.Calculation = xlManual
If Merker <> "" Then Worksheets("1GP").Range(Merker).NoteText ""
If Target.Cells.Count <> 1 Then Exit Sub
If pruef(Target) = False Then Exit Sub
Merker = Target.Address
Worksheets("1GP").Range(Merker).NoteText Worksheets("1GP").Cells(Target.Row, 4)
Fehler:
Application.Calculation = xlAutomatic
'Application.ScreenUpdating = True
End Sub
Function pruef(Zelle As Range) As Boolean
Dim n As Byte, Pruef1 As Boolean, pruef2 As Boolean
If Zelle.Row >= 9 And Zelle.Row For n = 6 To 24 Step 2
If Zelle.Column = n Then
pruef2 = True
Exit For
End If
Next n
If Pruef1 = True And pruef2 = True Then pruef = True
End Function