Workbook_BeforeClose
03.05.2019 10:50:59
Manuel
ich habe ein Problem mit Workbook_BeforeClose. Habe in "DieseArbeitsmappe" folgende Codes eingefügt. Str v funktioniert auch einwandfrei. Wenn ich die Mappe schließe, zeitgleich noch durch eine andere Arbeitsmappe Excel offen ist und ich wieder Str v anwende, öffnet sich die geschlossene Mappe wo der Code abgefragt wird. Langsam verzweifle ich, wo ist mein Fehler? Ich weiß nicht ob das was bringt, aber die Mappe in der sich der Code befindet liegt in in einem Gruppenlaufwerk.
Private Sub Workbook_Open()
'strg v nur Werte einfügen
Application.OnKey "^v", "Werte_einfügen"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^v"
End Sub
Private Sub Werte_einfügen()
'Application.OnKey "^v", "Werte_einfügen"
If ActiveSheet.Name = ("Liste Han") Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Else
Selection.PasteSpecial
End If
End Sub
Anzeige