Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Script wiederholen bis Wert nicht mehr gefunden

Script wiederholen bis Wert nicht mehr gefunden
Alex
Hallo Zusammen,
ich hab hier einen kleines Script, welches einen bestimmten Bereich nach dem Wert "255" durchsucht und die gesamte Zeile dann löscht.
Da es aber mehrmals den Wert "255" geben kann, soll dieser Code wiederholt werden, bis alle Zeilen mit "255" gelöscht sind.
Wie macht man das.?
Gruß Alex

Columns("G:I").Select
Selection.Find(what:="255", After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("G117").Select
Selection.EntireRow.Delete shift:=xlShiftUp

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Script wiederholen bis Wert nicht mehr gefunden
26.11.2010 16:02:40
Thomas
Hallo Alex,
dafür gibt es die Do..Loop Anweisung.
Schau mal unter Hilfe in VBA.
Wenn du damit nicht klar kommst, dann melde dich noch mal.
Gruß
Thomas
AW: Script wiederholen bis Wert nicht mehr gefunden
26.11.2010 22:14:28
Peter
Hallo Alex,
versuch es so:
Option Explicit
Public Sub Find_Methode()
Dim rZelle   As Range
Dim sFundst  As String
Dim rLoesch  As Range
    With ThisWorkbook.Worksheets("Tabelle1").Columns("G:I")
       Set rZelle = .Find(what:="255", LookIn:=xlFormulas, _
          LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False)
       If Not rZelle Is Nothing Then
          sFundst = rZelle.Address
          Do
             If rLoesch Is Nothing Then
                Set rLoesch = Rows(rZelle.Row)
              Else
                Set rLoesch = Union(rLoesch, Rows(rZelle.Row))
             End If
             Set rZelle = .FindNext(rZelle)
          Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst
        Else
          MsgBox "Der Begriff  ""255""  wurde nicht gefunden.", _
             48, "   Hinweis für " & Application.UserName
      End If
   End With
   If Not rLoesch Is Nothing Then rLoesch.Delete Shift:=xlUp
   Set rLoesch = Nothing
End Sub
Gruß Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige