Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub DoppelteRaus()
   Dim wksA As Worksheet, wksB As Worksheet
   Dim rng As Range
   Dim iRow As Integer
   Set wksA = Worksheets("Tabelle1")
   Set wksB = Worksheets("Tabelle2")
   iRow = 1
   Do Until IsEmpty(wksA.Cells(iRow, 1))
      Set rng = wksB.Columns(1).Find(wksA.Cells(iRow, 1))
      If Not rng Is Nothing Then
         wksA.Rows(iRow).Delete
         wksB.Rows(rng.Row).Delete
      End If
      iRow = iRow + 1
   Loop
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich