Text in Spalten

[Kuwer]

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

[shift-del]

=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

[Steffl]

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