Text in Spalten verteilen
29.04.2023 18:21:57
Fred
Hallo Excel Experten,
im unteren Makro sollen die zusammengefaßten Trefferzeiten (getrennt durch Leerzeichen) aus der Spalte BL in die 12 folgenden Spalten verteilt werden.
Sub TextInSpalten()
Worksheets("Import_5").Activate
Last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Import_5").Range("BM11:BX" & Last).ClearContents
Worksheets("Import_5").Range("BL11:BL" & Last).Select
Selection.Copy
Worksheets("Import_5").Range("BM11:BM11").Select
ActiveSheet.Paste
Selection.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True
End SubLeider klappt das nur bedingt. Steht in der Zelle (Spalte BL) nur 1 Wert, wird dieser wie gewünscht in Spalte "BM" eingetragen. Stehen mehrere Werte in "BL", beginnt die "Verteilung" erst in "BN". Liegt eventuell daran, dass bei mehreren Trefferzeiten ein Leerzeichen zu Beginn vorangestellt ist.
Kann das Makro daraufhin entsprechend geändert werden?
Gruss
Fred
https://www.herber.de/bbs/user/158961.xlsb