noch eine...
12.09.2009 12:11:04
Tino
Hallo,
Kommt als Code in ein Modul
Function WertAusKlammer(rZelle As Range, TrennZeichen As String)
Dim Regex As Object, objMatch As Object
Dim i As Integer, sTest As String, Wert As String
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.IgnoreCase = False
.MultiLine = True
.Pattern = "[\(]\w{1,}[\)]"
.Global = True
Set objMatch = .Execute(rZelle.Text)
End With
If objMatch.Count > 0 Then
For i = 0 To objMatch.Count - 1
sTest = Replace(objMatch(i), "(", "")
sTest = Replace(sTest, ")", "")
Wert = Wert & sTest & TrennZeichen
Next i
Wert = Left(Wert, Len(Wert) - 1)
If IsNumeric(Wert) Then
WertAusKlammer = Wert * 1
Else
WertAusKlammer = Wert
End If
Else
WertAusKlammer = ""
End If
End Function
In Excel kannst Du dies nun wie eine Formel verwenden.
Beispiel:
| A | B |
5 | ABCEFG SSSD(xxxx)FER | xxxx |
6 | ABCEFG SSSD(xxxx)FER (Hallo) | xxxx;Hallo |
7 | ABCEFG SSSD(1234) FER () | 1234 |
Formeln der Tabelle |
Zelle | Formel | B5 | =WertAusKlammer(A5;";") | B6 | =WertAusKlammer(A6;";") | B7 | =WertAusKlammer(A7;";") |
|
Gruß Tino