|
mein Problem ist glaube ich einfach, dass hier die ganzen Zelen gelöscht werden, nach dem ersten durchlaufen steht dann 0 Bo_ Ungarn Europa
If InStr(MeL, .Cells(1, j)) = 0 Then
.Cells(i + 1, j).Delete xlToLeft
End If
soweit so gut. Dannach kommt folgendes:
If InStr(SyL, .Cells(1, j)) = 0 Then
.Cells(i, j).Delete xlToLeft
End If
und hier wird die ganze Spalte von oben nach unten gelöscht und nicht nur ddie Zelle der Zeile.
Das führt zum fehler.
Des weiteren will mir die Zeile
.Rows(i + 1).Insert xlDown
beim zweiten Durchlauf nicht nach unten kopieren und die unteren Zeilen aufschieben.
|