Wort zerlegen in Zweier -Schritten zB test "te st"

Hallo!
Wie bekommt man ein Wort in Zweierschritten / zerlegt?
Einzelschritt pro Buchstabe klappt, setze ich den Wert "Mid(Erster, pos + z, 1)" auf 2;
so läuft er drei mal durch mit dem Ergebnis te es st " Ergebnis soll "te st" sein.


Sub teil3()
Dim Erster As String
Dim pos As Integer
Dim i, z As Integer
i = 1
For i = 1 To 65536
If Cells(i, 1) = "" Then Exit Sub
Cells(i, 1).Select
Erster = Cells(i, 1)
For pos = 1 To Len(Erster)
Cells(i, pos + 1).Value = Mid(Erster, pos + z, 1)
Next pos
Next i
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub daswort() Dim i, n, out, instep, delim instep = 2 delim = Chr(32) For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row out = vbNullString For n = 1 To Len(Cells(i, 1)) Step instep out = out & Mid(Cells(i, 1), n, instep) & delim Next If Len(out) Then Cells(i, 1) = out Next End Sub

Sub teil3() Dim Erster As String Dim pos As Integer Dim i, z As Integer i = 1 For i = 1 To 65536 z = 2 If Cells(i, 1) = "" Then Exit Sub Cells(i, 1).Select Erster = Cells(i, 1) For pos = 1 To Len(Erster) Step 2 Cells(i, z).Value = Mid(Erster, pos, 2) z = z + 1 Next pos Next i End Sub

Option Explicit Public Sub Zerlegen() Dim lZeile As Long Dim iPosition As Integer Dim sText As String For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row sText = "" For iPosition = 1 To Len(Range("A" & lZeile).Value) Step 2 If sText = "" Then sText = Mid(Range("A" & lZeile).Value, iPosition, 2) Else sText = sText & " " & Mid(Range("A" & lZeile).Value, iPosition, 2) End If Next iPosition MsgBox sText Next lZeile End Sub

Sub Trennen() Dim intI As Integer Dim intSpalte As Integer Dim rngZelle As Range For Each rngZelle In Selection.Cells For intI = 1 To Len(rngZelle.Value) Step 2 intSpalte = intSpalte + 1 rngZelle.Offset(0, intSpalte).Value = Mid(rngZelle.Value, intI, 2) Next intSpalte = 0 Next End Sub

Sub teil3() Dim Erster As String Dim pos As Integer Dim i For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Erster = Cells(i, 1) For pos = 1 To Len(Erster) Step 2 Cells(i, pos / 2 + 1.5) = Mid(Erster, pos, 2) Next pos Next i End Sub

Sub daswort() Dim i Dim regex As Object: Set regex = CreateObject("vbscript.regexp") Const myStep = 3 'Anzahl Zeichen Const delim = "|" 'der Texttrenner Const texttrenner = "\s\.-;" 'erlaubte Texttrennzeichen die ignoriert werden sollen With regex .Global = True .Pattern = "((.*?[^" & texttrenner & "]){" & myStep & "})" For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 1) = .Replace(Cells(i, 1), "$1" & delim) Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Wort zerlegen in Zweier -Schritten zB test "te st"

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wort zerlegen in Zweier -Schritten zB test "te st"

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread