Kommentar automatisch formatieren

Hallo Zusammen.
Über den Unten stehenden Code, wird automatisch ein Kommentar generiert, wenn ich in meiner Tabelle irgend wo ein A eingebe. Ich würde jetzt gerne den Kommentar sofort so formatiert haben, das er in Fettschrift ist Größe 10 und wenn es geht sollte der Kommentar grün hinterlegt sein, anstatt gelb.
Weiss jemand wie ich den Code ändern müsste .
Option Explicit
Dim adresse As String, zeile As Long, spalte As Long


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim Blatt As Long
For Blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(Blatt).Unprotect
Next Blatt
On Error Resume Next
If Not Intersect(Target, Range("A1:IV65536")) Is Nothing And Target.Value = "A" Then
adresse = Target.Address
zeile = Range(adresse).Row
spalte = Range(adresse).Column
Range(adresse).AddComment
Range(adresse).Comment.Visible = True
Range(adresse).Comment.Shape.Select
Range(adresse).Comment.Text Text:="Eingabe:" & Chr(10) & ""
End If
On Error GoTo 0
Application.ScreenUpdating = True
End Sub

Grüße Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche3_BeiKlick() Range("C10").Comment.Shape.Select True With Selection.Font .Name = "Tahoma" .FontStyle = "Fett" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57 Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) End Sub

Hallo Fred,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Blatt As Worksheet

On Error GoTo ErrExit
Application.ScreenUpdating = False

For Each Blatt In Me.Worksheets
    Blatt.Unprotect
Next

If Not Intersect(Target, Range("A1:IV65536")) Is Nothing And Target.Value = "A" Then

    ' adresse = Target.Address 'Quatsch
    ' zeile = Range(adresse).Row 'Quatsch
    ' spalte = Range(adresse).Column 'Quatsch

    With Target
        On Error Resume Next
        .Comment.Delete
        On Error GoTo 0
        .AddComment
        With .Comment
            .Visible = True
            With .Shape.TextFrame.Characters
                .Text = "Eingabe:" & Chr(10) & ""
                .Font.Size = 10
                .Font.Bold = True
            End With
            .Shape.Fill.ForeColor.RGB = RGB(175, 255, 175)
        End With
    End With

End If

ErrExit:
Application.ScreenUpdating = True
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Kommentar automatisch formatieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kommentar automatisch formatieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread