VB in Excel: Alle Zeilen löschen die bestimmtes Wort "beinhalten"

Dieses Thema VB in Excel: Alle Zeilen löschen die bestimmtes Wort "beinhalten" im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von groovesurfer, 8. Jan. 2009.

Thema: VB in Excel: Alle Zeilen löschen die bestimmtes Wort "beinhalten" Hi Leute, ich möchte in Excel 2003 alle Zeilen löschen die das Wort Fon beinhalten. Habe dafür foldenden code: Sub...

  1. Hi Leute,

    ich möchte in Excel 2003 alle Zeilen löschen die das Wort Fon beinhalten.
    Habe dafür foldenden code:
    Code:
    Sub BegriffSuchenUndZeilenLöschen()
      Dim Suchbegriff As String
      Dim Zeilen As Range, ersteZelle As Range, Zelle As Range
      Suchbegriff = Fon
      Set ersteZelle = Cells.Find(Suchbegriff, LookAt:=xlWhole)
      If ersteZelle Is Nothing Then
        MsgBox Suchbegriff nicht gefunden !
      Else
        Set Zeilen = ersteZelle
        Set Zelle = ersteZelle
        Do
          Set Zelle = Cells.FindNext(after:=Zelle)
          If Not Zelle Is Nothing Then
            Set Zeilen = Union(Zeilen, Zelle)
          End If
        Loop Until Zelle.Address = ersteZelle.Address
        If MsgBox(Folgende Zeilen KOMPLETT Löschen ? & vbLf & vbLf & Zeilen.Address, _
          vbYesNo + vbQuestion, Gefundene Zellen) = vbYes Then
          Zeilen.EntireRow.Delete
        End If
      End If
    End Sub
    Das funktioniert auch prima wenn nur das Wort Fon darin steht. Wenn aber nun mehr z.B. Fon +49/.... darin steht geht es nicht.
    Wie kann man das erreichen?
     
  2. Habs gefunden. Einfach ein * hinter das Suchwort (= Fon*).
    Da war ich wohl etwas zu voreilig :froehlich1:
     
Die Seite wird geladen...

VB in Excel: Alle Zeilen löschen die bestimmtes Wort "beinhalten" - Ähnliche Themen

Forum Datum
Schreibschutz bei Excel im Office 2007 nur für bestimmte Zellen, nicht alles! Windows XP Forum 10. Jan. 2008
Word /Excel 2002 und 2007 parallel installieren Windows XP Forum 9. Aug. 2007
Alle offenen Dateien schließen und dann Excel schließen Windows XP Forum 6. Juli 2007
Excel: Wenn alle Kreuzchen gesetzt, dann soll im Deckblatt ein Feld auf grün Microsoft Office Suite 4. Okt. 2006
Excel: Makros gültig für nahezu alle WS Microsoft Office Suite 17. Aug. 2006