Hi,

Am Tue, 10 Dec 2013 07:24:28 -0800 (PST) schrieb :

Amoxicillin R Vancomycin R Teicoplanin R
Amoxicillin R Nalidixic acid s Teicoplanin s
Amoxicillin R Vancomycin s Teicoplanin s
Amoxicillin R Vancomycin R Teicoplanin S
Amoxicillin S
Amoxicillin R Vancomycin S Nitrofurantoin S
Amoxicillin R Vancomycin s Teicoplanin s
Nitrofurantoin S Vancomycin s
Amoxicillin S Vancomycin s Teicoplanin s

try:

Sub SplitString()
Dim LCol As Integer
Dim i As Integer

With ActiveSheet
LCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

For i = 2 To LCol * 2 Step 2
.Columns(i).Insert
.Columns(i - 1).TextToColumns Destination:=.Cells(1, i - 1), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Next
End With
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2