VBA Zeile löschen, Formeln übernehmen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ich habe das Problem erkannt.
Wenn ich die letzte ausgefüllte Zeile in der Tabelle lösche ist es unsinnig dann wieder Formeln in diese zu kopieren.
Ich habe versucht eine Abfrage einzubauen die kontrolliert ob unter der markierten Zeile eine leere Zeile ist oder nicht. Der Code funktioniert aber nicht. Wie ist es richtig?


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
If MsgBox("Wollen Sie diese Zeile löschen?", vbOKCancel + _
vbQuestion, "Achtung!") = 1 Then
ActiveCell.EntireRow.Delete
If ActiveCell.Row - 1 <> "" Then 'Abfrage ob unter aktiver Zeile eine leere Zeile  _
ist
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
End If
Else
MsgBox "Sie haben keine Zeile markiert!"
End If
ActiveSheet.Protect Password:="Peter"
SpeedUp (False)
End Sub

Danke im Voraus
Grüße aus Berlin

Hallo Gerd,
es gibt drei Möglichkeiten wo in der Tabelle Zeilen gelöscht werden können.
1. am oberen Ende der Tabelle
2. in der Tabelle
3. am unteren Ende der Tabelle
Die Formeln Saldieren in jeder Zeile den Bestand aus der darüberliegenden Zeile und der aktuellen Zeile. Wenn also in der Tabelle eine Zeile gelöscht wird stimmen die Bezüge der darunterliegenden Zeilen nicht mehr. Mein Code bleibt hängen, wenn man die letzte Zeile am unteren Ende der Tabelle entfernt.
Ich habe versucht durch eine Abfrage das "herunterziehen" der Formeln nur dann zu erlauben, wenn es unter der zu löschenden Zeile noch eine Zeile gibt. Der Code bleib aber auch hängen.
Für das löschen der ersten Zeile müßte man auch noch eine Abfrage einbauen oder ein löschen der ersten Zeile einfach nicht erlauben, das geht auch.
Kannst du mir dabei helfen?
aktuelle Datei: https://www.herber.de/bbs/user/42079.xls
Danke im Voraus
Grüße aus Berlin

Beliebteste Forumthreads (12 Monate)

VBA Zeile löschen, Formeln übernehmen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zeile löschen, Formeln übernehmen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread