VBA Zeile löschen, Formeln übernehmen
26.04.2007 11:26:52
Peter aus Berlin
Hallo,
ich habe folgendes Problem.
Über ein Commandbutton soll folgendes Makro ablaufen.
Der Code bleibt aber bei 'cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1) hängen.
Keine Ahnung warum.
Kann mir jemand helfen?
Private Sub Zeile_löschen_Click()
Dim cell As Range
Dim a As Long
SpeedUp (True)
ActiveSheet.Unprotect Password:="Peter"
If ActiveCell.Column = 1 And IsDate(ActiveCell) Then 'Zelle in Spalte A aktiviert
If MsgBox("Wollen Sie diese Zeile löschen?", vbOKCancel + _
vbQuestion, "Achtung!") = 1 Then
ActiveCell.EntireRow.Delete
a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
Next
End If
Else
MsgBox "Sie haben keine Zeile markiert!"
End If
ActiveSheet.Protect Password:="Peter"
SpeedUp (False)
End Sub
ganze Datei: https://www.herber.de/bbs/user/42037.xls
Danke im Voraus
Grüße aus Berlin