Hallo Detlef,
klar, wenn Du die Fehlerbehandlung weg lässt. ;) Also dann natürlich so:
=WENNFEHLER(VERWEIS(9^99;--TEIL(A1;SPALTE(1:1);11));"")
Gruß Uwe
Zitat:=WENNFEHLER(VERWEIS(9^99;--TEIL(A1;SPALTE(1:1);11));"")
Das ergibt dann wieder den anderen Fehler:
| Arbeitsblatt mit dem Namen 'Tabelle1' |
| | E |
| 4 | 04.01.1900 |
| Zelle | Formel |
| E4 | =WENNFEHLER(VERWEIS(9^99;--TEIL(A4;SPALTE(4:4);11));"") |
| Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg |
Auch Hallo,
ich habe mich mal wieder am RegEx versucht. Die Daten stehen zuerst in der Spalte B und sind dann je nachdem auf die weiteren Spalten aufgeteilt.
Code:
Sub prcTestRegex()
Dim re As Object, reMat As Object
Dim lngC As Long
On Error Resume Next
Set re = CreateObject("vbscript.regexp")
re.Pattern = "^(\D*)(\d*\.\d*\.\d*)*(\D*)"
re.Global = True
lngC = 1
While Cells(lngC, 2) <> ""
Set reMat = re.Execute(Cells(lngC, 2))
If reMat.Count Then
Cells(lngC, 2) = reMat(0).submatches(0)
If Not IsEmpty(reMat(0).submatches(1)) Then Cells(lngC, 3) = CDate(reMat(0).submatches(1))
Cells(lngC, 4) = Mid(reMat(0).submatches(2), 2)
End If
lngC = lngC + 1
Wend
On Error GoTo 0
End Sub