Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ab 3 quer Strich " \ " ausschneiden

Ab 3 quer Strich " \ " ausschneiden
31.05.2006 11:20:04
Heinz
Hallo Leute
Könnte mir bitte jemand einen Code verraten.
Habe in Spalte B:B Hyperlinks nun sollte die Werte ab dem 3 " \ " ausgeschnitten werden und in Spalte E eingefügt werden.
Zb. L:\Musik\Musik\70er\CHICAGO - YOURE MY INSPIRATION
Spalt B: CHICAGO - YOURE MY INSPIRATION
Spalte E: L:\Musik\Musik\70er\
Danke Heinz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ab 3 quer Strich " \ " ausschneiden
31.05.2006 11:32:28
UweD
Hallo
per Formel:
 
 ABCDE
1L:\Musik\Musik\70er\CHICAGO - YOURE MY INSPIRATIONCHICAGO - YOURE MY INSPIRATION  L:\Musik\Musik\70er\
Formeln der Tabelle
B1 : =TEIL(A1;SUCHEN("#";WECHSELN(A1;"\";"#";4))+1;255)
E1 : =LINKS(A1;SUCHEN("#";WECHSELN(A1;"\";"#";4)))
 

Ist aber ab dem 4 ten \
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Ab 3 quer Strich " \ " ausschneiden
31.05.2006 11:42:18
Heinz
Hallo Uwe
Danke so Funkt. auch,aber nur werden die Hyperlinks nicht mitkopiert.
Wüsstest Du da Bitte auch einen Tip.
Gruss Heinz
AW: Ab 3 quer Strich " \ " ausschneiden
31.05.2006 11:51:57
Reinhard
Hi Heinz,
Option Explicit
Sub tt()
Dim zei As Long
For zei = 1 To Range("A65536").End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=Cells(zei, 5), Address:=Cells(zei, 1) _
, TextToDisplay:=Mid(Cells(zei, 1), InStrRev(Cells(zei, 1), "\") + 1)
Cells(zei, 2) = Left(Cells(zei, 1), InStrRev(Cells(zei, 1), "\") - 1)
Next zei
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Ab 3 quer Strich " \ " ausschneiden
31.05.2006 12:01:27
Heinz
Hallo Reinhard
Genau so wie ich es wollte.Funkt.Super
Recht herzlichen Dank.
Gruß Heinz

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige