Text in Spalten Makro - Überschriften
11.03.2021 12:40:23
Knof
Ich verwende den TextInSpalten Befehl um den Inhalt meiner Spalten Anhand einer Tilde "~" zu trennen.
Jede Tilde in der Zelle bedeutet also eine neue Spalte.
Für diese neue Spalte möchte ich die Überschrift der Ursprungsspalte, also Cell(1,x).Value mit kopieren.
Das Problem ist, dass sich die Anzahl der Tilden, also auch die Anzahl der entstandenen Spalten variieren kann. Ich weiß also nicht wie oft ich die Überschrift der Spalte kopieren soll.
Gibt es eine Möglichkeit die Überschrift der Ursprungsspalte für die neuen Spalten mit zu _
kopieren?
Sub TextInSpalten_TPNachTildeTrennen()
Worksheets("Sortiert").Select
Range("A1").Select
x = ActiveSheet.UsedRange.Columns.Count
For i = 1 To x
Columns(i).Select
If Cells(1, i).Value Like "*TP*" Then
Selection.TextToColumns DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="~", _
TrailingMinusNumbers:=True
End If
Next
Worksheets("Anleitung").Select
End Sub