Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

Bereich aus Textstring ausschneiden

Bereich aus Textstring ausschneiden
Jürgen
Hallo Helfer,
ich habe in einer Zelle den Text stehen:
Lp_5692-89x-03_D4/Unten
Nun möchte ich mittels VBA das nur noch der Text: 5692-89x-03 sowie anstelle Unten BTM angehängt wird.
Also komplett heißt es dann:
5692-89x-03 BTM
Welcher Freak bekommt das hin ?
Gruß Jürgen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich aus Textstring ausschneiden
01.08.2012 21:30:44
Peter
Hallo Jürgen,
angenommen, der Ursprungswert steht in Tabelle1 in Zelle A1, dann so:
Public Sub ausschneiden()
Dim vTemp  As Variant
With ThisWorkbook.Worksheets("Tabelle1")
If InStr(.Range("A1").Value, "_") > 0 Then
vTemp = Split(.Range("A1").Value, "_")
.Range("A1").Value = vTemp(1) & " BTM"
End If
End With
End Sub

Gruß Peter
AW: Bereich aus Textstring ausschneiden
01.08.2012 21:44:03
Jürgen
Hallo Peter,
sehe ich das richtig ?
Der Befehl Split schneidet den Bereich innerhalb eines Zeichens heraus ? in diesem Fall das _ ?
Jürgen
AW: Bereich aus Textstring ausschneiden
01.08.2012 21:59:59
Peter
Hallo Jürgen,
der Befehl Split splittet einen String bei dem angegebenen Zeichen in entsprechend viele Teile.
Hier in Deinem Fall steht in der Variablen vTemp mit Index 0 der Inhalt vor dem ersten Unterstrich, Index 1 der Wert zwischen den beiden Unterstrichen und bei Index 2 der Rest hinter dem 2. Unterstrich.
Gruß Peter
Anzeige
AW: Bereich aus Textstring ausschneiden
01.08.2012 22:16:10
Jürgen
Danke Peter,
wieder was gelernt.
Jürgen
wozu VBA?
02.08.2012 10:54:56
Rudi
Hallo,
 AB
2Lp_5692-89x-03_D4/Unten5692-89x-03 BTM

ZelleFormel
B2=LINKS(TEIL(A2;FINDEN("_";A2)+1;99);FINDEN("_";TEIL(A2;FINDEN("_";A2)+1;99))-1) & " BTM"

Gruß
Rudi
Anzeige

7 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige