title image


Smiley (VBA) Teil einer Spalte ab best. Textteil ausschneiden und in neue Spalte
Hallo AnneS,mit folgenden VBA-Zeilen geht's:Sub ZweiSpalten()Dim Suchwort As StringDim Textalt, TextSpalte1, TextSpalte2 As StringDim I As IntegerSuchwort = "Test"For I = 1 To 10 'bis zum Sapltenende___ Textalt = Cells(I, 1).Value___ Position1 = InStr(1, Textalt, Suchwort)___ TextSpalte1 = Mid(Textalt, 1, Position1 - 1)___ TextSpalte2 = Mid(Textalt, Position1)___ Cells(I, 1).Value = TextSpalte1___ Cells(I, 2).Value = TextSpalte2NextEnd SubIch bin hier davon ausgegangen, das dein Text in Spalte A steht, sonst muß die Spalte angepaßt werden. Außerdem hab ich noch nicht abgefangen, dass das Suchwort nicht vorkommt.Gruß Worti

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: