Werte zwischen zwei Werten

[echselll]

Hallo zusammen,

ich suche nach einer Möglichkeit, alle Werte zwischen zwei Werten, welche mit einem Bindestrich verbunden sind, aufzuzeigen.

Ein Beispiel anbei.

Bedanke mich im Voraus für jede Hilfe.

Freundliche Grüße
echselll

[LCohen]

OT, an alle anderen 365-User:

Seit einigen Tagen (evtl. seit ungefähr Neujahr?) sind (für mich, Version 2001, Build 12425.20000 Klick-und-Los, Office Insider) in allen Foren die meisten Anhänge angeblich "beschädigt" ... wird Euch das auch so gemeldet? Bei mir ist das so bei beiden Surface-Computern (mit Win10Office365) ... will ich die Datei sehen, muss ich mit Excel-Online oder LO öffnen.

A1: 45-67
B1: =TEXTVERKETTEN(",";;ZEILE(INDIREKT(WECHSELN(A1;"-";":"))))

[echselll]

OT, an alle anderen 365-User:

Seit einigen Tagen (evtl. seit ungefähr Neujahr?) sind (für mich, Version 2001, Build 12425.20000 Klick-und-Los, Office Insider) in allen Foren die meisten Anhänge angeblich "beschädigt" ... wird Euch das auch so gemeldet? Bei mir ist das so bei beiden Surface-Computern (mit Win10Office365) ... will ich die Datei sehen, muss ich mit Excel-Online oder LO öffnen.

A1: 45-67
B1: =TEXTVERKETTEN(",";;ZEILE(INDIREKT(WECHSELN(A1;"-";":"))))

Hallo LCohen,


mit der Formel bekomme ich lediglich den Fehler #NAME? 

[Fennek]

Hallo,

ist das so gemeint:

Code:

Sub Main
Rg = split(cells(2,1), "-")
for i = Rg(0) to Rg(1)
    tx = tx & i & ", "
next i
cells(2,3) = tx
End Sub

Ergebnis: 40, 41, 42, 43, 44, 45,

mfg

[marose67]

Hallo,

@Lcohen: Super Formel, dachte das ginge nur mit VBA. Danke. Ich speicher mir deine Formel direkt mal ab.

@all: Ich bin immer noch an der VBA Lösung, da das Problem aber bereits eine Antwort bekommen hat, möchte ich nachfragen, wo bei mir der Fehler im Code liegt. Ich bekomme den Fehler TYpen unverträglich, dabei ähnelt der Code extrem dem von Fennek.

Option Explicit

Sub zahlen_zwischen()
Dim Text As Variant
Dim i As Variant
Text = Split(Cells(2, 1), "-")
    For i = Text(0) To Text(1)
        Text = Text & i & "/"
    Next i
Cells(2, 2) = Text
End Sub

Gruß

Marcus

[Fennek]

@Markus:

ohne Prüfung:

Die Variable "Text" wird 2x genutzt, einmal als 1-dimensionales Array, das andere Mal zum String-Verketten.

mfg

[marose67]

Hallo Fennek,

ich habe das Gefühl, dass ich den  Code immer mehr verkehrt schreibe ...

Option Explicit

Sub zahlen_zwischen()
Dim Text As Variant
Dim Zahlenfolge As String
Dim i As Variant
Text = Split(Cells(2, 1), "-")
    For i = Text(0) To Text(1)
        Zahlenfolge = i & "/"
        i = i + 1
    Next i
Cells(2, 3) = Zahlenfolge
End Sub

Gruß

Marcus

---

Hallo,

ich habe es geschafft!!!!

Option Explicit

Sub zahlen_zwischen()
Dim Text As Variant
Dim Zahlenfolge As String
Dim i As Variant
Text = Split(Cells(2, 1), "-")
    For i = Text(0) To Text(1)
        Zahlenfolge = Zahlenfolge & "/"
        Zahlenfolge = Zahlenfolge & i
    Next i
Cells(2, 3) = Zahlenfolge
End Sub

Mag euch zu lang sein, für mich ist es ein Erfolg.

Gruß
Marcus

[echselll]

Hallo Fennek,

ich habe das Gefühl, dass ich den  Code immer mehr verkehrt schreibe ...


Gruß

Marcus

---

Hallo,

ich habe es geschafft!!!!



Mag euch zu lang sein, für mich ist es ein Erfolg.

Gruß
Marcus

Damit hat es bei mir auch geklappt, besten Dank!!
Kann dann gerne geschlossen werden  :100:

[marose67]

Hallo,
das schließen musst Du schon selber übernehmen.
Ich hänge noch immer an dem Code. Ich möchte das letzte "/" noch los werden.

Option Explicit

Sub zahlen_zwischen()
Dim Text As Variant
Dim Zahlenfolge As String
Dim i As Variant
Text = Split(Cells(2, 1), "-")
    For i = Text(0) To Text(1)
        If Text(0) = i Or Text(1) = i Then
            Zahlenfolge = Zahlenfolge & i
        Else
            Zahlenfolge = Zahlenfolge & i & "/"
        End If
    Next i
Cells(2, 3) = Zahlenfolge
End Sub

Gruß
Marcus

[Kuwer]

Hallo Marcus,

Ich hänge noch immer an dem Code. Ich möchte das letzte "/" noch los werden.

Sub zahlen_zwischen()
  Dim Text As Variant
  Dim Zahlenfolge As String
  Dim i As Variant
  Text = Split(Cells(2, 1), "-")
  For i = Text(0) To Text(1)
      If Text(1) = CStr(i) Then
          Zahlenfolge = Zahlenfolge & i
      Else
          Zahlenfolge = Zahlenfolge & i & "/"
      End If
  Next i
  Cells(2, 3) = Zahlenfolge
End Sub

Gruß Uwe