Thema Datum  Von Nutzer Rating
Antwort
17.11.2015 15:52:27 joerg
NotSolved
17.11.2015 22:10:48 Gast21869
NotSolved
18.11.2015 08:38:14 joerg
NotSolved
Blau wenn string gefunden dann zeile löschen
 17.11.2015 23:19:22 Gast33424
*****
Solved
18.11.2015 08:36:43 joerg
Solved

Ansicht des Beitrags:
Von:
Gast33424		 Datum:
17.11.2015 23:19:22		 Views:
1069		 Rating:
     
Antwort:
 Nein
Thema:
wenn string gefunden dann zeile löschen

Hallo,

uhhh da brauchts keine Bsp.-mappe, das sollte der Grund sein:

Option Explicit

Sub tester()
 Dim i As Integer, asp As Integer
 asp = 1
i = 1
 
Do Until (ActiveSheet.Cells(i, asp) = "")
    Select Case ActiveSheet.Cells(i, asp)
        Case "Rz1max", "Neigung"    '<----Komma statt Or-Operator
            ActiveSheet.Rows(i).Delete
    End Select
    i = i + 1
Loop
End Sub

Gruß,

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
17.11.2015 15:52:27 joerg
NotSolved
17.11.2015 22:10:48 Gast21869
NotSolved
18.11.2015 08:38:14 joerg
NotSolved
Blau wenn string gefunden dann zeile löschen
 17.11.2015 23:19:22 Gast33424
*****
Solved
18.11.2015 08:36:43 joerg
Solved