Einen Teil des Textes aus Zelle entferne

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Exportieren_TEL_löschen() Dim Z As Range Application.EnableEvents = False With Worksheets("Kunden") For Each Z In .Range(.Range("AJ5"), .Range("AJ99999").End(xlUp)).Cells Z.Value = Replace(Z.Value, "exportieren_TEL", "") Next End With Application.EnableEvents = True End Sub

Sub Test() Columns("AJ").Replace What:="exportieren_TEL", Replacement:="", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 End Sub

Sub Exportieren_TEL_löschen() Dim Z As Range Dim S Dim Neu As String Application.EnableEvents = False With Worksheets("Kunden") For Each Z In .Range(.Range("AJ5"), .Range("AJ99999").End(xlUp)).Cells Neu = "" For Each S In Array("archivieren", "nachbearbeiten", "exportieren_BH", "Importiert_Tel", "Bereits_exportiert_TEL") If InStr(1, Z.Value, S, vbTextCompare) Then Neu = Neu & vbCr & S Next Z.Value = Mid(Neu, 2) 'erste vbCr raus Next End With Application.EnableEvents = True End Sub

https://www.herber.de/bbs/user/150574.xlsm
Hallo Yal und Boris,
Beim Test des neuen Codes von Yal wurde nun leider auch kein Wert gelöscht und das Makro läuft auf einen Fehler.
Die möglichen Werte die in der Spalte "AJ" stehen können, sind leider nicht fix sondern
können bei Bedarf in der DropDown-Liste (siehe Register DropDown) erweitert od. geändert werden)
For Each S In Array("archivieren", "nachbearbeiten", "exportieren_BH", "Importiert_Tel", "Bereits_exportiert_TEL")
Kann das Problem gelöst werden, ansonsten muss ich halt das Makro bei Bedarf anpassen.
Ich habe eine Testdatei mit euren beiden Makros hochgeladen (siehe oben).
Der Makroname fängt einmal mit Boris_ und einmal mit Yal_ an. Da stehen jeweils eure Makros drinnen.
Bitte die Makros darin testen und Versuchen, diese zum Laufen zu bringen.
Danke!
FG
Albert

Sub til() Columns("AJ:AJ").Select Selection.Replace What:="exportieren_TEL", Replacement:="", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 End Sub

Sub Boris_exportieren_TEL_WertLöschen() Columns("AJ").Replace What:="exportieren_TEL" & vbLf, Replacement:="", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 End Sub

Hallo Ralf,
oje, jetzt bist du mich immer noch nicht los.
Ich wollte nicht auf zwei Hochzeiten tanzen aber ich habe mir gedacht, das dafür eigentlich zwei Makros notwendig sind.
Eines für den Datenexport und dann eines um den Status richtigzustellen. Deshalb die zwei getrennten Beschreibungen meiner Anliegen.
Aber das das auch in einem Makro geht, ist noch schöner.
In deinem Code im entsprechenden Schleifendurchlauf habe ich die Änderungen nicht zusammengebracht.
Aber ich habe den Code von Boris geändert und vor dem Ende in dein Makro eingebaut.
Columns("AJ").Replace What:="exportieren_TEL", Replacement:="Bereits_exportiert_TEL", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Funktioniert jetzt alles Perfekt!
Danke euch Beiden herzlichst für diese tolle Lösung!

Beliebteste Forumthreads (12 Monate)

Einen Teil des Textes aus Zelle entferne

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einen Teil des Textes aus Zelle entferne

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread