Clever-Excel-Forum

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?

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! Angry

sharky51

sharky51