Office: Schaltfläche in einer Zelle einfügen

Hallo,
ich suche nach einer Möglichkeit eine Schaltfläche durch das Klicken einer Schaltfläche an eine bestimmte Position zu setzen und die nächste Schaltfläche durch erneutes klicken in der Zelle darunter.

Zum ermitteln der ersten leeren Zeile habe ich bereits folgenden Code:

Code:

In die Zelle rechts neben der ausgewählten Zelle soll dann die jeweils neue Schaltfläche kommen, jedoch habe ich das Problem, dass ich diese nicht an die Zelle gebunden bekomme, da der einzige mir bekannte Befehl zum erstellen einer Schaltfläche folgender ist:
Code:

und ich hier scheinbar die genaue Position der Zelle ermitteln muss.
Alternativ könnte ich auch die Position der Zelle ermitteln, jedoch gibt er mir für z.B.
Code:

lediglich $Buchstabe$Zahl aus. Also explizit in meiner Tabelle z.B. $C$15

:)

 

Ich bin zufällig bereits selbst auf eine Lösung gestoßen:

Code:

 

Hallo,

teste mal:

Public Sub InsertButton()
With Cells(Rows.Count, 2).End(xlUp).Offset(1, 1)
Call ActiveSheet.Buttons.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
End Sub

 

Hallo,

Spiel mal etwas mit diesem Code.
Ich denke der hilft dir weiter.

Option Explicit

Sub machs()
Dim LastBlankRow As Long
Dim Zielzelle As Range
Dim neuer_Button As Button
With Worksheets("Tabelle1")
LastBlankRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
Set Zielzelle = .Cells(LastBlankRow, 2).Offset(0, 1)
On Error Resume Next
Buttons("neuer_Button" & Zielzelle.Address(0, 0)).Delete
On Error GoTo 0
Set neuer_Button = .Buttons.Add(0, 0, 0, 0)
With neuer_Button
.Name = "neuer_Button" & Zielzelle.Address(0, 0)
.Top = Zielzelle.Top
.Left = Zielzelle.Left
.Width = Zielzelle.Width
.Height = Zielzelle.Height
End With
End With
End Sub


ransi

 

\@Nepumuk:
Danke *Smilie Dein Code sieht deutlich eleganter aus als meiner.. bis zum "Call" bin ich noch nicht gekommen.. bin noch ein ziemlicher Anfänger, aber ich werde zusehen dass ich mich mal ein wenig damit beschäftige

@Ransi

Dein Code funktioniert leider nicht..

Ab:
Code:

bekomme ich beim debuggen mit F8 den Fehler:

Fehler beim Kompilieren: Sub oder Function nicht definiert


Ich habe aber auch mal eine weitergehende Frage:

Meine Tabelle sieht wie folgt aus:



Meine Idee war zunächst immer unter der Zeile eine Schaltfläche zu platzieren wo die letzte Schaltfläche in der Spalte C ist. Ihr könnt euch vorstellen wie lange ich suchen musste um ein Workaround dafür zu finden, dass die Schaltfläche nun eben doch nur AUF der Zelle und nicht IN der Zelle platziert wird. Also schaut mein Code einfach danach wo das letzte Datum eingetragen wurde und erstellt in der nächsten Zeile die Schaltfläche.

Die Schaltfläche muss ich jetzt noch programmieren.. Die Idee dahinter war es zu jedem Auftrag eine Schaltfläche einzufügen welche mir die Möglichkeit gibt diesen in einem weiterem Sheet einzufügen und abzurechnen.. Jedoch müsste ich hier mit einem Macro ein weiteres Macro programmieren um die jeweiligen Aufträge anzusprechen oder nicht, schließlich soll jede Schaltfläche "erstellen" am Ende zwar die gleiche Funktion erfüllen jedoch für unterschiedliche Sheets mit unterschiedlichen Daten.