title image


Smiley Re: Excel2000 VBA: Wie kann ich ein Text in einzelne Wörter einteilen
Hallo atze,

so sollte es gehen:

(Konnte allerdings InstrRev nicht testen, hab grad nur XL97)



Sub atze()



Dim LBH As String

Dim L

Dim B



'Hiernach sollte in LBH 2500x300x17 stehen

LBH = Mid([a1], InStrRev([a1], " ") + 1)

L = Mid(LBH, 1, InStr(1, LBH, "x") - 1)

B = Mid(LBH, InStr(1, LBH, "x") + 1)

B = Mid(B, 1, InStr(1, B, "x") - 1)



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: