Dim wks As Excel.Worksheet
Dim Menu As Excel.Range
Dim Cat As Excel.Range
Dim Ids As Excel.Range
Set wks = Worksheets("Tabelle1")
Set Menu = wks.Range("A:A").Find("Menu 1:", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=XlSearchOrder.xlByColumns, MatchCase:=False)
If Menu Is Nothing Then Exit Sub
Set Cat = wks.Range("A:A").Find(1, After:=Menu, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=XlSearchOrder.xlByColumns, MatchCase:=False)
If Cat Is Nothing Then Exit Sub
Set Ids = wks.Cells(Cat.Row, "C")
Set Ids = wks.Range(Ids, Ids.End(xlDown))
Debug.Print Menu.Address, "= "; "'"; CStr(Menu.Value); "'"
Debug.Print Cat.Address, "= "; "'"; CStr(Cat.Value); "'"
Debug.Print Ids.Address
With Ids.Cells(2).Offset(0, -1)
Debug.Print "[Ids:2]="; .Address, "= "; "'"; CStr(.Value); "'"
End With