Buttons "variabel" hinzufügen

Private Sub AddSubSupplier_Click() Dim letzteZeile As Long Dim NewButton As Object With Tabelle1 'Letzte Zeile bestimmen und gibt an, nach wieviel Zellen die nächste Tabelle anfangen soll letzteZeile = .Range("S1048576").End(xlUp).Row + 7 'Kopiert den Bereich der hier bestimmt wird .Range("S5:V9").Copy .Range("S" & letzteZeile).PasteSpecial Application.CutCopyMode = False ' Hier wird bestimmt der wievielte Sub Supplier eingefügt wird ' muss noch richtig berechnet werden! .Range("S" & letzteZeile) = "Sub-Supplier " & (letzteZeile - 2) .Range("S" & letzteZeile).Select End With ' HIER LIEGT DAS PROBLEM; PROGRAMM FÜGT BUTTONS EIN ABER NICHT NEBEN DIE EINGEFÜGTEN ZELLEN VON _ _ OBEN, IST SOMIT NOCH NICHT DYNAMISCH --> Set NewButton = Tabelle1.Buttons.Add(150, 1, 40, 20) NewButton.Caption = "" NewButton.Height = 50 ' BUTTONS SOLLEN IN SPALTE V EINGEFÜGT WERDEN;KLAPPT ABER SO NICHT ! :( NewButton.Left = Range("V" & letzteZeile) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Nati,

NewButton.Left = Range("V" & letzteZeile).Left

Wobei ich kein Freund der tausend Objekte bin. Du blähst Deine Mappe unnötig auf und wenn die Zeile gelöscht wird, bleibt der Button ja trotzdem bestehen. Oder hast Du das irgendwo geregelt?
Ich händle das immer so: Ein einziger Button. Beim Selection_Change Ereignis wird dessen Top _ Eigenschaft auf den Wert der aktiven Zelle gesetzt. In Deinem Fall , das


Set NewButton = blablabla...

rausschmeißen und im Selection_Change einfach nur ein


Button1.Top =  Target.Top

(oder wie Dein Button auch immer heißen mag) einfügen.
Noch eine kleine Fehlerbehandlung einbauen (falls Mehrfachauswahl erfolgt). Da genügt ein


On Error resume next

am Anfang und ein



err.clear

am Ende.

Hallo Ralf,
danke dir, die Buttons haben folgenden Sinn: ein User kann damit einen "Baum" kreieren, und zwar wenn er auf zwei Buttons klickt, führt eine darauffolgende Methode aus, dass diese Buttons durch einen Strich verbunden werden. Bei deinem Code: NewButton.Left = Range("V" & letzteZeile) wird der Button oben eingefügt (siehe Gelbe Markierung( statt ganz unten (jedes mal beim hinzufügen eines Sub Suppliers, der andere Button habe ich manuell eingefügt); vielleicht gibt es da aber eine einfachere Lösung.
Userbild

Ziel ist es jeden Sub Supplier mit einem Strich verbinden zu können.(Diesen Code habe ich auch bereits, der mit zwei Punkte berechnet und diese dann verbindet - die Koordinaten werden je nach Klick auf zwei Buttons generiert; läuft auch super:

Sub connection_zeichnen()
Dim nameGeklickteSchaltfläche As String
Dim nameVerknüfungSchaltfläche As String
'--> Hier stehen die Werte von den beiden geklickten Buttons
nameGeklickteSchaltfläche = Worksheets("Hilfstabelle").Range("B5").Value
nameVerknüfungSchaltfläche = Worksheets("Hilfstabelle").Range("C5").Value
Worksheets("Tabelle1").Shapes.AddConnector(msoConnectorStraight, 0, 0, 0, 0).Select
Selection.ShapeRange.ConnectorFormat.EndConnect Worksheets("Tabelle1").Shapes( _
nameGeklickteSchaltfläche) _
, 2
Selection.ShapeRange.ConnectorFormat.BeginConnect Worksheets("Tabelle1").Shapes( _
nameVerknüfungSchaltfläche), 4
Worksheets("Tabelle1").Shapes(nameGeklickteSchaltfläche).Visible = False
Worksheets("Tabelle1").Shapes(nameVerknüfungSchaltfläche).Visible = False
'lösche Inhalt
Worksheets("Hilfstabelle").Range("B4").Value = ""
Worksheets("Hilfstabelle").Range("B5").Value = ""
Worksheets("Hilfstabelle").Range("C4").Value = ""
Worksheets("Hilfstabelle").Range("C5").Value = ""
End Sub

Gruß, Nati

Sub connection_zeichnen() Dim nameGeklickteSchaltfläche As String Dim nameVerknüfungSchaltfläche As String nameGeklickteSchaltfläche = Worksheets("Hilfstabelle").Range("B5").Value nameVerknüfungSchaltfläche = Worksheets("Hilfstabelle").Range("C5").Value Worksheets("Tabelle1").Shapes.AddConnector(msoConnectorStraight, 0, 0, 0, 0).Select Selection.ShapeRange.ConnectorFormat.EndConnect Worksheets("Tabelle1").Shapes( _ nameGeklickteSchaltfläche) _ , 2 Selection.ShapeRange.ConnectorFormat.BeginConnect Worksheets("Tabelle1").Shapes( _ nameVerknüfungSchaltfläche), 4 Worksheets("Tabelle1").Shapes(nameGeklickteSchaltfläche).Visible = False Worksheets("Tabelle1").Shapes(nameVerknüfungSchaltfläche).Visible = False 'lösche Inhalt Worksheets("Hilfstabelle").Range("B4").Value = "" Worksheets("Hilfstabelle").Range("B5").Value = "" Worksheets("Hilfstabelle").Range("C4").Value = "" Worksheets("Hilfstabelle").Range("C5").Value = "" End Sub

Private Sub AddSubSupplier_Click() Dim letzteZeile As Long Dim NewButton As Object With Tabelle1 'Letzte Zeile bestimmen und gibt an, nach wieviel Zellen die nächste Tabelle anfangen soll letzteZeile = .Range("S1048576").End(xlUp).Row + 7 'Kopiert den Bereich der hier bestimmt wird .Range("S5:V9").Copy .Range("S" & letzteZeile).PasteSpecial Application.CutCopyMode = False ' Hier wird bestimmt der wievielte Sub Supplier eingefügt wird ' muss noch richtig berechnet werden! .Range("S" & letzteZeile) = "Sub-Supplier " & (letzteZeile - 2) .Range("S" & letzteZeile).Select End With ' HIER LIEGT DAS PROBLEM; PROGRAMM FÜGT BUTTONS EIN ABER NICHT NEBEN DIE EINGEFÜGTEN ZELLEN VON _ _ _ OBEN, IST SOMIT NOCH NICHT DYNAMISCH Set NewButton = Tabelle1.Buttons.Add(1, 1, 40, 50) '40 = Breite, 50 = Höhe NewButton.Caption = "" NewButton.Left = Range("V" & letzteZeile).Left NewButton.Top = Range("V" & letzteZeile).Top End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Buttons "variabel" hinzufügen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread