Bestimmten Text in Zellen löschen

[atilla]

Hallo,

mein Code macht das, was Du haben möchtest.
Die andere Seite sollte nur als ergänzende Info dienen.

Unten jetzt ein erweiterter Code. Die Arbeitsweise sollte anhand der im Code enthaltenen Kommentare verständlich sein.

Code:

Sub von_links_loeschen()
  Dim lngZ As Long, i As Long
 
  lngZ = Cells(Rows.Count, 1).End(xlUp).Row 'letzte belegte Zelle in Spalte 1
 
  Application.ScreenUpdating = False
  Columns(2).Clear      'Spalte 2 leeren zum Übertragen der abgeschnittenen Werte
 
  'ab Zeile 2 werden die Inhalte der Zellen in Spalte A bis zum letzten "/" abgeschnitten
  'und der Rest wird in Spalte zwei geschrieben
  For i = 2 To lngZ
    Cells(i, 2).Value = Mid(Cells(i, 1).Value, InStrRev(Cells(i, 1).Value, "/") + 1)
  Next i
 
  Application.ScreenUpdating = True
End Sub

[TheHydrogena]

Du hast drei konkrete Beispiele genannt. Bei allen funktionieren die Formeln.

Oh sorry, dann habe ich nicht genau hin geguckt.
Aber wie schon beschrieben, wenn der Fall vorkommt reicht es ja nicht die ersten 5 Zeichen zu löschen 

Code:

/6/8/0/684-301-4.jpg

Deshalb fand ich den Ansatz mit dem von rechts gehend das erste "/" zu suchen ja so interessant, weiß aber nicht wie man den Wert dann Weiterverarbeiten kann, momentan löscht er ihn ja nur, so dass am Ende

Code:

/6/8/0/

 da steht
Gruß

[WillWissen]

Hi,

verstehe ich dich richtig?

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B
1	6/8/0/684-301-4.jpg	684-301-4.jpg
2	A-55/6/8/0/A55-12345-B.jpg	A55-12345-B.jpg

Zelle	Formel
B1	{=TEIL(A1;MAX(WENN(TEIL(A1;SPALTE(1:1);1)="/";SPALTE(1:1)))+1;55)}

Achtung, Matrixformel enthalten!

Die geschweiften Klammern{} werden nicht eingegeben.

Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

aus: http://www.office-loesung.de/ftopic340146_0_0_asc.php

[shift-del]

Oder ohne CSE:

Code:

=TEIL(A2;SUCHEN("#";WECHSELN(A2;"/";"#";3))+1;999)

[Jockel]

Hallo Günter, dann ginge auch (ohne CSE-Abschluss) 

PHP-Code:

=ERSETZEN(A1;1;VERWEIS(9^9;FINDEN("/";A1;SPALTE(1:1)));"") 


[Jockel]

Oder ohne CSE:

Code:

=TEIL(A2;SUCHEN("#";WECHSELN(A2;"/";"#";3))+1;999)

Hallo Detlef, aber hier nicht zutreffend für A2..:

Arbeitsblatt mit dem Namen 'Blatt2'
	A	B	C	D
1	6/8/0/684-301-4.jpg	684-301-4.jpg	684-301-4.jpg	684-301-4.jpg
2	A-55/6/8/0/A55-12345-B.jpg	A55-12345-B.jpg	A55-12345-B.jpg	0/A55-12345-B.jpg

Zelle	Formel
B1	{=TEIL(A1;MAX(WENN(TEIL(A1;SPALTE(1:1);1)="/";SPALTE(1:1)))+1;55)}
C1	=ERSETZEN(A1;1;VERWEIS(9^9;FINDEN("/";A1;SPALTE(1:1)));"")
D1	=TEIL(A1;SUCHEN("#";WECHSELN(A1;"/";"#";3))+1;999)

Achtung, Matrixformel enthalten!

Die geschweiften Klammern{} werden nicht eingegeben.

Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[shift-del]

Dann noch etwas länger:

Code:

=TEIL(A2;SUCHEN("#";WECHSELN(A2;"/";"#";LÄNGE(A2)-LÄNGE(WECHSELN(A2;"/";""))))+1;999)

[atilla]

Deshalb fand ich den Ansatz mit dem von rechts gehend das erste "/" zu suchen ja so interessant, weiß aber nicht wie man den Wert dann Weiterverarbeiten kann, momentan löscht er ihn ja nur, so dass am Ende

Gruß

Hallo,

liest Du hier die Beiträge auch?

[Jockel]

Dann noch etwas länger...

Hi, muss doch aber nicht, oder ..?

[TheHydrogena]

Hallo,

mein Code macht das, was Du haben möchtest.
Die andere Seite sollte nur als ergänzende Info dienen.

Unten jetzt ein erweiterter Code. Die Arbeitsweise sollte anhand der im Code enthaltenen Kommentare verständlich sein.

Code:

Sub von_links_loeschen()
  Dim lngZ As Long, i As Long
 
  lngZ = Cells(Rows.Count, 1).End(xlUp).Row 'letzte belegte Zelle in Spalte 1
 
  Application.ScreenUpdating = False
  Columns(2).Clear      'Spalte 2 leeren zum Übertragen der abgeschnittenen Werte
 
  'ab Zeile 2 werden die Inhalte der Zellen in Spalte A bis zum letzten "/" abgeschnitten
  'und der Rest wird in Spalte zwei geschrieben
  For i = 2 To lngZ
    Cells(i, 2).Value = Mid(Cells(i, 1).Value, InStrRev(Cells(i, 1).Value, "/") + 1)
  Next i
 
  Application.ScreenUpdating = True
End Sub

Sorry ja , bin das nur überflogen und auf die Nachrichten eingegangen, hatte keine Zeit das ganze zu Überprüfen. Hab das grade aber getestet und die Idee hat aber super geklappt. Damit wäre mein anliegen soweit erledigt bzw. wurde sehr gut beantwortet, Danke dafür :D

Gruß