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

Wir nutzen Cookies auf unserer Website. Einige von ihnen sind essenziell für den Betrieb der Seite, während andere uns helfen, diese Website und die Nutzererfahrung zu verbessern (Tracking Cookies). Sie können selbst entscheiden, ob Sie die Cookies zulassen möchten. Bitte beachten Sie, dass bei einer Ablehnung womöglich nicht mehr alle Funktionalitäten der Seite zur Verfügung stehen.