VBA line nummer in een cel

[Jeneroy]

Goede morgen,

Ik heb een macro gemaakt en gebruik “on error” functie. Deze werkt prima.
Ik gebruik deze code:

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = Err.Number
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = Err.Description

Kan iemand mij helpen om de VBA line nummer te vermelden in een cel?

Alvast bedankt

 

[OctaFish]

Bedoel je dit?

Sub testje()
    With ActiveCell
        .Offset(0, 1).FormulaR1C1 = .Row & " - " & Err.Number
        .Offset(0, 2).FormulaR1C1 = .Row & " - " & Err.Description
    End With
End Sub

Vermijd Select als het niet nodig is, zoals in dit geval.

 

[Jeneroy]

bedankt voor de snelle reactie. heb het opgelost.

bedoelde dit :

ActiveCell.FormulaR1C1 = "An error occured in line: " & Erl

 

[OctaFish]

Vragen goed stellen is ook een kunst . Maar mooi dat je het zelf gevonden hebt :thumb: