Sub Worksheet..Before Dou Blattschutz..
26.10.2021 21:04:53
roger
Dieses Makro funktioniert einwandfrei. Ein Problem besteht noch mein Blatt ist schreibgeschützt und wenn ich nun zb. auf das Feld "$J$17:$L$17" klicke dann durchläuft es das Makro EINZAHLUNG_PDF_erstellen_und_Übertragen_auf_Einzahlung. Da aber mein Worksheet Blattschutz hat kommt nach dem Makro der Hinweis das, dass Blatt im Modus Blattschutz ist usw.
Ich möchte gerne diesen Hinweis unterdrücken mit folgendem ActiveSheet.Application.DisplayAlerts = False
Doch bis jetzt habe ich es nicht geschafft.
Hat mir jemand einen Rat?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$J$17:$L$17" Then
EINZAHLUNG_PDF_erstellen_und_Übertragen_auf_Einzahlung
ElseIf Target.Address = "$W$13:$Z$13" Then
GUTSCHEIN_PDF_erstellen_und_Übertragen_auf_Gutschein
Gruess Roger