Überlauf Fehler 6
23.03.2022 00:15:42
oraculix
Ich habe ein Problem mit meiner Sortierung. Fehler 6 Überlauf!
Mit einem Doppelklick in Zeille1 (beliebige Spalte ) wird die Tabelle sortiert abwechselnd einmal von A-z oder Z-A.
Der VBA Code funktioniert zwar aber es kommt 4 mal eine Msgbox mit den Fehler 6 die ich mit ok bestätigen muss.
https://www.herber.de/bbs/user/151968.xlsm
In der Abgespeckten Arbeitsmappe die hier Hochgeladen habe kommt der Fehler nicht. In der Originaldatei mit ca. 2700Zeilen schon.
Frage:
Wie kann ich den Fehler 6 Überlauf abfangen oder vermeiden?
Dieses Sortier Makro erzeugt den Fehler.
Option Explicit
Dim my_sort As Boolean
'Soriert bei Doppelklick auf Zeile 1 abwechselnd A-z und Z-A
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Bereich1 As Range
Dim LSpalte As Integer 'Habe schon erfolglos versucht Long statt Integer zu setzten
Dim lzeile As Long
Dim SelectHeadline As Variant
LSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set Bereich1 = Range(Cells(1, 1), Cells(1, LSpalte))
If Intersect(Target, Bereich1) Is Nothing Then
Exit Sub
Else
If my_sort Then
SelectHeadline = ActiveCell.Address(RowAbsolute:=False, columnAbsolute:=False)
Range(Cells(1, 1), Cells(lzeile, LSpalte)).Sort key1:=Range(SelectHeadline), order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
my_sort = False
Else
SelectHeadline = ActiveCell.Address(RowAbsolute:=False, columnAbsolute:=False)
Range(Cells(1, 1), Cells(lzeile, LSpalte)).Sort key1:=Range(SelectHeadline), order1:=xlDescending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
my_sort = True
End If
End If
Application.Calculation = xlCalculationAutomatic
Range("B2").Select
End Sub
Oraculix