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