Clever-Excel-Forum

Hallo,

ich habe dieses Makro im Web gefunden um den Text aus dem Kommentarfeld in die Zelle zu schreiben.
Funktioniert aber ich möchte das Makro auf die Spalten B und F bis H begrenzen. Kann mir jemand helfen? Bin in VBA nicht so fitt.

Danke.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
Application.EnableEvents = False
For Each z In Target
    If z.Value = "" Then
        z.Value = z.NoteText
        z.Calculate
    End If
    If z.HasFormula Then
        z.NoteText Text:=z.Formula
        z.Font.ColorIndex = xlColorIndexAutomatic
    Else
        z.Font.ColorIndex = 3
    End If

Hallo,

versuche es mal so

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim z As Range

Application.EnableEvents = False

For Each z In Target

    If Not Intersect(Target, Union(Columns(2), Columns(6).Resize(, 3))) Is Nothing Then

        If z.Value = "" Then

            z.Value = z.NoteText

            z.Calculate

        End If

        If z.HasFormula Then

            z.NoteText Text:=z.Formula

            z.Font.ColorIndex = xlColorIndexAutomatic

        Else

            z.Font.ColorIndex = 3

        End If

    End If

Next z

Application.EnableEvents = True

End Sub

Hallo Stefan,

super, Danke für die schnelle Hilfe.

akazie

Steffl

akazie