Thema Datum  Von Nutzer Rating
Antwort
Rot VBA WENN dann zeile Löschen
 17.07.2016 00:13:52 Gast37203
NotSolved
17.07.2016 07:02:14 Crazy Tom
NotSolved
17.07.2016 12:29:36 Gast51512
NotSolved
17.07.2016 12:34:24 Crazy Tom
NotSolved

Ansicht des Beitrags:
Von:
Gast37203		 Datum:
17.07.2016 00:13:52		 Views:
1517		 Rating:
     
Antwort:
  Ja
Thema:
VBA WENN dann zeile Löschen

Hy, ich möchte per Makro alle Zeilenlöschen wenn der Inhalt der Spalte N nicht übereinstimmt. Funktioniert mit einer Bedienung ich möchte jetzt aber Zwei bedienungen setzen, das heißt wenn in Spalte N folgendes steht: "UNABLE_TO_LOCATE_ADRESS" oder "UNABLE_TO_ACESS" diese Zeilen sollen nicht gelöschet werden alles andere ja,

hier mein Code:

Dim lngLetzte As Long
Dim lngI As Long
Dim strWert As String
Dim strWert2 As String
    Application.ScreenUpdating = False
    strWert = "UNABLE_TO_ACCESS"
    strWert2 = "UNABLE_TO_LOCATE_ADDRESS"
    With Me
        lngLetzte = .Range("N65536").End(xlUp).Row
        For lngI = lngLetzte To 1 Step -1
            If .Range("N" & lngI).Value <> strWert Or _
               .Range("N" & lngI).Value <> strWert2 Then
                .Rows(lngI).Delete
            End If
        Next lngI
    End With
    Application.ScreenUpdating = True

 Was habe ich Falsch gemacht?

Schönen Abend

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
Rot VBA WENN dann zeile Löschen
 17.07.2016 00:13:52 Gast37203
NotSolved
17.07.2016 07:02:14 Crazy Tom
NotSolved
17.07.2016 12:29:36 Gast51512
NotSolved
17.07.2016 12:34:24 Crazy Tom
NotSolved