Zeile löschen wenn nicht leer
21.12.2015 22:14:58
Olga
habe ein Problem mit dem löschen einer Zeile.
Die Zeile soll gelöscht werden wenn ein Zelle in Spalte "B" ausgewählt wird und
die Zeilen "B - F" nicht leer sind. In Zeile G steht eine Formel.
Wie muß ich mein Makro abändern, der erste Teil funktioniert.
Danke und noch einen schönen Abend.
Gruß, Olga
Sub Zeile_löschen()
Dim Zelle As Range, ii As Long, loEnde As Long, rng As Range
For ii = 17 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(ii, 6) = "Total" Then
loEnde = ii - 2
Exit For
End If
Next ii
If ActiveCell.Row loEnde Or ActiveCell.Column 2 Then
MsgBox "Bitte Zeile in Spalte Position auswählen" '(hier Spalte "B")
End If
If ActiveCell(rng.Offset(0, 0), Cells(0, 5)) "" Then
MsgBox "nein"
Else
ActiveCell.EntireRow.Delete
End If
End Sub