Zeit aus Text "extrahieren"

Halli hallo :-)
Ich stehe aktuell vor folgendem Problem:
Ich habe eine Spalte mit viel Text in jeder Zelle. In jeder dieser Zellen findet sich irgendwo eine Zeitdauer im Format hh:mm:ss. Ich möchte nun daneben eine neue Spalte erstellen, in der nur die Zeiten stehen, die in der anderen Spalte im Text untergehen.
Da wird es doch bestimmt einen Befehl à la Find.Date oder Find.Time o.Ä. geben, um die Zeit zu finden und sie anschließend in einer anderen Zelle einzeln zu speichern.
Wichtig:
- Höchstens eine Zeit pro Zelle
- Nicht in jeder Zeile sind Zeiten
- Ich suche keinen Befehl, der auf der Annahme basiert, dass die Zeit immer an der gleichen Stelle in der Zelle auftaucht.
Ich hoffe, ihr könnt mir helfen.
Viele Liebe Grüße
Fabian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fabian,
ist mir zwar schleierhaft, warum du VBA bevorzugst, aber bitte.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub ReadTimeFromString()
Dim vntInput As Variant, vntOutput() As Variant, vntItem As Variant
Dim lngI As Long

vntInput = Range("A1:A4") 'Eingabebereich

Redim vntOutput(1 To UBound(vntInput))

For Each vntItem In vntInput
  lngI = lngI + 1
  vntOutput(lngI) = extractTime(CStr(vntItem))
Next

'Ausgabe
Range("B1").Resize(UBound(vntOutput, 1)) = Application.Transpose(vntOutput)
End Sub

Private Function extractTime(Text As String) As Variant
Dim objREGEX As Object, objMatch As Object

On Error GoTo ErrExit

Set objREGEX = CreateObject("VBScript.RegExp")
With objREGEX
  .MultiLine = True
  .Global = True
  .IgnoreCase = True
  .Pattern = "(([0-1]?[0-9])|([2][0-3])):([0-5]?[0-9])(:([0-5]?[0-9]))"
  Set objMatch = .Execute(Text)
End With

If objMatch.Count > 0 Then extractTime = CDate(objMatch.Item(0).Value)

Exit Function

ErrExit:
extractTime = ""
End Function

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	Das ist ein Text mit Zeit 13:47:15 und weiterer Text!		13:47:15
2	Das ist ein Text ohne Zeit
3	14:08:00 Zeit am Anfag		14:08:00
4	Zeit am Ende 17:00:15		17:00:15

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeit aus Text "extrahieren"

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread