Zeilen incl. nächster Leerzeile löschen
24.05.2004 18:35:13
Pit
ich hab mal wieder Probleme, die ich trotz meiner Recherchen nicht in den Griff kriege.
Das beigefügte Bild zeigt als Beispiel den Aufbau einer Tabelle. Nun möchte ich per VBA mit Doppelklick in die Zelle eines Hauptpunktes den ganzen Punkt löschen.
z.B. Hauptpunkt 1 (Zelle C11), zu löschende Zeilen 11,12,13
Hauptpunkt 2 (Zelle C14), zu löschende Zeilen 14,15,...,18
Die Punkte sind immer so aufgebaut, dass sie mit einer Leerzeile abschliessen.
z.B.: Hauptpunkt 2
Ausgehend vom Doppelklick in C14 (ActiveCell) sollen die variablen Zeilen des Punktes (hier 14- einschliesslich 18) ermittelt, markiert und gelöscht werden.
Die auskommentierten Zeilen waren mein erster Fehlversuch ;-) und irgendwie steh ich total auf dem Schlauch ...
Kann mir hier jemand auf die Sprünge helfen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
'Hauptpunkt löschen
If ActiveCell.Column = 3 And ActiveCell <> Leer Then
'i = ActiveCell.SpecialCells(xlCellTypeBlanks).Row
'Rows(ActiveCell & ":" & i).Delete
Range(ActiveCell & ActiveSheet.Cells(Rows.Count, 1) _
.End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Else
'Unterpunkt löschen
If ActiveCell.Column = 4 And ActiveCell <> Leer Then
Rows(ActiveCell.Row).Delete
End If
End If
End Sub
Vielen Dank im Voraus
Pit