Hi Serverus,
leider habe ich es mit deiner Version nicht hinbekommen. Auch nicht, wenn ich eine neue Datei anlege. Es liegt entweder irgendwie am Zellenformat-/inhalt oder an der Office-Version (2010). Habe dein Code einfach etwas umgebaut - jetzt funktionierts auch!!! Vielen Dank für die Hilfe!!!!
Gruß Seba
Falls es noch jemand interessiert:
Sub Trennen()
Dim strTAR_A As String
Dim strSRC As String
Dim strTAR_B As String
Dim LaufZahl As Long
Dim y As Long
y = 2
Do While Tabelle2.Cells(y, 1) <> ""
strSRC = Tabelle2.Cells(y, 1)
strTAR_B = ""
For LaufZahl = 1 To Len(strSRC)
Select Case Asc(Mid(strSRC, LaufZahl, 1))
Case 48 To 57, 65 To 90, 97 To 122, 246, 252, 223, 228, 220, 214, 196
strTAR_B = strTAR_B & Mid(strSRC, LaufZahl, 1)
End Select
Next LaufZahl
Tabelle2.Cells(y, 2) = strTAR_B
y = y + 1
Loop
End Sub
|