Parse Cell in VBA

[Myriad_Rocker]

I've searched for a scenario like my situation to no avail. I've done this before but I'm having a brain fart at the moment and cannot, for the life of me, get this nailed down. I've done it in a round about way but I KNOW there is a better (and more consistent) approach.

I need to parse some string information that is in a cell, we'll say cell A1.

blah blah blah blah name="Example 1 Test" blah blah blah <duh="blah"

What I need is the information after name= without the quotes. So, I need to return Example 1 Test.

I know there's a relatively simple way to do this, but again, it escapes me. This is in VBA.

 

[Smitty]

Why VBA when a function will do:

=MID(A1,7,LEN(A1)-7)

Although you can easily convert that to VBA.

HTH,

 

[sjeter]

For using VBA, research the string manipulation functions on Google: InStr(), Mid(), Right() and Len(). A combination of these is what you need to use.

 

[shg]

Or

MsgBox Split(Range("A1").Value, """")(1)

 

[Scott Huish]

You've said blah blah blah in your example, but does that text contain quotation marks or do quotation marks only appear after name=
???

 

[Myriad_Rocker]

Why VBA when a function will do

Because it's just a small part of a larger VBA project that I have.

For using VBA, research the string manipulation functions on Google: InStr(), Mid(), Right() and Len(). A combination of these is what you need to use.

Yes, I'm quite acclimated to those particular functions. But there's a succession of those that must be used.

You've said blah blah blah in your example, but does that text contain quotation marks or do quotation marks only appear after name=
???

Yes, that other part could contain (and does contain) quotation marks. Sorry.

 

[Myriad_Rocker]

Or

MsgBox Split(Range("A1").Value, """")(1)

This kinda does what I want. There are other sets of quotes before what I'm targeting, though. That was my bad that I didn't include that in the example.

 

[Myriad_Rocker]

I got a version figured out. I say version because I'm sure there's multiple ways of doing this. Thanks to shg for the split example.

ReportName = (Mid(Range("A" & x).Value, InStr(1, Range("A" & x).Value, & _
     "name="), Len(Range("A" & x).Value) - InStr(1, Range("A" & x).Value, & _
     "name=")))
MsgBox Split(ReportName, """")(1)

As a note, the reason for the x variable is because I'm looping through the rows to the max row that has data. Just FYI.