Variablenübergabe
13.06.2020 21:50:13
Klaus
folgendes verursacht diesen Fehler: Index außerhalb des gültigen Bereichs.
Ich komme nicht darauf, wo der Fehler liegen könnte ... Tausend Dank für die Hilfe!!! LG
Public Const sortfeld = "A1:AZ10000"
-------------------------------------------
Private Const dd = "d01"
-------------------------------------------
Public Sub SortA(dd As String)
ActiveWorkbook.Worksheets(dd).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(dd).Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, _
_
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(dd).Sort
.SetRange Range(sortfeld)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Anzeige