Thema Datum  Von Nutzer Rating
Antwort
15.01.2022 21:00:13 Timo
NotSolved
Blau Mehrere Spalten sortieren und in einer Zelle zusammenfuegen
 15.01.2022 21:29:55 volti
Solved
15.01.2022 21:40:29 Gast61383
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
15.01.2022 21:29:55		 Views:
450		 Rating:
     
Antwort:
 Nein
Thema:
Mehrere Spalten sortieren und in einer Zelle zusammenfuegen

Hallo Timo,

schau mal ob es jetzt besser ist.

Code:
01
02
03
04
05
06
07
08
09
10
11
12		  
Function CellSorter(Rng As Range, Delimiter As String, Optional ReverseIt As Boolean) As String
  Dim Cell As Range

  With CreateObject("System.Collections.ArrayList")
      For Each Cell In Rng
          If Len(Cell.Value) Then .Add Val(Cell.Value)
      Next
      .Sort
      If ReverseIt Then .Reverse
      CellSorter = Join(.ToArray, Delimiter)
  End With
End Function
_________
viele Grüße
Karl-Heinz

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
15.01.2022 21:00:13 Timo
NotSolved
Blau Mehrere Spalten sortieren und in einer Zelle zusammenfuegen
 15.01.2022 21:29:55 volti
Solved
15.01.2022 21:40:29 Gast61383
NotSolved