Supportnet / Forum / Tabellenkalkulation

Hallo, Ich möchte eine Schaltfläche löschen. Beim Speichen wird ein neues Tabellenblatt angelegt. Hier ist aber auch eine Schaltfläche (Speichen) vorhanden. Diese soll aber auf dem neuen Blatt gelöscht werden. Private Sub Speichern_Click() Dim strName As String strName = ActiveSheet.Range("F3") On Error Resume Next strName = Worksheets(strName).Name If Err > 0 Then ActiveSheet.Copy After:=Worksheets(Worksheets.Count) ActiveSheet.Name = Range("F3") ActiveSheet.UsedRange.Copy ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Else MsgBox "Es gibt schon ein Tabellenblatt " & strName End If Err.Clear On Error GoTo 0 End Sub

Hallo h-peter,

um zu erfahren, welcher Button gelöscht werden soll, so klicke mit der rechten Maustaste auf den Button (so dass er markiert ist) und Du erhältst in dem Namenfeld (wo sonst z.B. A1 weil der Cursor auf A1 steht) die Info - Schaltfläche xx (in meinem Beispiel Schaltfläche 16).
Diese Nr. merkst Du Dir und gibst dann in Deinem Makro die zwei nachstehenden Zeilen ein.

ActiveSheet.Shapes("Button 16").Select
Selection.Delete

In diesem Sinne... have a nice Day... Gruß Helmut

Das ist aber mein Problem, das es so nicht geht. Die Schaltfläche ist im Tabellenblatt Eingabe als "Speichen" bezeichnet. Die selbige Bezeichnung hat sie aber auch im neu gespeicheten Tabellenblatt, das nur zum Ablegen der Daten und nicht zur Berechnung dient. Hier wurde das Makro mit übernommen und gespeichert. ("Allgemein" und "Speichern_Click")

• Makro für Löschen einiger Zellen
• schaltfläche BCC aktivieren
• Schaltfläche im Bericht