ich habe z.B. folgende Zeichenfolge in einer Zelle: "Gruber05 Otto23 Mueller1A Huber2F". Jetzt möchte ich alle (Hex)-Werte vor den Leerzeichen untereinander ausgeben; also so:

Geht das?
gruss Hajü
| ||||||||||
| |||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||
hallo Hajü
versuchs mal so:
Public Sub test2()
Dim i As Integer
Dim str As String
Dim zeile As Integer
zeile = 1
str =[a1] & " "
For i = 1 To Len(str)
If Mid(str, i, 1) = " " Then
With Cells(zeile + 2, 1)
.NumberFormatLocal = "00"
.Value = Mid(str, i - 2, 2)
End With
zeile = zeile + 1
End If
Next
End Sub
ransi
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen