Ich bin Anfänger....
ich habe ich Tab!1A1 die Zahl 10
In Tab2 steht diese irgendwo unter A:A, nun soll die ganze Zeile
in Tab2 gelöscht werden wo der wert 10 steht geht das????
Gruß Peter
Ich bin Anfänger....
ich habe ich Tab!1A1 die Zahl 10
In Tab2 steht diese irgendwo unter A:A, nun soll die ganze Zeile
in Tab2 gelöscht werden wo der wert 10 steht geht das????
Gruß Peter
ich komm hier nicht ganz weiter:
Sub DeleteIfG()
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ActiveSheet
Set ws2 = Worksheets("Tabelle2")
iRowL = Cells(ws2.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match(ws1.Cells = ("A1"), ws2.Rows(iRow), 0)
If Not IsError(var) Then
ws2.Rows(iRow).Delete
End If
Next iRow
End Sub
Gruß Peter
ein wenig schneller geht es mit Find
Gruß Hajo
vielen DANK, das hilft mir sehr viel weiter.
Gruß Peter