Wort in Excel Feld suchen

AlexHofbauer · 25.11.2005

Hi,

ich hab mehrere Felder mit langen Texten. Diese sollen durchsucht werden auf das Wort XYZ. Falls dieses Wort vorkommt, soll alles was in diesem Textfeld nach XYZ kommt entfernt werden.

z.B.
Vorher : Dies ist ein Text, in dem XYZ vorkommt. Hier darf nix mehr sein.
Nachher : Dies ist ein Text, in dem

Wie kann ich das mit VB lösen?

Danke

Matjes · 26.11.2005

Hallo Alex,

um welche Application handelt es sich denn ? Excel / Word.

Sollen alle Textfelder durchsucht werden ?

Gruß Matjes

Matjes · 26.11.2005

Hallo Alex,

ein Beispiel für Word:

Code:

Option Explicit
Sub Test_()
  Dim r As Range
  Set r = Selection.Range
  Call AllesLoeschenNachXYZ(r, XYZ)
  Set r = Nothing
End Sub

Function AllesLoeschenNachXYZ(r As Range, s_String_LoschenAb As String)
  
  Dim sh As Shape, s_Text As String, pos As Long, l_anz As Long, x As Long
  
 ->For Each sh In ActiveDocument.Shapes
  l_anz = r.ShapeRange.Count
  For x = 1 To l_anz
    Set sh = r.ShapeRange(x)
    If sh.TextFrame.HasText Then
      s_Text = sh.TextFrame.TextRange.Text
      pos = InStr(1, s_Text, s_String_LoschenAb)
      If pos &lt;> 0 Then
        s_Text = Left(s_Text, pos - 1)
        sh.TextFrame.TextRange.Text = s_Text
      End If
    End If
  Next
  Set sh = Nothing
End Function

Gruß Matjes

klexy · 28.11.2005

Oder einfach per Formel:
=LINKS(A1;SUCHEN(XYZ;A1)-1)

Wort in Excel Feld suchen

AlexHofbauer

Matjes

Matjes

klexy

Wort in Excel Feld suchen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums