Letzte Zeile mit bestimmten Bereichen löschen
21.09.2003 14:32:30
Silvia
ich habe folgenden Code, für den ich bei
der Anpassung Unterstützung benötige:
Sub LetzteZeileLöschen()
Dim A As String
Worksheets("Firmenliste").Activate
Sheets("Firmenliste").Unprotect ("123")
Sheets("Firmenliste").Protect UserInterfaceOnly:=True
A = MsgBox("Wollen Sie die letzte Zeile wirklich löschen?", vbYesNo + vbDefaultButton2)
If A = vbNo Then Exit Sub
Cells(Rows.Count, 1).End (xlUp) `<- hier muß jetzt noch die Range-Anweisung kommen
'für die Zellen B:I und K:L
'anschließend löschen
End Sub
Danke für Eure Mithilfe
Gruß Silvia