Zwei Werte suchen

Sub Loeschen() Dim Rafound As Range With Worksheets("Tabelle3") Set Rafound = .Cells.Find(Variable1, , xlFormulas, _ xlWhole, , xlNext) If Not Rafound Is Nothing Then .Rows(Rafound.Row).Delete End If End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
unten nicht getesteter Code:

Option Explicit
'nach einem treffer aufhören
Public Sub DeleteRow()
Dim ws As Worksheet
Dim rng As Range, c As Range
Dim row_ As Long
Dim Variable1 As String
Variable1 = "was auch immer"
Set ws = ThisWorkbook.Sheets("Tabelle3")
With ws
lROw = .Cells(.Rows.Count, 13).End(xlUp).Row
Set rng = .Range(.Cells(1, 13), .Range(lROw, 13))
Set c = rng.Find(Variable1, xlFormulas, xlWhole, xlNext)
If Not c Is Nothing Then
fa = c.Address
Do
If .Cells(c.Row, 4).Value = vbNullString Then
c.EntireRow.Delete
Else
Set c = rng.FindNext(c)
End If
Loop While Not c Is Nothing And c.Address  fa
End If
End With
End Sub
'Komplettdurchlauf
Public Sub DeleteRows()
Dim ws As Worksheet
Dim rng As Range, c As Range
Dim row_ As Long, fa As String
Dim indizes() As Long, n As Long
Set ws = ThisWorkbook.Sheets("Tabelle3")
With ws
lROw = .Cells(.Rows.Count, 13).End(xlUp).Row
Set rng = .Range(.Cells(1, 13), .Range(lROw, 13))
Set c = rng.Find("Suchwert", xlFormulas, xlWhole, xlNext)
If Not c Is Nothing Then
fa = c.Address
Do
If .Cells(c.Row, 4).Value = vbNullString Then
ReDim Preserve indizes(n)
indizes(n) = c.Row
n = n + 1
End If
Set c = rng.FindNext(c)
Loop While Not c Is Nothing And c.Address  fa
End If
End With
End Sub
Private Sub Execute(ByRef indizes As Variant)
Dim i As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle3")
With ws
For i = UBound(indizes) To LBound(indizes) Step -1
.Cells(i, 1).EntireRow.Delete
Next i
End With
End Sub

Option Explicit Sub Loeschen() Dim raFund As Range, Variable1 As Variant, firstAddress As String With Worksheets("Tabelle3") 'Suchbegriff steht in Zelle A1 Variable1 = .Cells(1, 1).Value Set raFund = .Range("M1:M" & .Cells(.Rows.Count, 13).End(xlUp).Row) _ .Find(Variable1, , xlValues, , xlWhole) If Not raFund Is Nothing Then firstAddress = raFund.Address Do If .Cells(raFund.Row, 4) = "" Then .Rows(raFund.Row).Delete Exit Do End If Set raFund = .Range("M1:M" & .Cells(.Rows.Count, 13).End(xlUp).Row).FindNext(raFund) Loop While Not raFund Is Nothing And raFund.Address firstAddress Else MsgBox "Suchbegriff nicht vorhanden." End If End With Set raFund = Nothing End Sub

Option Explicit Sub Loeschen() Dim raFund As Range, Variable1 As Variant Dim firstAddress As String, boTreffer As Boolean With Worksheets("Tabelle3") 'Suchbegriff steht in Zelle A1 Variable1 = .Cells(1, 1).Value Set raFund = .Range("M1:M" & .Cells(.Rows.Count, 13).End(xlUp).Row) _ .Find(Variable1, , xlValues, , xlWhole) If Not raFund Is Nothing Then firstAddress = raFund.Address Do If .Cells(raFund.Row, 4) = "" Then .Rows(raFund.Row).Delete boTreffer = True Exit Do End If Set raFund = .Range("M1:M" & .Cells(.Rows.Count, 13).End(xlUp).Row).FindNext(raFund) Loop While Not raFund Is Nothing And raFund.Address firstAddress Else MsgBox "Suchbegriff """ & Variable1 & """ ist in Spalte M nicht vorhanden." Exit Sub End If End With If Not boTreffer Then MsgBox "Zum Suchbegriff """ & Variable1 & """ gibt es in Spalte D keine leeren Zellen." End If Set raFund = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwei Werte suchen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread