Hallo,
wenn ich in Spalte 1 ein oder mehrere "X" setze, sollen die kompletten Zelleninhalte der ausgewählten Zeile(n) gelöscht werden. Dabei entsteht natürlich eine oder mehrere lücken.
d.h. die restlichen Zeilen sollen wieder zusammenrücken.
Habe einen Code der die ganze Zeile löscht, das soll aber nicht sein, denn die Zeilen enthalten Formeln die mit einer anderen Tabelle verknüpft sind.
Hier ist mein aktueller Code.
Sub Zeilenlösch()
Application.ScreenUpdating = False
Dim I As Integer
For I = 1 To 300
If ActiveSheet.Cells(I, 1).Value = "X" Then
ActiveSheet.Cells(I, 1).Activate
Rows(I).Select
Selection.Delete Shift:=xlUp
End If
Next I
Application.ScreenUpdating = True
End Sub
Bitte um Hilfe.
Danke
|