AW: Mit VBA Text in 3 Spalten aufteilen
08.03.2018 19:09:13
Albin
Hoi Daniel
Passt noch nicht so ganz. Den die Einträge in der Spalte I, importiere ich aus einer SQL - DB. Leider wäre der Aufwand sehr gross, dies zu ändern. Sorry
Was ich brauche ist die richtige Abfrage im Makro. siehe Upload oder Makro
https://www.herber.de/bbs/user/120296.xlsm
Sub formal_V3()
Dim wks As Worksheet
Dim Zei_L As Long
Set wks = ActiveSheet
Application.Calculation = xlCalculationManual
With wks
Zei_L = .Cells(.Rows.Count, 1).End(xlUp).Row
If Zei_L >= 2 Then
With .Range(.Cells(2, 1), .Cells(Zei_L, 1))
If Application.WorksheetFunction.CountBlank(.Cells) = 0 Then
.Offset(0, 5).FormulaR1C1 = "=LEFT(RC[4],FIND(""-"",RC[4])-1)"
.Offset(0, 6).FormulaR1C1 = "=Reght(RC[3],FIND(""-"",RC[4])-1)" '' test
.Offset(0, 7).FormulaR1C1 = "=RIGHT(RC[2],LEN(RC[2)-FIND(""-"",RC[1]))"
Else
With .SpecialCells(xlCellTypeConstants)
.Offset(0, 5).FormulaR1C1 = "=LEFT(RC[3],FIND(""-"",RC[3])-1)"
.Offset(0, 6).FormulaR1C1 = "=Right(RC[2],FIND(""/"",RC[2])-1)" ''da muss es sein " _
.Offset(0, 7).FormulaR1C1 = "=RIGHT(RC[1],LEN(RC[1])-FIND(""/"",RC[1]))"
End With
End If
End With
End If
End With
Application.Calculation = xlCalculationAutomatic
End
Sub
Gruss Albin