Office: Teil aus String

HolN · 16. April 2017

Hallo,

ich habe in Zelle A5 folgenden Text stehen:

Name of Vessel : COSCO FRANCE V.018W

Wie kann ich über VBA lösen das ich nur COSCO FRANCE erhalte. Der Aufbau ist immer gleich. Nach dem : erscheint ein Leerzeichen und dann der Schiffsname. Endet immer mit V....

Ich möchte also nur den Schiffsnamen ohne führende Leerzeichen in einer Variablen erhalten. Kann mir bitte einer einen Tipp bzw. Ansatz für mein Problem geben.

Danke + Gruß
nolle

:)

Jonas0806 · 17. April 2017

Hallo nolle,

das geht auch ohne VBA
Code:

=TEIL(A10;SUCHEN(": ";A10)+2;SUCHEN("V.";A10)-SUCHEN(": ";A10)-3)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HolN · 17. April 2017

Hallo Jonas,

vielen Dank für die Formel. Werde ich mir auch gleich abheften.

Aber in diesem Fall brauche ich eine VBA Lösung

Gruß

nolle

Jonas0806 · 17. April 2017

Hallo,

analog zu TEIL:
Code:

Sub ExtractShip()
Dim strShip As String
strShip = "Name of Vessel : COSCO FRANCE V.018W"
Debug.Print Mid(strShip, InStr(1, strShip, ": ") + 2, InStr(1, strShip, "V.") - InStr(1, strShip, ": ") - 3)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder über split:
Code:

Sub ExtractShip2()
Dim arrShip() As String
arrShip = Split(Split("Name of Vessel : COSCO FRANCE V.018W", " : ")(1))
Debug.Print arrShip(0) & " " & arrShip(1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Edit:
Und noch etwas kürzer:
Code:

Sub ExtractShip3()
Debug.Print Split(Split("Name of Vessel : COSCO FRANCE V.018W", " : ")(1), " V.")(0)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

CitizenX · 17. April 2017

Hi,

Textanalyse geht mit Regulären Ausdrücken
:

Code:

Option Explicit

Sub test()
Const MATCH_WORD = "Name of Vessel : COSCO FRANCE V.018W"
MsgBox replacePart(MATCH_WORD)
End Sub

Private Function replacePart(ByVal testString As String) As String
Dim regex As Object
Set regex = CreateObject("vbscript.regexp")

With regex
.Pattern = "(.*?:s+)(.*?)(s+V.*?$)"
.ignorecase = True
replacePart = .Replace(testString, "$2")
End With

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG
Steffen

HolN · 17. April 2017

Hallo,

ich bin begeistert. Habe mich für die 3. Lösung von Jonas entschieden.

nochmals vielen Dank

nolle

Office: Teil aus String

Teil aus String

Teil aus String

Teil aus String

Teil aus String - Similar Threads - Teil String

Teile aus einem qrcode string auslesen

Teil des Zellinhaltes abfragen in VBA

Adresse aus Teilen eines Nummernblocks einfügen

Teil aus Zelle in andere Zelle extrahieren

Teil Suchen

bzw 21 excel Kombinationen 30;15 = 155117520

Teil String im Text suchen und ausgeben