Zahlenreihe in Zahlenbereiche aufteilen

Andre · 2017-05-24T13:26:01+00:00

Hallo zusammen, ich habe die Hoffnung, dass es noch ein paar Excel-Profis gibt die keinen Vatertagsausflug planen und Interesse an einem Excel-Problem haben. In einer Tabellenspalte habe ich eine Zahlenreihe mit Zahlen im Bereich von 0 bis 99, welche sich jedoch dauernd unterscheiden kann. Ich suche nun nach einer Möglichkeit, die gelisteten Zahlen in einer anderen Zelle quasi als Bereiche aufzulisten. Die Zahlenreihe ist nicht immer fortlaufend, sie kann auch mal unterbrochen werden. Beispiel: 0 1 2 3 4 5 6 14 Als Ergebnis sollte nun in einer anderen Zelle stehen: 0 6, 14 Beispiel: 5 8 13 14 15 16 20 21 22 23 48 Ergebnis: 5, 8, 13 16, 20 23, 48 Hat jemand eine Idee, wie das zu bewerkstelligen ist? Ich danke im Voraus sehr herzlich für eure Hilfe. Viele Grüße, Andre

Lieber Michael, lieber Klaus,
ich bin jetzt endlich Zuhause und habe Excel zur Verfügung. Die Lösung (plus die Ergänzung für das letzte Komma) ist hundertprozentig das, was ich gesucht habe! Mein Wissenstand hätte dafür nicht gereicht und ich hätte es - wenn überhaupt - nur mit unzähligen Hilfsspalten hinbekommen. Oft ist es auch schwierig, eine Überschrift zu formulieren, die das Problem treffend beschreibt (wie z. B. direkte Zahlenfolgen sammeln). Ich werde eure Lösung nun in meine Tabelle einbasteln und anschließend zwei Tage damit verbringen, das Makro durchzugehen und zu raffen, was da überhaupt passiert... Das Makro hilft eine Aufgabe, die mindestens zwei Mal wöchentlich anfällt, deutlich einfacher zu erledigen. Ich danke euch daher aufrichtig für die schnelle und unkomplizierte Hilfe. Ich bin jedes Mal erstaunt, wieviel Sachkenntnis hier im Forum vorhanden ist und wie hoch die Bereitschaft ist, anderen zu helfen.
Ich wünsche euch einen schönen Feiertag, ich gebe euch im Geiste einen aus!
Viele Grüße,
Andre

Hallo Andre,
...hier der Code in Textform:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim Liste As Range, i&, j&, k&, Bereiche$
With Ws
Set Liste = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
For i = 1 To Liste.Cells.Count
If Liste(i) + 1  Liste(i + 1) Then
Bereiche = Bereiche & Liste(i) & ", "
Else
Bereiche = Bereiche & Liste(i) & " - "
j = i
Do Until Liste(j + 1)  Liste(j) + 1
j = j + 1: k = k + 1
Loop
Bereiche = Bereiche & Liste(j) & ", "
i = i + k: k = 0
End If
Next i
Liste(1).Offset(, 2) = Bereiche
End With
End Sub

Siehe auch die Anmerkung von Klaus - ist eine Formsache, aber wenn's Dir besser gefällt, müsstest Du das ergänzen.
LG
Michael

Zahlenreihe in Zahlenbereiche aufteilen

Forumthread: Zahlenreihe in Zahlenbereiche aufteilen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial