Mit VBA Text in 3 Spalten aufteilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

…Albin,
könntest du auch eine UDF (mit mehr Komfort) verwenden, zB so:
F2:H2: {=SplitVx(I2;{" - "." / "})}
Falls der 1.Wert auch als echte Zahl dargestellt wdn soll, dann so:
F2:H2: {=WENNFEHLER(--SplitVx(I2;{" - "." / "});SplitVx(I2;{" - "." / "}))}
Alternativ könnte auch eine andere UDF benutzt wdn, die diese Umwandlung bereits enthält:
F2:H2: {=VSplit(I2;{" - "." / "};1)}
Da ich bereits mit einer bisher unpublizierten Version dieser UDF arbeite, könnte es sein, dass die letztpublizierte das 2.Argument nicht verträgt. Dann besser so:
F2:H2: {=VSplit(WECHSELN(I2;"-";"/");" / ";1)}
Als ZellFmln sind das natürlich (plurale) MatrixFmln über alle 3 Spalten einer Zeile. Allerdings kann man die UDFs auch in einer Subprozedur verwenden, wobei ein Array aus 3 Werten entsteht. Dabei können auch Werte bedingungsabhängig weggelassen bzw in diesem ausgetauscht wdn, wobei Letzteres dann ggf an einer Array-Kopie erfolgen sollte. Mit ZellFmln wäre das zwar auch möglich, erforderte aber eine längere Fml.
Natürlich kann das in einer Subprozedur auch mit der vbFkt Split bewerkstelligt wdn; die ist aber weniger komfortabel, was dich ja hierbei nicht unbedingt stören dürfte.
Die UDFs sind im Archiv enthalten und dort in etlichen Beiträgen auch verlinkt. Allerdings scheint die Archiv-Recherche hier schon seit Wochen (oder gar Monaten) nicht mehr zu fktionieren, weshalb du wohl herber-extern nach ihnen suchen oder bei Interesse nochmal nachfragen müsstest.
Gruß, Luc :-?

Sub M_snb() sn = Columns(9).SpecialCells(2).Resize(, 3) For j = 2 To UBound(sn) st = Split(Replace(sn(j, 1), "-", "/"), "/") sn(j, 1) = Trim(st(0)) sn(j, 2) = Trim(st(1)) sn(j, 3) = Trim(st(2)) Next Cells(1, 6).Resize(UBound(sn), 3) = sn End Sub

Beliebteste Forumthreads (12 Monate)

Mit VBA Text in 3 Spalten aufteilen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

344 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit VBA Text in 3 Spalten aufteilen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

344 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread