SpalteA_auf_SpalteB_und_SpalteC_aufteilen
09.03.2016 16:26:30
Kathi
eigentlich ist es so einfach, aber ich bin seit Jahren aus der Übung. Könnt ihr mir bitte weiterhelfen.
Ich versuche gerade ein Makro zu schreiben, dass den Text aus Spalte A aufteilt. Bis zur "(" soll der Text in der Spalte B stehen und ab "(" soll der Text in Spalte C stehen. Die Schleife soll solange laufen, bis in der Spalte A kein Text mehr steht. (es gibt keine fixe letzte Zeile in der Spalte A)
z.B.
Spalte A: Hausverkauf (1234)
Spalte B: Hausverkauf
Spalte C: (1234)
Sub SpalteA_auf_SpalteB_und_SpalteC_aufteilen()
Dim intRow As Integer
intRow = 1
Do While (Cells(i, 1) "")
Cells(i,2)=LINKS(Cells(i,2);FINDEN("(";Cells(i,2))-1)
Cells(i,3)=TEIL(Cells(i,3)=;SUCHEN("(";Cells(i,3)=)+1;SUCHEN(")";Cells(i,3)=)-SUCHEN("(";Cells( _
_
i,3)=)-1)_
Loop
End Sub