Thema Datum  Von Nutzer Rating
Antwort
19.04.2017 10:49:02 Dlyrrk
NotSolved
Blau Fehlermeldung FindNext
 19.04.2017 11:28:38 Gast51415
NotSolved

Ansicht des Beitrags:
Von:
Gast51415		 Datum:
19.04.2017 11:28:38		 Views:
581		 Rating:
     
Antwort:
  Ja
Thema:
Fehlermeldung FindNext

Hallo,

wenn Du über rng.EntireRow.Delete löscht terminierst Du auch Dein Range-Objekt 'rng', Du mußt nach der Beenden der Schleife löschen...

Option Explicit

Sub Selectloeschen()
 
'Funktionierendes Makro, welches die unerwünschten zeilen mit select löscht
 
Dim rng As Range                                                    ' variablen definition
Dim loDeinWert As String
Dim sFirstadress As String
Dim objUnion As Range
 
loDeinWert = "select"                                                ' gesuchtes Wort
 
Set rng = Worksheets("Tabelle2").Range("A1:A14924").Find(What:=loDeinWert, _
   LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)     ' Range eingabe
 
If rng Is Nothing Then
  MsgBox "Wort " & loDeinWert & " nicht gefunden!"                  ' Falls es nicht gefunden wird
Else
  sFirstadress = rng.Address                                        ' Range Addressierung
  Do
    If objUnion Is Nothing Then
      Set objUnion = rng
    Else
      Set objUnion = Union(objUnion, rng)
    End If
    Set rng = Worksheets("Tabelle2").Range("A1:A14924").FindNext(rng)
  Loop While Not rng Is Nothing And rng.Address <> sFirstadress     ' Nichtgleich
End If
  Call objUnion.EntireRow.Delete '// Erst nach Beenden der Schleife der Löschvorgang...
End Sub

Als Tipp: es ist sinnvoll, die Std.Parameter der Find-Methode immer explicit anzugeben, da sie über die manuelle Excel-Suche verstellt werden können, und dann von der VBA-Find-Methode übernommen werden...

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
19.04.2017 10:49:02 Dlyrrk
NotSolved
Blau Fehlermeldung FindNext
 19.04.2017 11:28:38 Gast51415
NotSolved