Zelleninhalte trennen mit Text in Spalten ?
22.02.2008 15:36:00
Selma
ich habe versucht per VBA (da ich dies in eine anderes Makro einfügen möchte) die Zelleninhalte der Spalte H (vorher als Text formatiert) zu splitten. Leider werden die Inhalte ohne die Null (siehe Beispiele) getrennt.
Vorher:
| H | |
| 12 | 07-E03 |
| 13 | 07-E03 |
| 14 | 07-E03 |
| 15 | 08-E04 |
| 16 | 08-E04 |
| 17 | 08-E04 |
| 18 | 08-E04 |
Nachher (falsch):
Sub Trennen()
Range("H2:H" & Range("A65536").End(xlUp).Row).Select
Selection.TextToColumns Destination:=Range("H2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
Was muss ich ändern, damit die Inhalte als Text erkannt werden?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Anzeige