Wort in Excel Feld suchen

Dieses Thema Wort in Excel Feld suchen im Forum "Microsoft Office Suite" wurde erstellt von AlexHofbauer, 25. Nov. 2005.

Thema: Wort in Excel Feld suchen Hi, ich hab mehrere Felder mit langen Texten. Diese sollen durchsucht werden auf das Wort XYZ. Falls dieses Wort...

  1. 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
     
  2. Hallo Alex,

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

    Sollen alle Textfelder durchsucht werden ?

    Gruß Matjes :)
     
  3. 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 <> 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 :)
     
  4. Oder einfach per Formel:
    =LINKS(A1;SUCHEN(XYZ;A1)-1)
     
Die Seite wird geladen...

Wort in Excel Feld suchen - Ähnliche Themen

Forum Datum
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Excel 2007 - Blatt mit Passwort vor Zugriff schützen Microsoft Office Suite 14. Juni 2012
VB in Excel: Alle Zeilen löschen die bestimmtes Wort "beinhalten" Webentwicklung, Hosting & Programmierung 8. Jan. 2009
MS Excel 2003 - Zahl durch Wort ersetzen Windows XP Forum 5. Dez. 2008
Öffnen einer Passwortgeschützten Exceldatei mittels Makro Windows XP Forum 25. Juli 2008