|
Nachtrag:
Hallo Werner,
ich habs hibnbekommen samt kleiner Anpassung bzgl. der Zelle wo das löschen dann aktiv ist.
Vielen herzlichen Dank für deine Unterstützung!!
______________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Sortierung in Terminliste mittels Doppelklick
If ActiveSheet.Name = "TerminListe" And ActiveCell.Value = "PersNR" And ActiveCell.Row = 1 Then
Sort_by_PersNR_und_Beginn Target
End If
'Sortierung in Terminliste mittels Doppelklick
If ActiveSheet.Name = "TerminListe" And ActiveCell.Value = "Name" And ActiveCell.Row = 1 Then
Sort_by_Name_und_Beginn Target
'xx Target
End If
'Sortierung in Terminliste mittels Doppelklick
If ActiveSheet.Name = "TerminListe" And ActiveCell.Value = "Grund" And ActiveCell.Row = 1 Then
Sort_by_Grund_und_PersNR Target
End If
'Löschen in Terminliste den Zeileneintrag
Cancel = True
If Target.Column = 7 Then
If Target.Row > 1 Then
If Not Target.Value = "" Then
Rows(Target.Row).Delete
End If
End If
End If
End Sub
___________________________
Gruss, Karl
|