Selektieren & Referenzieren

Sub START()
' START Makro
Columns("D:J").Select
Selection.Copy
Sheets("Zwischenschritt 1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Zwischenschritt 1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Zwischenschritt 1").Sort.SortFields.Add Key:=Range _
("B2:B125417"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Zwischenschritt 1").Sort
.SetRange Range("A1:G125417")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("K:S").Select
Selection.Copy
Sheets("Enddaten").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Sub START()
' START Makro
Application.ScreenUpdating = False  'Aktualisierungen ausschalten verhindert Flackern beim Ausfü _
hren des Makros.
Workbooks("Dateiname.xlsm").Worksheets("Rohdaten").Range("D:J").Copy  'Kopieren der Zellen  _
D bis J in Datei auf Tabellenblatt "Rohdaten"
Workbooks("Dateiname").Worksheets("Zwischenschritt 1").Range ("A:G") 'Kopierte Daten in  _
Tabellenblatt Zwischenschritt 1 ab Zelle A1
Application.CutCopyMode = False
End Sub