Sub Sort2()
Sheets("Alle mit cw doppler").Select
'Auswahl erste U-Reihe
Range("L4").Select
Range(ActiveCell(), ActiveCell.offset(0, 11)).Select
Selection.Copy
'Datenblatt hinzufügen
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = "Daten"
Range("A1").Select
ActiveSheet.Paste
'Zeilenwechsel Daten
'Beginn schleife
ActiveCell.offset(1, 0).Range("A1").Select
'2.U-Reihe
Dim i As Byte
For i = 1 To 11
Sheets("Alle mit cw doppler").Select
ActiveCell.offset(0, 12).Select
Range(ActiveCell(), ActiveCell.offset(0, 11)).Select
Selection.Copy
Sheets("Daten").Select
ActiveSheet.Paste
ActiveCell.offset(1, 0).Range("A1").Select
Sheets("Alle mit cw doppler").Select
ActiveCell.offset(0, 12).Select
Next
If i = 11 Then
Range(ActiveCell(), ActiveCell.offset(0, 11)).Select
Else
Range(ActiveCell(), ActiveCell.offset(0, 11)).Select
Selection.Copy
Sheets("Daten").Select
ActiveSheet.Paste
End If
'U-Daten sortieren
If i = 11 Then
Columns("A:L").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub