Makro nur auf Spalten anwenden

[akazie]

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

[Steffl]

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

[akazie]

Hallo Stefan,

super, Danke für die schnelle Hilfe.