nach Zeilen kopieren, löschen und nach oben
16.07.2017 08:23:11
Gisela
ich übernehme mit einem Makro Zeilen eines TB (1), wenn in Spalte AN bestimmter Inhalt vorhanden ist, auf ein anderes TB(2). Das funktioniert.
Was muss aber geändert werden, damit im TB 1 die übernommenen Zeilen gelöscht werden und die anderen Zeilen nach oben aufrücken. Kann mir da bitte jemand helfen.
Hier ist der Code, den ich aus dem Forum habe:
Sub zeilenausgeschieden()
Application.ScreenUpdating = False
Worksheets("teilnehmer").Select
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row 'oder alternativ
If Range("AN" & i) = "beendet" Then
Rows(i & ":" & i).Select
Selection.Copy
Worksheets("ausgeschiedene").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial
Worksheets("teilnehmer").Select
End If
Next i
Worksheets("ausgeschiedene").Select
Call spaltenformat
Sheets("teilnehmer").Select
Range("B1").Select
Application.ScreenUpdating = True
End Sub
Vielen Dank für jede Hilfe
Grüße und noch einen schönen Sonntag
Gisela
Anzeige