AW: Formatierung in nächste Zeile übernehmen
03.05.2007 20:38:32
Erich
Hallo Peter,
meinst du so?
Private Sub Zeile_löschen_Click()
Dim cell As Range, lngAb As Long, lngAnz As Long
SpeedUp True
ActiveSheet.Unprotect Password:="Peter"
If ActiveCell.Row 6 Then
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
lngAb = ActiveCell.Row
lngAnz = Cells(65536, 1).End(xlUp).Row - lngAb + 2
For Each cell In Rows(lngAb - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy 'Destination:=cell.Offset(1, 0).Resize(lngAnz, 1)
MsgBox cell.Offset(1, 0).Resize(lngAnz, 1).Address
cell.Offset(1, 0).Resize(lngAnz, 1).PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Next cell
MsgBox Range(Rows(lngAb), Rows(lngAb + lngAnz - 1)).Address
Rows(lngAb - 1).Copy
Range(Rows(lngAb), Rows(lngAb + lngAnz - 1)).PasteSpecial _
Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
ActiveCell.Select
End If
Else
MsgBox "Sie haben keine Zeile markiert!"
End If
Else
MsgBox "Sie können diese Zeile nicht löschen!"
End If
ActiveSheet.Protect Password:="Peter"
SpeedUp False
End Sub
Was wird damit eigentlich nicht mehr kopiert?
(Ich habe das nicht getestet, würde mich interessieren.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort