Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenreihe in Zahlenbereiche aufteilen

Zahlenreihe in Zahlenbereiche aufteilen
24.05.2017 13:26:01
Andre
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

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bereiche = Left((Bereiche), Len(Bereiche) - 2)
24.05.2017 15:32:10
KlausF
Hallo Michael und Andre,
und falls das letzte Komma noch wegfallen sollte muss nach
Next i
noch die Zeile
Bereiche = Left((Bereiche), Len(Bereiche) - 2)
eingefügt werden.
Gruß
Klaus
AW: Bereiche = Left((Bereiche), Len(Bereiche) - 2)
24.05.2017 20:39:14
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
Anzeige
Aber gern, Danke für die nette Rückmeldung! owT
24.05.2017 23:34:35
Michael
AW: Aber gern, Danke für die nette Rückmeldung! owT
26.05.2017 12:59:21
Andre
Hallo Michael,
eine Frage habe ich dann doch noch. Dein Code funktioniert, innerhalb meiner Tabelle führt er jedoch zu einer Fehlermeldung, weil das Makro beim Abarbeiten der Liste auf Zellen stößt, welche Formeln beinhalten. Meine Zahlenreihen befinden sich in G23:G124 und die auszuwertenden Zahlenreihen werden über eine Formel in dem o.g. Bereich angezeigt. Entweder ist in den einzelnen Zellen also eine Zahl zwischen 0 und 99 enthalten oder ein "". Sobald dein Code jedoch auf das "" stößt (eigentlich ja eine leere Zelle), wird mit dem Hinweis auf "Typen unverträglich" oder so ähnlich abgebrochen. Dein Code prüft ja erst einmal, was die letzte beschriebene Zelle ist und legt so den Listenbereich fest. Wie prüfe ich denn den Bereich darauf, ob lediglich Zahlen enthalten sind?
Noch einmal vielen Dank im Voraus!
Viele Grüße,
Andre
Anzeige
AW: Zeig bitte ein kleines Beispiel...
29.05.2017 10:04:39
Michael
Andre,
...wie das bei Dir konkret aussieht. Muss nicht von G23:G124 laufen, aber ich will wissen, wie sich die Zellwerte bei Dir ergeben etc.
LG
Michael
AW: Zeig bitte ein kleines Beispiel...
29.05.2017 19:58:36
Andre
Hallo Michael,
ich bin leider schon wieder auf Reisen und habe erst am Freitag Komplettzugang zu einem PC, sonst hätte ich meine Datei hier eingestellt. Ich konnte aber wenigstens die Formel in G24 (da, wo dann hinterher die Zahlenliste entsteht) schnell rüber kopieren.
=WENN($G$7="";"";WENN(SUMME($G$7:$G$16)=SUMMEWENN($A$7:$A$16;"X";$I$7:$I$16);WENN(ZEILEN($24:24)> $G$7;"";INDEX($F$24:$F$123;ZEILEN($24:24)));""))
Vielleicht reicht ja auch ein "On error go to" an geeigneter Stelle?
Vielen Dank und viele Grüße,
Andre
Anzeige
AW: Teste mal...
24.05.2017 15:50:29
Andre
Hallo lieber Mchael,
im Moment sitze ich noch im Zug und habe nur Excel auf dem iPad ohne VBA zur Verfügung. Ich kann erst nachher testen. Vielleicht könntest du ja das Makro als Text veröffentlichen, dann kann ich es schon einmal im Geiste versuchen zu verstehen. Im Voraus herzlichen Dank, mit einer so schnellen Antwort hatte ich nicht gerechnet, als ich die Anfrage schrieb!
Viele Grüße, Andre
AW: Teste mal...
24.05.2017 15:50:34
Andre
Hallo lieber Mchael,
im Moment sitze ich noch im Zug und habe nur Excel auf dem iPad ohne VBA zur Verfügung. Ich kann erst nachher testen. Vielleicht könntest du ja das Makro als Text veröffentlichen, dann kann ich es schon einmal im Geiste versuchen zu verstehen. Im Voraus herzlichen Dank, mit einer so schnellen Antwort hatte ich nicht gerechnet, als ich die Anfrage schrieb!
Viele Grüße, Andre
Anzeige
AW: ...Code
24.05.2017 15:57:48
Michael
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
Anzeige
AW: Zahlenreihe in Zahlenbereiche aufteilen
24.05.2017 14:09:37
Bernd
Hi,
wo ist denn da die Logik bei Deinen Ergebnissen?
MfG Bernd
AW: Direkte Zahlenfolgen zu sammeln...
24.05.2017 14:25:39
Michael
Bernd,
...ist die Logik. 5 und 8 folgen nicht direkt aufeinander, d.h. sie müssen einzeln erfasst werden. 13, 14, 15, 16 folgend direkt aufeinander sind also als 13 - 16 "Block" zu erfassen.
Siehe auch meine Lösung, so hab ich's verstanden.
LG
Michael
AW: Direkte Zahlenfolgen zu sammeln...
24.05.2017 14:27:42
Bernd
Hi Michael,
ja, da hast Du wohl recht. Habe es nun auch verstanden und Danke Dir, für Deine Erklärung.
MfG Bernd

300 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
5
6
4
3
4
1
2
4
3
6
3
15
13
3
5
2
6
11
2
5
5
1
3