Truncate cell content after a certain character

[brakai295]

HI,

how can I perform the following through a macro (I'm an absolute beginner with macros :-/)

I've got the following information in a cell:

category level one > category level two

I need to find a way to truncate the content of this cell after the ">" sign.

Can anyone think of a way of doing this?

THanks so much for your help!

Kai

[raypayette]

Sub Trunc()
For i = 1 To 3
x = Cells(i, 1).Text
j = InStr(1, x, ">")
Cells(i, 2) = Left(x, j)
Next
End Sub

[brakai295]

hi there,

thanks so much for your reply. Unfortunately, I can't figure out how to integrate it into my macro. As I said I'm an absolute beginner with macros! ;-)

I'd like to give you some more info and maybe you can help me with the integration.

---

The current macro copies the whole column H from spreadsheet "Default Sheet" to spreadsheet "Shopferret" starting from column A2:

Please Login or Register  to view this content.

The spreadsheet has several thousand rows. On the spreadsheet "Shopferret" I now need to truncate everything behind the ">" in Column A starting from row 2.

Do you know how I intergrate your code part into this macro snippet?

THANKS A LOT for your help! Much appreciated...

[Myles]

Sub CopyingSht()
Dim WS1 as Worksheet
Dim WS2 as WorkSheet

set WS1= Sheets("Default Sheet")
set WS2=Sheets("Shopferret")

WS1.Range("H2:H65536").Copy WS2.Range("A2")

For each c in Range("A2", Cells(rows.Count, "A").End(xlUp))
x = c.Text
j = InStr(1, x, ">")
c.value = Left(x, j)
Next

End Sub