Doppelt eigefügte Schaltfläche

Hallo Liebe Foren-Mitglieder,
nachdem mein erstes Analyse-Tool mit VBA mittlerweile an sich gut läuft, habe ich versucht Schaltflächen einzufügen.
Das funktioniert an sich auch, allerdings kommen wir nun zu meinem Problem:
Wenn ich die Analyse zwei mal für die selbe Auswahl laufen lasse (wieso auch immer der User das sptäer machen sollte, aber ich will die Eventualität trotzdem beachtet haben), fügt folgender Code

Public Sub Buttons() Dim i As Integer Dim NewButton As Object i = Worksheets("Steuerung").Range("D4").Value Set NewButton = Worksheets("Sheet " & i).Buttons.Add(500, 15, 200, 50) ' Sheet i ist eine normale Tabelle NewButton.Caption = "zurück zur Steuerung" NewButton.Font.Bold = True NewButton.OnAction = "Zur_Steuerung.ZurSteuerung" Set NewButton = Worksheets("Blatt " & i).Buttons.Add(500, 15, 200, 50) 'Blatt i ist eine Pivot-Tabelle NewButton.Caption = "zurück zur Steuerung" NewButton.Font.Bold = True NewButton.OnAction = "Zur_Steuerung.ZurSteuerung" End Sub

auf dem normalen Tabellenblatt den Button genauso ein (Größe, Ort, Anzahl), wie er soll, während auf dem Blatt mit der Pivottabelle mit jedem weiteren Durchlauf ein zusätzlicher Button an versetzter Stelle eingefügt wird. (Also beim dritten Durchlauf habe ich drei identische Buttons, beim vierten vier, usw.)
Ich habe auch schon versucht den Aufruf des Moduls Buttons an anderer Stelle im Programm einzusetzen, um etwaige Doppelaufrufe zu vermeiden. Auch habe ich die beiden Buttons schon über getrennte Codes an zwei Stellen getrennt voneinander aufzurufen, alles mit dem gleichen Ergebnis.
Könnt Ihr mir bei meinem Problem weiterhelfen? Habt ihr das schon mal erlebt?
Ich freue mich auf eure Antworten.
Viele Grüße,
Tobias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Buttons() Dim i As Integer Dim NewButton As Object i = Worksheets("Steuerung").Range("D4").Value If fncCheckShape(Worksheets("Sheet " & i), "cmbZurueck") = False Then Set NewButton = Worksheets("Sheet " & i).Buttons.Add(500, 15, 200, 50) ' Sheet i ist eine normale Tabelle NewButton.Name = "cmbZurueck" NewButton.Caption = "zurück zur Steuerung" NewButton.Font.Bold = True NewButton.OnAction = "Zur_Steuerung.ZurSteuerung" End If If fncCheckShape(Worksheets("Blatt " & i), "cmbZurueck") = False Then Set NewButton = Worksheets("Blatt " & i).Buttons.Add(500, 15, 200, 50) 'Blatt i ist eine Pivot-Tabelle NewButton.Name = "cmbZurueck" NewButton.Caption = "zurück zur Steuerung" NewButton.Font.Bold = True NewButton.OnAction = "Zur_Steuerung.ZurSteuerung" End If End Sub Public Function fncCheckShape(wks As Worksheet, strName As String) As Boolean 'Prüft ob Shape mit dem Namen im Tabellenblatt vorhanden Dim objShape As Shape On Error GoTo fehler fncCheckShape = False Set objShape = wks.Shapes(strName) fncCheckShape = True fehler: End Function

Hallo ihr beiden,
Vielen Dank schonmal für eure Hilfe, da habt ihr mir schon ganz gut geholfen (Besonders du, Franz). :)
Um auf deine Frage mit den verschiedenen Positionen einzugehen, Franz:
Ich habe nicht Hauch einer Ahnung, wieso es mir den Button schrittweise mit jedem Durchlauf nach links verschiebt (Dank dir, aber wenigstens mittlerweile nur noch einen einzelnen Button ^^). Die Größe und Position der Schaltfläche sind an sich ja eindeutig in
[Set NewButton = Worksheets("Blatt " & i).Buttons.Add(500, 15, 200, 50)]
festgelegt. Sehr seltsam das Ganze.
Später werde ich noch auf einem anderen Rechner arbeiten, vielleicht ist auch bei dem, auf dem ich gerade unterwegs bin, irgendwas im Argen.
Wenn sich das Problem damit gelöst hat, schreibe ich das natürlich hier rein.
Viele Grüße,
Tobias

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread