Thema Datum  Von Nutzer Rating
Antwort
04.04.2019 14:27:36 Daniel
NotSolved
04.04.2019 14:28:07 Daniel
NotSolved
Rot Sortierungsmakro stürzt ab
 04.04.2019 18:09:29 Gast2897
NotSolved

Ansicht des Beitrags:
Von:
Gast2897		 Datum:
04.04.2019 18:09:29		 Views:
408		 Rating:
     
Antwort:
  Ja
Thema:
Sortierungsmakro stürzt ab

Hallo Daniel,

es gibt da die Möglichkeit mit {...}Code Code lesbar einzufügen, habe ich für Dich gemacht.
Wahrscheinlich hast Du ein nicht sichtbares Zeichen in Deinem Code, kopiere mal den hier stehenden und ersetze Deinen, vielleicht hilfts.

Sub Sortierung()

Dim lngCLC As Long
Dim lngListExist As Long
Dim lngOC As Long
Dim vListArr As Variant
  vListArr = Array("Rad", "Auto", "Tuer", "Auspuff")
  lngListExist = Application.GetCustomListNum(vListArr)
  If lngListExist > 0 Then
    lngOC = lngListExist + 1
  Else
    Application.AddCustomList listArray:=vListArr
    lngCLC = Application.CustomListCount
    lngOC = lngCLC + 1
  End If
  Range("A:C").Sort Key1:=Range("B1"), Order1:=xlAscending, _
       Header:=xlGuess, OrderCustom:=lngOC, _
       MatchCase:=False, Orientation:=xlTopToBottom
  If lngListExist = 0 Then Application.DeleteCustomList ListNum:=lngCLC
End Sub

Gruß der Martin

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.04.2019 14:27:36 Daniel
NotSolved
04.04.2019 14:28:07 Daniel
NotSolved
Rot Sortierungsmakro stürzt ab
 04.04.2019 18:09:29 Gast2897
NotSolved