Thema Datum  Von Nutzer Rating
Antwort
11.11.2016 08:43:44 Kim
NotSolved
Blau UDF - Zeichen innerhalb einer Zelle markieren
 11.11.2016 16:13:39 Gast40234
NotSolved

Ansicht des Beitrags:
Von:
Gast40234		 Datum:
11.11.2016 16:13:39		 Views:
595		 Rating:
     
Antwort:
  Ja
Thema:
UDF - Zeichen innerhalb einer Zelle markieren

Moin!

Also ganz so einfach kannst du das nicht übernehmen. Bei dem Code werden die einzelnen Zeichen sortiert, bei dir Zeichenfolgen (getrennt durch ; ). Habe mal vesucht das anzupassen. Ist ungetestet aber bis auf das rückwärts sortieren (müssten man noch ändern, sollte es gehen). Sollte immer noch ein Fehler vorliegen, liegt das vermtl. daran, dass das arraylist nicht erkannt wird. Ist auf einigen Systemen so (warum konnte ich noch nicht feststellen - kämpfe damit auch auf 2 versch. Rechnern). Notfalls müsste man sich eine andere Sortierfunktion basteln.

VG

 Public Function sortieren(zelle, Optional auf As Boolean = True) As String
'********************************
'Autor: ransi
'********************************
Dim objAL As Object
Dim I As Integer
Dim bereich
Set objAL = CreateObject("System.Collections.Arraylist")
With objAL
    bereich = Split(zelle.Text, ";")
    For I = 0 To UBound(bereich)
        .Add bereich(I)
    Next
    .Sort
    sortieren = Join(.toArray, "")
End With
If auf = False Then sortieren = StrReverse(sortieren)
Set objAL = Nothing
End Function

 

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
11.11.2016 08:43:44 Kim
NotSolved
Blau UDF - Zeichen innerhalb einer Zelle markieren
 11.11.2016 16:13:39 Gast40234
NotSolved