Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

text automatisiert ausschneiden und einfügen

Forumthread: text automatisiert ausschneiden und einfügen

text automatisiert ausschneiden und einfügen
29.07.2005 11:25:18
alex
Habe folgenden VBA code geschrieben
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: text automatisiert ausschneiden und einfügen
29.07.2005 11:44:51
IngGi
Hallo Alex,

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 = Right(Cells(I, 4),Len(Cells(I, 4))-6)
Next I
End Sub

Gruß Ingolf
AW: text automatisiert ausschneiden und einfügen
29.07.2005 12:13:58
alex
Hallo Ingolf
danke für deinen Vorschlag.
ein Problem hab ich allderings noch
texto steht nicht am zellenanfang sondern ist die letzte Zeile in jeder Zelle und ich will genau jenen text nach "texto:" ausschneiden und kopieren.
falls du weißt wie das geht bitte ich dich um einen weiteren Lösungsvorschlag
erstmal vielen Dank
alex
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige