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
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;"-";":"))))
(07.01.2020, 10:01)LCohen schrieb: [ -> ]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?
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
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.
Zitat: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
@Markus:
ohne Prüfung:
Die Variable "Text" wird 2x genutzt, einmal als 1-dimensionales Array, das andere Mal zum String-Verketten.
mfg
Hallo Fennek,
ich habe das Gefühl, dass ich den Code immer mehr verkehrt schreibe ...
Zitat: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!!!!
Zitat: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
(07.01.2020, 11:54)marose67 schrieb: [ -> ]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:
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.
Zitat: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
Hallo Marcus,
(07.01.2020, 13:05)marose67 schrieb: [ -> ]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