Excel vba Positionierung von Shapes

[sharky51]

Hallo zusammen,

hab mal wieder eine Frage an Euch und hoffe auf Eure Hilfe.

Ich möchte in eine frei wählbare Zelle in einer bestimmten Spalte, sagen wir Spalte "C" per vba ein Shape einfügen.
Es soll aber nur in dieser Spalte "C" möglich sein d.h. in allen anderen Zellen in anderen Spalten darf dies nicht möglich sein.

Könnt Ihr mir da bitte mal auf die Sprünge helfen wie das geht?

[sharky51]

Hab selbst ne Lösung gebastelt:

Code:

Sub BereichOK()
Dim MeinBereich As Range

  Set MeinBereich = Range("C3:C200")

  If Intersect(ActiveCell, MeinBereich ) Is Nothing Then
    MsgBox "Die aktive Zelle befindet sich nicht im erlaubten Bereich " & _
    MeinBereich .Address(False, False)
  End If
End Sub

Sorry, demnächst wird länger nachgedacht!