Text to Column
20.04.2009 13:18:43
Markus
ich habe eine Datei ( https://www.herber.de/bbs/user/61306.xls
) in der in Spalte O Text steht. Jetzt habe ich versucht ein Makro aufzunehmen bzw. umzuschreiben um aus Spalte O die Zellen die m² enthalten mit der Text to Column Funktion auf die Zelle in Spalte O und die nächsten 8 Zellen zu verteilen. Da ich noch Anfänger in Sachen VBA bin kann ich nicht feststellen wo das Problem an folgendem code liegt:
Sub Text_to_Column()
With Worksheets(1).Range("O:O")
Set c = .Find(m², LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.TextToColumns Destination:=Range("c"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
_
_
Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Vielleicht hat von euch hierzu jemand eine Idee.Danke.
Markus