Excel VBA - Zahlen zwischen 2 Werten

In einer Zelle sollen 2 Zahlen stehen, welche mit einem Bindestrich getrennt sind.

 

Tabelle1

  A B
1 Bereich Werte innerhalb A2
2 23-27 23/24/25/26/27



Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Mit folgendem VBA Code könnte man das erledigen.

 

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(1) = CStr(I) Then
            Zahlenfolge = Zahlenfolge & I
        Else
            Zahlenfolge = Zahlenfolge & I & "/"
        End If
    Next I
  Cells(2, 2) = Zahlenfolge
End Sub

Einfacher ist es, wenn man 2 Zellen, eine für VON, eine für BIS nutzt.

 

Tabelle1

  A B C
1 Bereich VON Bereich BIS Werte innerhalb A2
2 23 27 23/24/25/26/27



Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Dafür nutzen wir diesen VBA Code:

 

Sub zahlen_zwischen_1()
Dim X As Variant
Dim Y As Variant
Dim I As Variant
Dim Text As String
X = Range("A3")
Y = Range("B3")
    For I = X To Y Step 1
        If I <> Y Then
            Text = Text & I & "/"
        Else
            Text = Text & I
        End If
    Next
    Range("C2") = Text
End Sub