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: 1730
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