Option
Explicit
Sub
Tastit()
Dim
rngUsed
As
Range, x
As
Long
Sheets(
"Tabelle3"
).Cells.ClearContents
Set
rngUsed = Sheets(
"Daten"
).UsedRange.Columns(
"F:I"
)
Sheets(
"Stammdaten"
).Range(
"A1"
).Value =
"a"
rngUsed.Copy
Sheets(
"Tabelle3"
).Cells(1).PasteSpecial (-4163)
Set
rngUsed = rngUsed.Offset(1, 0).Resize(rngUsed.Rows.Count - 1, rngUsed.Columns.Count)
Sheets(
"Stammdaten"
).Range(
"A1"
).Value =
"b"
rngUsed.Copy
With
Sheets(
"Tabelle3"
)
.Cells(.Rows.Count, 1).
End
(xlUp).Offset(1).PasteSpecial (-4163)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range(.UsedRange.Columns(1).Address), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange Range(.UsedRange.Address)
With
.Sort
.Header = xlYes
.MatchCase =
False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End
With
End
With
End
Sub