folgendes Macro löscht alle Zeilen in Tabelle1, in denen in Spalte "Ort" der Name "Berlin" nicht vorkommt:
Sub DeleteRows()
Dim rngAll As Range, rngCriteria As Range
Application.ScreenUpdating = False
Set rngAll = Range("C1").CurrentRegion
rngAll.Name = "'" & ActiveSheet.Name & "'!Datenbank"
Set rngCriteria = rngAll.Resize(2, 1).Offset _
(0, rngAll.Columns.Count + 1)
With rngCriteria
.Name = "'" & ActiveSheet.Name & _
"'!Suchkriterien"
.Cells(1, 1).Value = "Ort"
.Cells(2, 1).Formula = "'<>Berlin"
ExecuteExcel4Macro "DATA.DELETE()"
.Clear
End With
Application.ScreenUpdating = True
End Sub
------------------------------------------------
Nun möchte ich aber, dass die gelöschten Zeilen in Tabelle 2 geschrieben werden. Wer kann helfen?
Danke
Heinz