20.04.2017, 18:16
Hallo VBA- Freunde,
in einer passwortgeschützten Tabelle füge ich mit dem folgenden Code in eine Zelle einen Buchstaben und das Datum + Zeit daneben ein.
Das geht auch alles.
Mich stört nur am Ende die Meldung:
Die Zellen oder das Diagramm befinden sich .....
Ich dachte, mit Application.DisplayAlerts = False wäre die Meldung weg.
Ist aber nicht so.
Wo liegt mein Gedankenfehler, oder wie muss ich den Code abändern um die Meldung zu unterdrücken.
Vielen Dank für eure Überlegungen
Heinz
in einer passwortgeschützten Tabelle füge ich mit dem folgenden Code in eine Zelle einen Buchstaben und das Datum + Zeit daneben ein.
Das geht auch alles.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
Application.DisplayAlerts = False
Application.EnableEvents = False
If Not Intersect(Target, Range("K5:K17,N5:N17, O29:O44")) Is Nothing Then
Target.Value = Cells(Target.Row, Target.Column - 1).Value
If Target.Row < 18 Then
Cells(Target.Row, Target.Column + 1).Value = Date + Time
End If
If Target.Row > 28 Then
QNT = Cells(Target.Row, 3).Value
Range("D25").Value = QNT
DatenHolen
Range("D25").Select
End If
End If
Application.DisplayAlerts = True
Application.EnableEvents = True
ActiveSheet.Protect
End SubMich stört nur am Ende die Meldung:
Die Zellen oder das Diagramm befinden sich .....
Ich dachte, mit Application.DisplayAlerts = False wäre die Meldung weg.
Ist aber nicht so.
Wo liegt mein Gedankenfehler, oder wie muss ich den Code abändern um die Meldung zu unterdrücken.
Vielen Dank für eure Überlegungen
Heinz