With ThisWorkbook.Worksheets("CCB_Agenda")
.Range("E2:E5").Sort _
Key1:=.Range("E3"), Order1:=xlAscending, _
Header:=xlGuess, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Dim start As Integer
Dim ende As Range
Dim str_SuchString As String
Dim Counter1 As Integer
Dim Counter2 As Integer
str_SuchString = "Uhrzeit"
For Counter1 = 1 To ThisWorkbook.Worksheets("CCB_Agenda").Cells.SpecialCells(xlLastCell).Column
For Counter2 = 1 To ThisWorkbook.Worksheets("CCB_Agenda").Cells.SpecialCells(xlLastCell).Row
If Cells(Counter2, Counter1).Value = str_SuchString Then
Cells(Counter2, Counter1).Select
start = Counter2
End If
Next
Next