Text zwischen Klammern in Nachbarzelle verschiebe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Auszug() Dim lngZeile As Long For lngZeile = 7 To 26 Cells(lngZeile, 4) = Split(Cells(lngZeile, 3), ",")(0) Cells(lngZeile, 5) = Application.Substitute(Application.Substitute(Split(Cells(lngZeile, _ 3), ",")(1), "(", ""), ")", "") * 1 Next lngZeile End Sub

Hoi Beverly
Das ging ja Super schnell. Danke für die grosse Hilfe. Habe deine Cells sehr gut brauchen können. Ich habe noch zusätzlich eine LastRow eingebaut, denn es können bis 1000 oder mehr Zeilen sein.
Zwar kann ich nun das Macro sehr gut gebrauchen, muss aber einen Umweg machen mit einer neuen leeren Spalten und wieder eine löschen. Weil der Text aus Spalte D aufteilt in Spalte E und F. Das Ziel wäre eigentlich gewesen. Der Wert zwischen den Klammern soll auf E verschoben werden und in der Spalte D, soll diesen Eintrag gelöschen werden.
LG
Albin

Sub Auszug()
Dim c As Long, r As Long
Dim FirstRow As Long, LastRow As Long
c = 4
FirstRow = 7
LastRow = Cells(Rows.Count, c).End(xlUp).Row ' Letzte Zeile
For r = FirstRow To LastRow
Cells(r, 5) = Split(Cells(r, 4), ",")(0)
Cells(r, 6) = Application.Substitute(Application.Substitute(Split(Cells(r, _
4), ",")(1), "(", ""), ")", "") * 1
Next r
End Sub

Sub splitText() Application.DisplayAlerts = False With Sheets("davor") With .Range("C7:C" & Application.Max(7, .Cells(.Rows.Count, 3).End(xlUp).Row)) Call .Replace(What:=")", Replacement:="") Call .Replace(What:=",", Replacement:="") Call .TextToColumns(Destination:=.Cells(1, 1), DataType:=xlDelimited, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="(") End With End With Application.DisplayAlerts = True End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub splitText() Application.DisplayAlerts = False With Sheets("MailPdf1") With .Range("D7:D" & Application.Max(7, .Cells(.Rows.Count, 4).End(xlUp).Row)) Call .Replace(What:=")", Replacement:="") Call .Replace(What:=",", Replacement:="") Call .TextToColumns(Destination:=.Cells(1, 1), DataType:=xlDelimited, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="(") End With End With Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

Text zwischen Klammern in Nachbarzelle verschiebe

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Text zwischen Klammern in Nachbarzelle verschiebe

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread