Hallo zusammen,
ich habe folgende Ausgangs Situation:
Uhrzeit
08:00
08:15
08:05
Uhrzeit
08:41
08:21
Uhrzeit
08:43
08:47
Nun sollen innerhalb der Blöcke die Uhrzeiten sortiert werden.
Mein Ansatz war:
Suche Uhrzeit bis Uhrzeit merke die Range und sortiere dann innerhalb, doch die Syntax macht mir Probleme.
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
Nun muss quasi der obere BLock noch in den unteren mit start und end Range.
Kann mir jemand weiter helfen?
Vielen Dank und viele Grüße
Marco |