Zeile löschen, selbe Zeile in anderem Blatt lösche
23.10.2007 15:56:44
Peter
mit folgendem Code lösche ich (unter anderem) die markierte Zeile (z.B. Zeile 8) im aktiven Tabellenblatt "Cashflow".
Funktioniert wunderbar.
Außerdem soll mit dem Code auch die selbe Zeile, also in diesem Fall Zeile 8 im Tabellenblatt "MwSt" gelöscht werden.
Das funktioniert mit meinem Code soweit, dass Zeile 8 auch im Tabellenblatt "MwSt" gelöscht wird aber außerdem auch noch die nächste Zeile, also Zeile 9.
Es werden also die selbe Zeile wie die markierte Zeile und die nächste Zeile gelöscht, gelöscht werden soll aber nur die selbe Zeile wie die markierte Zeile.
Kann mir bitte jemand helfen?!
mein Code:
Private Sub Zeile_loeschen_Click()
Dim cell As Range, lngAb As Long, lngAnz As Long
SpeedUp True
ActiveSheet.Unprotect Password:="Peter"
If ActiveCell.Row 7 Then
If ActiveCell.Column = 1 And IsDate(ActiveCell) Then 'Zelle in Spalte A aktiviert
If MsgBox("Wollen Sie diese Zeile loeschen?", 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
cell.Offset(1, 0).Resize(lngAnz, 1).PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Next cell
End If
Else
MsgBox "Sie haben keine Zeile markiert!"
End If
Else
MsgBox "Sie können diese Zeile nicht loeschen!"
End If
ActiveSheet.Protect Password:="Peter"
Worksheets("MwSt").Activate
ActiveSheet.Unprotect Password:="Peter"
'selbe Zeile aktivieren wie in Worksheet "Cashflow"
Worksheets("MwSt").Rows(ActiveCell.Row).Delete
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
cell.Offset(1, 0).Resize(lngAnz, 1).PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Next cell
ActiveSheet.Protect Password:="Peter"
Worksheets("Cashflow").Activate
SpeedUp False
End Sub
Danke im Voraus
Grüße aus Berlin