Dim wb As Workbook
Dim ws As Worksheet
Dim GefZelle As Object
 
set wb=activeworkbook
 
set ws=wb.sheets(5)
 
set GefZelle=ws.Range("1:1").Find(What:=ws.Name)
 
ws.Cells(GefZelle.Row, GefZelle.Column + 1).Value="Neuer Eintrag"

EALA FREYA FRESENA