Thema Datum  Von Nutzer Rating
Antwort
15.03.2014 13:45:57 Uli
NotSolved
Blau Zeilen mit bestimmten Inhalt löschen
 15.03.2014 18:11:32 frau
NotSolved
16.03.2014 07:14:08 Gast57318
NotSolved

Ansicht des Beitrags:
Von:
frau		 Datum:
15.03.2014 18:11:32		 Views:
1427		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen mit bestimmten Inhalt löschen

Hi Uli,

meinst du so ?

Option Explicit
Sub Auswahllöschen()
Const Auswahl As String = "xxxxx yyyyy zzzzz"
Worksheets("Tabelle1").Select
Dim i%
i = 2
Do Until ActiveSheet.Range("B" & i) = ""
    If InStr(Auswahl, ActiveSheet.Range("B" & i).Value) Then
        ActiveSheet.Rows(i).Delete
        i = i - 1
    End If
    i = i + 1
Loop
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.03.2014 13:45:57 Uli
NotSolved
Blau Zeilen mit bestimmten Inhalt löschen
 15.03.2014 18:11:32 frau
NotSolved
16.03.2014 07:14:08 Gast57318
NotSolved