---

Excel.png

Hallo zusammen,

ich hätte nochmals eine Frage bezüglich Makros.

Im Anhang ist ein Vortestdatenblatt zu sehen. Mit dem Button auf der rechten Seite kann man eine Grafik einfügen.

Diese wird dann für den ersten Button in B3 eingefügt.

Zuletzt habe ich damals immer neue Makros gemacht, in dem ich die Positionen der Zellen neu eingetippt habe.

Frage hierbei wäre, ob es möglich ist, ein dynamisches Makro zu erstellen, das die Position der einzufügenden Bilder immer auf die Position des Buttons (Spalte|Zeile) - x Spalten bezieht.

------------------
Grüße Tobias Holzmann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ein Beispiel wie du an die Zeile / Spalte der Zelle kommst in welcher die linke obere Ecke des Buttons liegt:

Code:

---

Public Sub Klick()

    Dim objShape As Shape
    Dim objCell As Range

    Set objShape = Tabelle1.Shapes(Application.Caller) 'Tabellenname anpassen (Objektname)
    Set objCell = objShape.TopLeftCell

    MsgBox objCell.Row
    MsgBox objCell.Column
   
    Set objCell = Nothing
    Set objShape = Nothing

End Sub

---

Ausgehend von diesen Koordinaten kannst du ja die Position des Bildes ganz einfach berechnen.

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nepumuk,

danke für deine Antwort.
Ich werde mir das gleich mal anschauen.

Danke

------------------
Grüße Tobias Holzmann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

mit diesen zwei Variablen:

Code:

---

objCell.Row
objCell.Column

---

habe ich ja jetzt die Position meines Buttons.
Leider schaffe ich es jetzt nicht eine Zelle zu selektieren.

Über Select.Range("A3"); kann ich ja eine Zelle auswählen. Allerdings ist mir aufgefallen, dass ich dort keine Dynamik reinbringe:

Code:

---

Select.Range("objCell.Row;objCell.Column")

---

Das dies nicht funktioniert ist mir bewusst. Allerdings sollte ich doch so in dieser Richtung zu meinem Ziel gelangen oder?

Grüße Tobi

------------------
Grüße Tobias Holzmann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
probier's mal mit Cells(i,j) anstelle von Range?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

mal ein Beispiel für 3 Spalten links vom Button:

Code:

---

Public Sub Klick()

    Dim objShape As Shape

    Set objShape = Tabelle1.Shapes(Application.Caller)
    Call objShape.TopLeftCell.Offset(0, -3).Select

    Set objShape = Nothing

End Sub

---

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP