Office: Text zwischen zwei Zeichen auslesen

tigertim08 · 28. April 2018

Hallo zusammen,

ich stehe vor folgendem Problem. Ich habe eine Excel Datei bei der ich eine Spalte mit folgenden Werten habe. Nun möchte ich gerne die darin enthaltene ISIN separat ausgeben lassen. Da die ISIN immer 12 Zeichen lang ist und zwischen zwei / steht müsste Excel folgendes Schema anwenden:

Suche / wenn Text nach / genau 12 Zeichen und mit / endet, dann 12 Zeichen in Feld A3 wenn nicht suche nächsten /

Hat jemand sowas ähnliches schonmal gehabt?

Holding 1
Italy Buoni Ordinari Del Tesoro Bot 0%//17.34%
Alphabet Inc C/US02079K1079/7.91%
Sx5e 2018/02/16 3650 Call 0% 16/02/2018//44.20%
Mandom Corp/JP3879400004/4.63%
Italy(Rep Of) 2.5%/IT0004992308/2.34%
Italy(Rep Of) 2.5%/IT0004992308/2.34%
Tencent Holdings Ltd/KYG875721634/7.29%
Apple Inc/US0378331005/3.99%
Tencent Holdings Ltd/KYG875721634/9.50%
Cash Offset For Short Futures//48.13%
Fms Wertmanagement/DE000A12T523/4.60%
Trs Discovery Germany Eur P Eonia +55 Bps R//101.14%
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank!
tigertim08

:)

lupo1 · 30. April 2018

B1: =TEIL(A1;FINDEN("/";A1)+1;12)

gibt Dir die Soll-ISIN zurück. Du kannst die Ausgabe nun noch ähnlich prüfen, auf / oder auf Leerzeichen, ob es wirklich eine ist.

OfficeUser · 30. April 2018

So könnte es gehen:
Code:

Public Function findeISIN(strInput As String) As String

'suche nach einer 12 stelligen
'Zeichenfolge (Zahlen+Buchstaben)
'zwischen zwei Schrägstrichen

'Beispiel
'/abc123456ABC/

'Rückgabe ohne Schrägstriche

Dim objRegEx As Object
Dim reg As Object

Set objRegEx = CreateObject("VBScript.RegExp")
With objRegEx
.Pattern = "(\/)(\w{12})(\/)"
.IgnoreCase = True
Set reg = .Execute(strInput)
If reg.Count > 0 Then
findeISIN = reg(0).submatches(1)
Else
findeISIN = VBA.CVErr(xlErrNum)
End If
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.mcs{margin-top:5pt;}.mcs table{border-collapse:collapse;}.mcs table td{border:1px solid #999999;color:#000000;background-color:#FFFFFF;font:11pt Calibri, sans-serif;padding:1pt 2pt;text-align:left;vertical-align:middle;}.mcs .foot td{border:0;font-size:9pt;color:#888888;padding:0;}.mcs .foot{clear: both;}.mcs .foot td{background-color:transparent;}.mcs .sheet td:first-child{background-color:#ddddee;text-align:center;}.mcs .sheet tr:first-child td{background-color:#ddddee;text-align:center;}.mcs .ffarial{font-family:arial;}.mcs .c{text-align:center;}.mcs .formulas tr:first-child td{background-color:#eeaaaa;}.formats, .names, .formulas, .cond, .fonts, .valid{float: none;margin: 10pt 10pt 0 0;}
A B
1 Italy Buoni Ordinari Del Tesoro Bot 0%//17.34% #WERT!
2 Alphabet Inc C/US02079K1079/7.91% US02079K1079
3 Sx5e 2018/02/16 3650 Call 0% 16/02/2018//44.20% #WERT!
4 Mandom Corp/JP3879400004/4.63% JP3879400004
5 Italy(Rep Of) 2.5%/IT0004992308/2.34% IT0004992308
6 Italy(Rep Of) 2.5%/IT0004992308/2.34% IT0004992308
7 Tencent Holdings Ltd/KYG875721634/7.29% KYG875721634
8 Apple Inc/US0378331005/3.99% US0378331005
9 Tencent Holdings Ltd/KYG875721634/9.50% KYG875721634
10 Cash Offset For Short Futures//48.13% #WERT!
11 Fms Wertmanagement/DE000A12T523/4.60% DE000A12T523
12 Trs Discovery Germany Eur P Eonia +55 Bps R//101.14% #WERT!
Zelle Formel
B1:B12 =findeISIN(A1)

Drogist · 30. April 2018

Moin,
und als Alternative mit Power Query:

aloys78 · 30. April 2018

Hallo,

ein weiterer Ansatz:
Code:

Option Explicit

Sub ISIN()
Dim r As Long
Dim ipos As Long
For r = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & r) Like "*[/]????????????[/]*" Then
ipos = InStr(Range("A" & r), "/")
Range("B" & r) = Mid(Range("A" & r), ipos + 1, 12)
End If
Next r
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Office: Text zwischen zwei Zeichen auslesen

Text zwischen zwei Zeichen auslesen

Text zwischen zwei Zeichen auslesen

Text zwischen zwei Zeichen auslesen

Text zwischen zwei Zeichen auslesen - Similar Threads - Text Zeichen auslesen

Text nach bestimmten Zeichen trennen (variabel)

Bestimmte Zeichen aus einer Zelle nehmen

Text ab dem letzten Leerzeichen nach 40 Zeichen trennen und den restlichen Text in die nächste Spalt

Japanische Zeichen in Gruppen-E-Mails sind unleserlich oder fehlen, wenn sie als Nur-Text ...

krasse versteckte Zeichen im Text

Export Langer Text nach Excel auf 254 Zeichen abgeschnitten

Text in eine Buchstabenfolge aus 11 Buchstaben unterteilen

	A	B
1	Italy Buoni Ordinari Del Tesoro Bot 0%//17.34%	#WERT!
2	Alphabet Inc C/US02079K1079/7.91%	US02079K1079
3	Sx5e 2018/02/16 3650 Call 0% 16/02/2018//44.20%	#WERT!
4	Mandom Corp/JP3879400004/4.63%	JP3879400004
5	Italy(Rep Of) 2.5%/IT0004992308/2.34%	IT0004992308
6	Italy(Rep Of) 2.5%/IT0004992308/2.34%	IT0004992308
7	Tencent Holdings Ltd/KYG875721634/7.29%	KYG875721634
8	Apple Inc/US0378331005/3.99%	US0378331005
9	Tencent Holdings Ltd/KYG875721634/9.50%	KYG875721634
10	Cash Offset For Short Futures//48.13%	#WERT!
11	Fms Wertmanagement/DE000A12T523/4.60%	DE000A12T523
12	Trs Discovery Germany Eur P Eonia +55 Bps R//101.14%	#WERT!