(Worksheet_Change) omzetten na een normale macro

[Tweety1]

Hoe kan ik deze vba code aanpassen na een normale macro

If Target.Column = 1 Then
    With Target
    On Error Resume Next
    Select Case .Value
        Case "A" To "ÿ"
            .Font.Size = 12
         Case Else
            .Font.Size = 8
        End Select
        
End With
End If

 

[HSV]

activecell

 

[Tweety1]

Hoe kan ik er een loop inmaken zodat hij kolom a afgaat

 

[HSV]

Met:

for each
.....
next

 

[Tweety1]

Ik kom er niet uit hij werkt wel als ik op de cel sta maar de loop werkt niet

Sub Test()
Dim rCell As Range
Dim rRng As Range

Set rRng = Sheets(1).Range("A1:A6")

For Each rCell In rRng.Cells
If ActiveCell.Column = 1 Then
    With ActiveCell
    On Error Resume Next
    Select Case .Value
        Case "A" To "ÿ"
            .Font.Size = 12
         Case Else
            .Font.Size = 8
        End Select
        
End With
End If
Next rCell
End Sub

 

[edmoor]

Probeer deze maar eens:

Sub Test()
Dim rCell As Object
Dim rRng As Range

Set rRng = Sheets(1).Range("A1:A6")

For Each rCell In rRng.Cells
    With rCell
        Select Case .Value
            Case "A" To "ÿ"
                .Font.Size = 12
            Case Else
                .Font.Size = 8
        End Select
    End With
Next rCell
End Sub

Tip:
Gebruik nooit On Error Resume Next zonder zelf de foutafhandeling te regelen.

 

[Tweety1]

Ik heb de macro geprobeerd alleen doet ie niks (krijg geen foutmelding)

 

[edmoor]

Hij doet het hier prima. Plaats dan eens je test documentje. En hoe start je nu de macro? Door welke gebeurtenis moet deze worden gestart als het niet in de Worksheet_Change moet?

 

[Tweety1]

Ik zie het al er stond iet uitgeschakeld door een ander macro
Bedankt