Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel vba Positionierung von Shapes
#1
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?
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antwortento top
#2
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
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste