Tabellenblattname aus Doppelklickaktion
Chandrika
Hallo,
Ich habe dieses Makro direkt im Tabellenblatt:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Blatt = ActiveSheet.Name
Application.ScreenUpdating = False
If Target.Column = 12 Then
Cancel = True
ActiveCell.Copy
Sheets("Divisor").Range("C3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Divisor").Select
'Range("D8").Select
Range("C3").ClearContents
Range("D8").ClearContents
Range("E11:E500").ClearContents
End If
Application.ScreenUpdating = True
End Sub
Ich kann nicht den Tabellenblattnamen auslesen, das Makro bleibt immer an der Stelle stehen: Blatt = ActiveSheet.Name
Kann mir da bitte jemand helfen?
Vielen Dank
Larissa