|
Hallo Werner,
danke für deine Antwort.
Mein Fehler, es steht tatsächlich auch in TerminListe einen gleiche Anweisung:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name = "TerminListe" And ActiveCell.Value = "PersNR" And ActiveCell.Row = 1 Then
Sort_by_PersNR_und_Beginn Target
End If
If ActiveSheet.Name = "TerminListe" And ActiveCell.Value = "Name" And ActiveCell.Row = 1 Then
Sort_by_Name_und_Beginn Target
'xx Target
End If
If ActiveSheet.Name = "TerminListe" And ActiveCell.Value = "Grund" And ActiveCell.Row = 1 Then
Sort_by_Grund_und_PersNR Target
End If
If Target.Column = 1 Then
If Target.Row > 1 Then
If Not Target.Value = "" Then
Rows(Target.Row).Delete
End If
End Sub
In welcher Form soll ich deinen Code hier einbinden?
Danke & Gruss,
Karl
|