Excel VBA - Zahlen zwischen 2 Werten

Details

Kategorie: Excel VBA sonstige Codes

Veröffentlicht: Mittwoch, 08. Januar 2020 12:32

Geschrieben von Marcus Rose

Zugriffe: 81

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

Tabelle1

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

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

• Weiter