Umwandeln eines Zahlbereiches in eine Zahlenfolge

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub umformen() Dim sht As Worksheet Dim Zelle As Range Dim Start As Byte, Ende As Byte, BS As Byte, n As Byte Set sht = ActiveSheet With sht For Each Zelle In .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 1)) If Zelle = "" Then Zelle.Offset(, 1) = "keine Daten" ElseIf InStr(1, Zelle, "-", vbTextCompare) > 0 Then Start = Trim(Left(Zelle, InStr(1, Zelle, "-", vbTextCompare) - 1)) BS = InStr(1, Zelle, "-", vbTextCompare) Ende = Trim(Mid(Zelle, BS + 1)) For n = 1 To (Ende - Start + 1) Zelle.Offset(, n) = Start Start = Start + 1 Next Start = 0: BS = 0: Ende = 0 ElseIf InStr(1, Zelle, "ff", vbTextCompare) > 0 Then Zelle.Offset(, 1) = CLng(Left(Zelle, InStr(1, Zelle, "ff", vbTextCompare) - 1)) Zelle.Offset(, 2) = CLng(Left(Zelle, InStr(1, Zelle, "ff", vbTextCompare) - 1)) + 1 ElseIf InStr(1, Zelle, "f", vbTextCompare) > 0 Then Zelle.Offset(, 1) = CLng(Left(Zelle, InStr(1, Zelle, "f", vbTextCompare) - 1)) Else Stop 'variante nicht bedacht? End If Next End With End Sub

Hi
probier mal das:

Sub Umwandeln()
Dim arrQuelle
Dim arrZiel
Dim z As Long, s As Long
arrQuelle = Range("B3:D5").Value
ReDim arrZiel(1 To UBound(arrQuelle, 1), 1 To 1)
For z = 1 To UBound(arrQuelle, 1)
For s = 1 To UBound(arrQuelle, 2)
If arrQuelle(z, s) <> "" Then
arrZiel(z, 1) = arrZiel(z, 1) & " " & SeitenFolge(arrQuelle(z, s))
End If
Next s
arrZiel(z, 1) = Trim(arrZiel(z, 1))
Next z
With Range("I3").Resize(UBound(arrZiel, 1), 1)
.Value = arrZiel
.TextToColumns Destination:=.Cells(1, 1), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False
End With
End Sub
Function SeitenFolge(ByVal txt As String) As String
Dim Zahl1 As Long
Dim Zahl2 As Long
Dim i As Long
If txt Like "*#f*" Then
Zahl1 = Val(txt)
Zahl2 = Zahl1 + Len(txt) - Len(Replace(txt, "f", ""))
ElseIf txt Like "*#-#*" Then
Zahl1 = WorksheetFunction.Min(Val(Split(txt, "-")(0)), Val(Split(txt, "-")(1)))
Zahl2 = WorksheetFunction.Max(Val(Split(txt, "-")(0)), Val(Split(txt, "-")(1)))
End If
If Zahl1 = 0 Then
SeitenFolge = txt
Else
SeitenFolge = Zahl1
For i = Zahl1 + 1 To Zahl2
SeitenFolge = SeitenFolge & " " & i
Next
End If
End Function

ausführen musst du die Sub "Umwandeln".
die Funktion SeitenFolgen wandelt dann die einzelnen Angaben in die Folge um.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Umwandeln eines Zahlbereiches in eine Zahlenfolge

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

380 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Umwandeln eines Zahlbereiches in eine Zahlenfolge

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

380 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread