Makro aktivieren aber nicht zum Blatt wechseln
19.04.2017 09:34:17
Sothyratnam
ich habe folgendes Makro geschrieben, aber ich möchte nicht das wenn sich das Makro aktiviert zu dem Blatt wechselt.
Zeichne Kreis Makro:
Sub ZeichneKreis()
Dim dblLeft As Double, dblTop As Double, dblDurchmesser As Double
Dim strName As String
Dim obj As Shape
Worksheets("VM_S25").Activate
For Each obj In ActiveSheet.Shapes
If obj.Name = "K_Abstapler" Then
obj.Delete
Exit For
End If
Next
dblLeft = Worksheets("Tabelle_Abstapler").Range("A1")
dblTop = Worksheets("Tabelle_Abstapler").Range("A2")
dblDurchmesser = Worksheets("Tabelle_Abstapler").Range("A3")
strName = Worksheets("Tabelle_Abstapler").Range("A4")
Set myDocument = Worksheets("VM_S25")
Set obj = myDocument.Shapes.AddShape(msoShapeOval, dblLeft, dblTop, dblDurchmesser, dblDurchmesser)
obj.Name = "K_Abstapler"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Cells(Target.Row, Target.Column) "" Then
Call ZeichneKreis
End If
End Sub