Code kürzen
09.11.2016 15:10:53
Berndt
ich frage mich ob man nicht die folgenden 2 Codestellen kürzen kann, der Übersicht halber.
...
Zell.Offset(0, 2).Borders(xlEdgeBottom).LineStyle = xlDot
Zell.Offset(0, 2).Borders(xlEdgeBottom).TintAndShade = 0
Zell.Offset(0, 2).Borders(xlEdgeBottom).Weight = xlThin
Zell.Offset(0, 2).Locked = False
Zell.Offset(0, 3).Borders(xlEdgeBottom).LineStyle = xlDot
Zell.Offset(0, 3).Borders(xlEdgeBottom).TintAndShade = 0
Zell.Offset(0, 3).Borders(xlEdgeBottom).Weight = xlThin
Zell.Offset(0, 3).Locked = False
Zell.Offset(0, 4).Borders(xlEdgeBottom).LineStyle = xlDot
Zell.Offset(0, 4).Borders(xlEdgeBottom).TintAndShade = 0
Zell.Offset(0, 4).Borders(xlEdgeBottom).Weight = xlThin
Zell.Offset(0, 4).Locked = False
Zell.Offset(0, 5).Borders(xlEdgeBottom).LineStyle = xlDot
Zell.Offset(0, 5).Borders(xlEdgeBottom).TintAndShade = 0
Zell.Offset(0, 5).Borders(xlEdgeBottom).Weight = xlThin
Zell.Offset(0, 5).Locked = False
Zell.Offset(0, 6).Borders(xlEdgeBottom).LineStyle = xlDot
Zell.Offset(0, 6).Borders(xlEdgeBottom).TintAndShade = 0
Zell.Offset(0, 6).Borders(xlEdgeBottom).Weight = xlThin
Zell.Offset(0, 6).Locked = False
...
undPrivate Sub ToggleButton1_Click()
ActiveWorkbook.Worksheets("Themenspeicher").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Themenspeicher").Sort.SortFields.Add Key:=Range( _
"E6:E24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Themenspeicher").Sort.SortFields.Add Key:=Range( _
"B6:B24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Themenspeicher").Sort.SortFields.Add Key:=Range( _
"D6:D24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Themenspeicher").Sort
.SetRange Range("B5:F24")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Das letzte Sub ist mit einem Rekorder aufgenommen und Prinzipiell hätte ich gerne die Begrenzung nach unten flexibel gelassen (Also nicht bis F24). Geht das?VG Berndt