Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus Werte Tabelle nach Größe Bereiche auslesen

Forumthread: Aus Werte Tabelle nach Größe Bereiche auslesen

Aus Werte Tabelle nach Größe Bereiche auslesen
05.02.2016 15:43:02
Thomas
Hallo Forum,
ich habe eine Frage.
Ich habe eine Liste von Zahlen wie:
1, 2, 3, 4, 6, 7, 8, 10, 11, 12
Jetzt möchte ich via Makro diese Zahlen in Bereiche zerlegen.
1 - 4, 6 - 8, 10 - 12
Ich habe keine Idee (Vba) wie ich es beginnen soll. Auch Suchbegriffs mäßig gelingt es mir nicht etwas zu finden.
Hat vielleicht jemand eine Idee oder ein Beispiel für mich?
Vielen Dank
Thomas

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispiel-Arbeitsmappe
05.02.2016 16:06:08
KlausF
Hallo Thomas,
am besten stellst Du mal eine Beispiel-Arbeitsmappe hier ein,
aus der hervor geht wie die Liste aussieht (in Zellen untereinander
oder nebeneinander oder als Texte mit Komma getrennt etc.)
und wo und wie die Bereiche erscheinen sollen ...
Gruß
Klaus

Anzeige
AW: Beispiel-Arbeitsmappe
05.02.2016 16:32:22
Thomas
Hallo Klaus ,
danke hatte ich vergessen, es ist doch immer schwierig es sauber zu erklären:
  • Spalte A

  • 1

  • 2

  • 3

  • 4

  • 6

  • 7

  • 8

  • 10

  • 11

  • 12

  • Spalte B

  • 1-4

  • 6-8

  • 10-12

    • Excel Tabelle lohnt nicht dafür.
    Die Werte stehen untereinander in Spalte A.
    Meine Idee ist halt er geht die Spalte entlang und wenn die Zahlen nicht aufeinander folgen gibt er den nächsten Bereich in Spalte B als 1 - 4
    oder wenn einfacher in Spalte B den Anfangswert 1 und in Spalte C den Endwert 4 aus.
    Etwas klarer mein Problem?
    Danke Thomas

    Anzeige
    AW: Beispiel-Arbeitsmappe
    05.02.2016 17:21:02
    KlausF
    Hallo Thomas,
    probier mal
    Sub ZahlenBereiche() Dim lngLast As Long Dim AnfZahl As Long Dim EndZahl As Long Dim a As Long Dim b As Long AnfZahl = 1 b = 1 lngLast = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For a = 1 To lngLast If Range("A" & a).Value + 1 Range("A" & a + 1).Value Then EndZahl = Range("A" & a).Value Range("B" & b).Value = AnfZahl & " - " & EndZahl b = b + 1 AnfZahl = Range("A" & a + 1).Value End If Next a End Sub Gruß
    Klaus

    Anzeige
    AW: Beispiel-Arbeitsmappe
    08.02.2016 11:15:39
    Thomas
    Hallo Klaus,
    danke werde es heute mal ausprobieren.
    War etwas busy am Wochenende.
    Gruß Thomas

    Korrektur
    05.02.2016 17:25:44
    KlausF
    noch eine kleine Korrektur falls die erste Zelle nicht mit 1 beginnt:
    Statt AnfZahl = 1 schreibe AnfZahl = Range("A1").Value
    Gruß
    Klaus

    Anzeige
    AW: und ...
    06.02.2016 09:12:16
    ...
    Hallo Klaus,
    ... der Ergebnisbereich muss dann mit Deiner momentanen Lösung zuvor noch mit Textformat vorbereitet sein. Und wenn negativen Zahlen erfasst werden sollten, dann hätte Dein Makro auch noch etwas Anpassungsbedarf wenn Zahlen wie z.B. -4,-3, -1, 0, 1 ... vorliegen. Aber vielleicht ist das gar nicht notwendig. warten wir ab, was Thomas meint.
    Gruß Werner
    .. , - ...

    Anzeige
    Yes
    06.02.2016 18:18:03
    KlausF
    Hallo Werner,
    korrekt! Hier die Anpassung der For-Next-Schleife für Textformat:
    For a = 1 To lngLast
    If Range("A" & a).Value + 1 Range("A" & a + 1).Value Then
    EndZahl = Range("A" & a).Value
    Range("B" & b).NumberFormat = "@"
    Range("B" & b).Value = AnfZahl & " - " & EndZahl
    b = b + 1
    AnfZahl = Range("A" & a + 1).Value
    End If
    Next a
    Dass keine negativen Zahlen erfasst werden sollen hatte ich mal
    so aus der Vorlage "heraus gelesen". Vermutlich meldet sich
    Thomas auch diesbezgl. nicht mehr ...
    Gruß
    Klaus

    Anzeige
    AW: auch für aufwärts sortierte negat. Zahlen ...
    07.02.2016 09:41:07
    ...
    Hallo Klaus,
    ... hab ich jetzt interessehalber mal meine Formellösung erweitert (noch nicht optimiert und deshalb für VBAler sicherlich "grässlich" .
    Wobei es meiner Formellösung auch egal ist, ob einzeln stehende Zahlen oder Dupletten vorhanden sind. Hauptsache ist, sie sind aufwärts sortiert (andernfalls wird eine Formellösung natürlich noch viel länger):
     AB
    1-6-6 bis -5
    2-5-3 bis -3
    3-3-1 bis 2
    4-19 bis 9
    5011 bis 12
    6115 bis 15
    72 
    89 
    99 
    109 
    1111 
    1211 
    1312 
    1412 
    1515 
    16  

    Formeln der Tabelle
    ZelleFormel
    B1=WENNFEHLER(MAX(AGGREGAT(15;6;(A$2:A$19-(A$1<1)*($A1-1))*(A$2:A$19<>"")/((A$2:A$19-(A$1<1)*($A1-1))*(A$2:A$19<>"")+(A$2:A$19="")*99-(A$1:A$18-(A$1<1)*($A1-1))*(A$2:A$19<>"")-1>0)/(A$1:A$18<>""); ZEILE(A1)); A$1-(A$1<1)*($A1-1))+(A$1<1)*($A1-1)&" bis "&AGGREGAT(15;6;A$1:A$98/(A$2:A$99+(A$2:A$99="")*99-A$1:A$98-1>0)/(A$1:A$98<>""); ZEILE(A1)); "")


    Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
    Gruß Werner
    .. , - ...

    Anzeige
    AW: auch für aufwärts sortierte negat. Zahlen ...
    07.02.2016 14:37:26
    KlausF
    Hallo Werner,
    bin eigentlich gar kein VBAler, wenn dann nur mal so aus Hobby.
    Normalerweise find ich Formellösungen auch spannender weil Excel-näher.
    Habe aber noch das alte 2003er auf der Kiste, da gibt's ja noch kein AGGREGAT ...
    Schade ist, dass sich der Frager (wie so einige hier) nicht mehr meldet.
    Ist wahrscheinlich eine neudeutsche Tugend geworden. Na ja.
    Gruß
    Klaus

    Anzeige
    AW: Yes
    08.02.2016 11:38:40
    Thomas
    Hallo,
    du lagst richtig nur positive Zahlen. Habe es probiert und es funktioniert perfekt.
    Vielen Dank nochmal für die schnelle kompetente Hilfe.
    Gruß Thomas

    AW: alternativ mit einer AGGREGAT() - Formel ...
    06.02.2016 09:04:35
    ...
    Hallo Thomas,
    ... wenn nur sortierte positive Zahlen vorliegen (wenn auch negative Zahlen und 0 möglich sein sollen, müsste Formel noch erweitert werden):
     AB
    111 - 4
    226 - 8
    3310 - 12
    44 
    56 
    67 
    78 
    810 
    911 
    1012 
    11  

    Formeln der Tabelle
    ZelleFormel
    B1=WENNFEHLER(MAX(AGGREGAT(15;6;A$2:A$98/(A$2:A$99+(A$2:A$99="")*99-A$1:A$98-1>0)/(A$1:A$98<>""); ZEILE(A1)); A$1); "")&WENNFEHLER(" - "&AGGREGAT(15;6;A$1:A$98/(A$2:A$99+(A$2:A$99="")*99-A$1:A$98-1>0)/(A$1:A$98<>""); ZEILE(A1)); "")


    Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
    Gruß Werner
    .. , - ...

    Anzeige
    AW: wobei hier ein WENNFEHLER() reicht ...
    06.02.2016 10:26:07
    ...
    Hallo,
    ... so:
     E
    11 - 4
    26 - 8
    310 - 12
    4 

    Formeln der Tabelle
    ZelleFormel
    E1=WENNFEHLER(MAX(AGGREGAT(15;6;A$2:A$98/(A$2:A$99+(A$2:A$99="")*99-A$1:A$98-1>0)/(A$1:A$98<>""); ZEILE(A1)); A$1)&" - "&AGGREGAT(15;6;A$1:A$98/(A$2:A$99+(A$2:A$99="")*99-A$1:A$98-1>0)/(A$1:A$98<>""); ZEILE(A1)); "")


    Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
    Gruß Werner
    .. , - ...

    Anzeige
    AW: wobei hier ein WENNFEHLER() reicht ...
    08.02.2016 11:39:58
    Thomas
    Hallo,
    die Funktion sieht auch interessant aus,
    aber im Moment habe ich noch nen Formelfehler.
    Ich schaue heute Abend mal danach.
    Danke erst mal Thomas

    AW: Formel kannst Du von hier kopieren ...
    08.02.2016 15:19:35
    hier
    Hallo Tomas,
    ... ansonsten, möglicherweise hast Du Textwerte oder auch Leerzellen innerhalb der Zahlenwertreihe? Zahlen sind auch aufwärts sortiert?
    Gruß Werner
    .. , - ...
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Zahlen aus Zelle auslesen
    Timo

    Hallo liebes Forum,
    gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
    '123456 BLA --> 123456
    Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
    Vielen Dank für die Unterstützung!
    Timo
    14.08.2008 11:16:00
    Thread-ID: 1001770
    7 Beiträge
    Anzeige
    unterschiedliche Buchstaben in Textzellen finden
    Rob

    Liebe xls-Profis,
    ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
    2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
    Einfache Beispiele:
    A1 B1
    Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
    20.08.2008 10:26:10
    Thread-ID: 1003114
    8 Beiträge
    Daten sortiert aus anderem Tabellenblatt auslesen
    Robert

    Hallo,
    bräuchte eure Hilfe bitte.
    Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
    Habe da mal eine Beispieldatei zur besseren Veransch...
    28.08.2008 11:32:00
    Thread-ID: 1005356
    3 Beiträge
    Anzeige
    Worksheet über Codename ein/ausblenden
    Reinhard

    Hallo Wissende,
    geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
    Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
    Meine Frage ist also, geht das auch ohne Schleife?
    28.08.2008 16:28:02
    Thread-ID: 1005518
    6 Beiträge
    Arbeitsblattnamen in Zelle auslesen
    Lemmi

    Hallo zusammen,
    ich möchte ein Arbeitsblatt auf das vorher gehende Arbeitsblatt referenzieren!
    Meine Datei ist folgendermaßen Strukturiert:
    Arbeitsblatt 1 : Tabelle A
    Arbeitsblatt 2 : Tabelle A+ Adressen
    Arbeitsblatt 3 : Tabelle B
    Arbeitsblatt 4 : Tabelle B+ Adressen
    30.08.2008 07:38:00
    Thread-ID: 1006010
    6 Beiträge
    Anzeige
    Sheet-Name einer Variablen zuweisen
    TommiH

    Hallöchen,
    hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
    Dim v1 As String
    v1 = ActiveSheet.Name
    Sheets.Add After:=v1
    ActiveSheet.Name = "Dummy"
    Worksheets(v1).Activate
    ...
    01.09.2008 11:04:00
    Thread-ID: 1006356
    4 Beiträge
    Tabellenblattname in Zelle eintragen
    obelix-xxl

    Hallo,
    ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
    Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
    04.09.2008 21:27:29
    Thread-ID: 1007526
    3 Beiträge
    Zellinhalt aufgrund Sheetname und Zelle ermitteln
    Peter

    Guten Tag
    Wahrscheinlich stehe ich mir selbst auf der Leitung.
    Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
    ...
    11.09.2008 10:31:00
    Thread-ID: 1009001
    3 Beiträge
    Anzeige
    Namen anderer Excel-Datei in Zelle übernehmen
    alphaomega

    Hallo,
    ich habe hier Excel 2002 und 12 Excel-Dateien mit den Namen 2008-01, 2008-02, ..., 2008-12.xls.
    Nun möchte ich eine weitere Excel-Datei als Übersicht anlegen, wo einige Daten aus den o.g. Zellen übernommen werden sollen. Wie das geht, weiß ich bereits: Das geht manuell durch copy...
    19.09.2008 10:33:37
    Thread-ID: 1010950
    3 Beiträge
    Zelle A2 in Tabelle "Daten" ansprechen
    Wolfgang

    Hallo,
    mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
    23.09.2008 09:01:00
    Thread-ID: 1011622
    4 Beiträge
    Name der Checkbox in eine Zelle
    Reinhardt

    Hallo,
    ich habe gleich zwei Fragen:
    1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
    z.B. CheckBox12 Wie geht das?
    2) Nach dem anklicken der Box hat diese ein Häckchen.
    Dieser soll nach dem Anklicken gleich wieder verschwinden.
    Wer kan...
    06.10.2008 14:22:26
    Thread-ID: 1014444
    2 Beiträge
    Zelle in andere Tabelle mit Button kopieren
    Benny

    Hallo Zusammen!
    Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
    Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
    Danke im Voraus!
    Benny
    07.10.2008 10:06:48
    Thread-ID: 1014629
    4 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige