VBA in excel: hoe tabbladnaam toevoegen in gegenereerde tekst?

[ropstop]

Beste allemaal,

Ik houd wijzigingen bij in excel met behulp van onderstaand VBA scriptje.


---

Dim PreviousValue

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
Application.UserName & " verandert cel " & Target.Address _
& " van " & " ' " & PreviousValue & " ' " & "naar " & " ' " & Target.Value & " ' " & " op tijdstip " & Time & " en datum " & Date
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub

---

Dit resulteert in het werkblad 'log' de tekst "[NAAM] verandert cel [CEL] van '[VROEGERE WAARDE] ' naar '[NIEUWE WAARDE]' op tijdstip [TIJDSTIP] en datum [DATUM] in het werkblad

Nu zou ik ook graag de naam van het werkblad waarin dit gebeurt hierin willen opnemen. Hoe zou ik dat moeten doen?

(en ja, ik weet dat wijzigingen bijhouden al bestaat in excel, maar dat is dan ook niet de vraag )

Groet,

Rob de VBA newbie

 

[edmoor]

De naam van je werkblad kun je ophalen met: Thisworkbook.Name
Thisworkbook.Fullname geeft de naam van je werkblad inclusief het volledige pad.

 

[ropstop]

Bedankt!

Ik had het nu voor elkaar mbv Me.Name

Maar het volledige pad erin opnemen is ook geen gek idee.

Rob

 

[Emil S]

direct de naam van het werkblad: target.parent.name