Schaltfläche löschen

Forumthread: Schaltfläche löschen

steffen

Hallo,
kann ich eine aus der Formularsysmbolleiste aufgelegte Schaltfläche, der ein Makro zugeordnet ist, auch mittels VBA zum Ende des Codes löschen?
Gruß
Steffen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Schaltfläche löschen

Ptonka
Danke

steffen
AW: Schaltfläche löschen

Rudi

AW: Schaltfläche löschen

14.07.2009 12:10:12

Ptonka

Hallo Steffen,
so sollte es funzen:

Sub Schaltfläche5_BeiKlick()
MsgBox "Hallo"
ActiveSheet.Shapes("Button 5").Visible = False
End Sub

Wobei "Button 5" der exakte Name der Schaltfläche ist.
Gruß,
Ptonka

Danke

14.07.2009 14:46:05

steffen

Supi,
das isses
Gruß
Steffen

AW: Schaltfläche löschen

14.07.2009 12:26:22

Rudi

Hallo,

Sub Schaltfläche1_BeiKlick()
ActiveSheet.Shapes(Application.Caller).Delete
End Sub

Gruß
Rudi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Schaltfläche in Excel zu löschen, kannst du VBA (Visual Basic for Applications) verwenden. Hier sind die Schritte, um dies zu erreichen:

Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeinWorkbookName)" und wähle "Einfügen" > "Modul".
Gib den VBA-Code ein: Kopiere und füge den folgenden Code in das Modul ein:
```
Sub SchaltflächeLöschen()
    ActiveSheet.Shapes("Button 1").Delete
End Sub
```
Ersetze "Button 1" mit dem exakten Namen der Schaltfläche, die du löschen möchtest.
Führe das Makro aus: Drücke F5 oder wähle im Menü "Ausführen" > "Sub/UserForm ausführen", um das Makro zu starten.

Häufige Fehler und Lösungen

Fehler: "Objekt nicht gefunden": Stelle sicher, dass der Name der Schaltfläche korrekt ist. Du kannst den Namen in den Eigenschaften der Schaltfläche überprüfen.
Schaltfläche wird nicht gelöscht: Überprüfe, ob die Schaltfläche auf dem aktiven Blatt vorhanden ist. Wenn du mehrere Blätter hast, stelle sicher, dass das richtige Blatt aktiv ist.
VBA-Fehler beim Ausführen: Achte darauf, dass du das Makro in einer Datei mit aktivierten Makros ausführst (z.B. .xlsm).

Alternative Methoden

Wenn du die Schaltfläche manuell entfernen möchtest, kannst du das auch ohne VBA tun:

Rechtsklick auf die Schaltfläche: Klicke mit der rechten Maustaste auf die Schaltfläche, die du entfernen möchtest.
Wähle "Löschen": Im Kontextmenü wähle "Löschen" aus, um die Schaltfläche zu entfernen.

Diese Methode ist einfach, wenn du nur gelegentlich Schaltflächen entfernen musst.

Praktische Beispiele

Hier sind zwei praktische Beispiele für das Löschen von Schaltflächen in Excel:

Löschen einer spezifischen Schaltfläche:

Sub LöschenButton()
    ActiveSheet.Shapes("MeinButton").Delete
End Sub

Löschen der Schaltfläche, die das Makro ausgelöst hat:

Sub SchaltflächeLöschen()
    ActiveSheet.Shapes(Application.Caller).Delete
End Sub

Diese beiden Methoden sind nützlich, wenn du entweder eine bestimmte Schaltfläche oder die Schaltfläche "löschen" selbst ansprechen möchtest.

Tipps für Profis

Benutze Variablen: Anstatt den Namen der Schaltfläche hart zu codieren, kannst du Variablen verwenden, um die Flexibilität zu erhöhen.
```
Dim btnName As String
btnName = "Button 1"
ActiveSheet.Shapes(btnName).Delete
```
Fehlerbehandlung: Implementiere Fehlerbehandlung, um zu verhindern, dass das Makro bei einem Fehler stoppt.
```
On Error Resume Next
ActiveSheet.Shapes("Button 1").Delete
On Error GoTo 0
```

FAQ: Häufige Fragen

1. Wie kann ich eine Schaltfläche entfernen, die ein Makro ausführt?
Du kannst die Schaltfläche wie gewohnt mit VBA löschen. Verwende dazu den Code, der die Schaltfläche identifiziert und löscht.

2. Was passiert, wenn ich die Schaltfläche lösche?
Das Löschen der Schaltfläche entfernt sie aus dem Arbeitsblatt, aber das zugehörige Makro bleibt in deinem VBA-Projekt erhalten. Du kannst das Makro weiterhin manuell ausführen, wenn nötig.

Beliebteste Forumthreads (12 Monate)