text automatisiert ausschneiden und einfügen
29.07.2005 11:25:18
alex
Problem ich will das das Programm nur den Bereich ab (texto:irgendwas.verschieden. lang) jeder zelle ausschneidet & kopiert aber nicht! die ganze zelle kopiert.
bitte um weiterhilfe
Sub kopieren()
ende = Cells(Rows.Count, 4).End(xlUp).Row
For I = ende To 2 Step -1
If Cells(I, 4) Like "*texto:*" Then Cells(I, 5).Value = Cells(I, 4)
Next I
End Sub