Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sätze aus einem Text extrahieren

Sätze aus einem Text extrahieren
07.02.2006 18:08:09
H.
Und nun,
wie kann man aus einem Text Sätze extrahieren?
Es soll bei jedem Ergebnis einer Function mit dem Namen "Ltn1" ein String übergeben werden!
MFG
H-Maier

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sätze aus einem Text extrahieren
07.02.2006 18:14:11
Nepumuk
Hallo H-Maier,
hast du mal ein konkretes Beispiel? Damit wir sehen, wie groß der Grad der Übereinstimmung sein muss.
Gruß
Nepumuk

AW: Sätze aus einem Text extrahieren
07.02.2006 18:15:58
Josef
Hallo Her Maier!
Wir pflegen hier einen legeren Umgangston.
Wir verzichten auf das "Sie", aber nicht auf eine Bergrüßung! ;-))
Das geht z.B. so!
Sub StringExtract()
Dim strText As String, strExtract As String
Dim intIndex As Integer

strText = "Das ist ein Testtext ohne weitere Bedeutung!"
strExtract = "ohne weitere"

intIndex = InStr(1, strText, strExtract)

If intIndex > 0 Then
  MsgBox Mid(strText, intIndex, Len(strExtract))
  'Statt MsgBox - DeineFunction(Mid(strText, intIndex, Len(strExtract)))
End If

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Sätze aus einem Text extrahieren
07.02.2006 18:21:52
H.
Ich habe derweil eine Lösung mit der Function Split gefunden.
Vielen Dank!
MfG
Maier
AW: Sätze aus einem Text extrahieren
ransi
hallo
vorrausgestzt dein text steht in A1 und ist durch "." getrennt.
Option Explicit
Public

Sub test()
Dim s
Dim L As Long
s = Split([a1], ".")
For L = 0 To UBound(s)
Cells(L + 2, 1) = s(L) & "."
Next
End Sub

ransi
AW: Sätze aus einem Text extrahieren
07.02.2006 18:40:05
Maier
Herzlichsten Dank für Ihre informativen Beiträge!
Maier

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige