Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon h-peter1 vom 13.03.2020, 08:56 Options
Schaltfläche löschen
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
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
Antwort 1 von finger59 vom 13.03.2020, 09:17 Options
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
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
Antwort 2 von h-peter1 vom 13.03.2020, 10:09 Options
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")
Ähnliche Themen
schaltfläche BCC aktivieren
abc 13.01.2007 - 120 Hits - 1 Antwort
Schaltfläche im Bericht
NochEinGast 15.01.2008 - 55 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
