AW: Zellen löschen
20.07.2003 19:57:57
ChrisL
Hi Joerg
Auftragsprogrammierung findet woanders statt. Vielleicht solltest du dir mal überlegen wie Deine Forderungen auf andere wirken.
1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Antwort As String
If Target.Row = 1 Then
Antwort = MsgBox("Zellen wirklich löschen?", vbYesNo + vbQuestion)
If Antwort = vbYes Then
ActiveSheet.Unprotect "joerg"
Range(Cells(4, Target.Column), Cells(8, Target.Column)).ClearContents
ActiveSheet.Protect Password:="joerg", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("C5:J16")
For Each RaZelle In Range(Target.Address)
If Not Intersect(Target, RaBereich) Is Nothing Then ' Zelle ist im Bereich
ActiveSheet.Unprotect "joerg"
Range("C5:J16").Sort Key1:=Range("H5"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="joerg", DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit For
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
2.
Widerspricht deiner ursprünglichen Frage.
Gruss
Chris