Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

meine schaltflächen werden gelöscht

Forumthread: meine schaltflächen werden gelöscht

meine schaltflächen werden gelöscht
21.03.2022 12:08:23
Fred
Hallo Excel Experten,
ich erstelle aus einem Bereich in Sheet bmp ein Bild und füge es in Sheet Live ein

Sub bmp1()
Dim rRange_To_Copy As Range
Application.ScreenUpdating = False
Set rRange_To_Copy = Sheets("bmp").Range("c3:n26")
rRange_To_Copy.CopyPicture xlScreen, xlPicture
Worksheets("Live").Select
Range("p5").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
Worksheets("Live").Activate
End Sub
soweit, so gut.
Will ich nun dieses Bild in Sheet "Live" löschen, nutze ich

Sub loeschBMP()
Dim shape As Excel.shape
Application.ScreenUpdating = False
' löscht vorhandenes shape
For Each shape In ActiveSheet.Shapes
shape.Delete
Next
End Sub
Das Bild wird gelöscht, allerdings auch die Schaltflächen.
Kann mir bitte jemand mitteilen, wie ich entsprechendes Makro schreibe,- ohne die Schaltflächen zu löschen?!
Gruss
Fred
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: meine schaltflächen werden gelöscht
21.03.2022 12:30:10
JoWE
Hallo versuchs mal so:

Sub delShape()
Dim mySh As Object
For Each mySh In ActiveSheet.Shapes
If Left(mySh.Name, 7) = "Picture" Then mySh.Delete
Next
End Sub

AW: meine schaltflächen werden gelöscht
21.03.2022 12:37:36
Fred
Hallo JoWE,
dein Makro passt!
Vielen Dank!!
Gruss
Fred
AW: Gerne
21.03.2022 12:40:13
JoWE
Anzeige
AW: oder allgemeiner....
21.03.2022 12:39:28
JoWE
....mit
If mySh.Type = 13 Then mySh.Delete 'Type 13 ist ein shape des Types Picture
Gruß
Jochen
AW: meine schaltflächen werden gelöscht
21.03.2022 12:57:10
Daniel
Hi
gib dem Bild doch einen Namen nach dem Einfügen.
dann kannst du es über diesen Namen gezielt löschen und alles andere bleibt stehen:

Sub bmp1()
Dim rRange_To_Copy As Range
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Live").Shapes("xxx").Delete
On Error GoTo 0
Set rRange_To_Copy = Sheets("bmp").Range("c3:n26")
rRange_To_Copy.CopyPicture xlScreen, xlPicture
Worksheets("Live").Select
Range("p5").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
Selection.Name = "xxx"
End Sub
das On Error Resume Next verhindert hier den Fehler, wenn Bild schon auf anderem Weg gelöscht und nicht mehr vorhanden ist.
Daniel
Anzeige
AW: meine schaltflächen werden gelöscht
21.03.2022 13:13:43
Edgar
Falls ich zu spät bin und Du das Problem bereits gelöst hast bitte die Antwort vergessen!
Ich lade bei mir aLogos der Bundesliga Vereine. Bevor ich das mache lösche ich ggf. vorhandene Logos (.png)
Danach waren mein Command Bottons auf dem Worksheet auch alle mit gelöscht.
Ich mache das jetzt so:
Public Sub spieltage_logos_delete()
Dim i As Integer
Dim j As Integer
Dim rng As String
Dim objShape As Shape
Worksheets("SPIELTAGE").Activate
rng = "B2:S299"
For Each objShape In Worksheets("SPIELTAGE").Shapes
If objShape.Type 12 Then
If Not Intersect(objShape.TopLeftCell, Range(rng)) Is Nothing Then Call objShape.Delete
End If
Next
Anzeige
;

Forumthreads zu verwandten Themen

Gesperrte Schaltfläche
Christian

Hallo,
bin absoluter VBA- Anfänger und habe folgende Frage:
Ich möchte gerne eine Schaltfläche zur Ausführung eines Makros erstellen, die beim Öffnen der Datei verfügbar ist. Dies soll jedoch nicht über eine Schaltfläche aus der Sysmbolleiste erfolgen, da diese Schaltfläche in einem ung...
21.06.2009 10:21:58
Thread-ID: 1083195
5 Beiträge
Anzeige
Schaltflächen: Format-Bug
Peter

Hallo Leute,
in mein Programm habe ich diverse Befehlsschaltflächen eingebaut. Leider kommt es hin und wieder vor, dass das Textformat der Schaltfläche (Caption) durch die Schaltflächenbetätigung stetig größer bzw. kleiner wird. Hin und wieder vergrößert bzw. verkleinert sich auch die gesam...
25.06.2009 14:10:20
Thread-ID: 1084338
3 Beiträge
Schaltfläche und Vergrößerungsfaktor
Wolfgang

Hallo liebe Experten,
ich habe zwei Fragen:
1. Früher konnte ich die excel-Schaltflächen selbst zeichnen, heute gelingt mir das nicht mehr. Geht das mit Office 2003 noch?
2. Kann ich den default-Wert der Vergrößerung (in der Symbolleiste: Standard) der auf 100% festliegt ändern? Ich...
26.06.2009 20:26:11
Thread-ID: 1084657
5 Beiträge
Ausrichtung Befehlsschaltfläche
berni

Liebe Excel-lenzen!
Ich hatte einmal den Short-Cut intus, aber leider in der zwischenzeit wieder vergessen.
Also: Wenn ich untereinander verschiedene Schaltflächen aus der Formularsammlung untereinander aufgelistet habe, gab es doch irgendwie eine Möglichkeit, per Shortcut die unteren a...
30.06.2009 19:09:55
Thread-ID: 1085343
3 Beiträge
Gif auf Schaltfläche
ReSt

Guten Morgen
Da hätte ich mal eine Frage. Kann man auf eine Activ X-Schaltfläche eine gif-Animation legen?
Bis jetzt hat sich bei mir noch nichts bewegt.
Gruss Reto
05.07.2009 10:33:28
Thread-ID: 1086448
5 Beiträge
Schaltflächenmakro
Michael

Servus,
ich bin noch blutiger Excel/VBA Anfänger und will mir ein paar kleine Ecxel Makros bauen. Ich habe eine Tabelle mit zwei Schaltflächen. Schalftfläche "Ordner" soll prüfen ob im selben Verzeichnis wie der Excel Datei bereits ein Ordner mit dem Name aus den Spalten A "Artikel" und B "...
07.07.2009 13:09:26
Thread-ID: 1086922
2 Beiträge
Makro ausführen mit Schaltfläche
Alex

Hi @ all,
ich habe mal wieder ein Problem.
Und zwar hab ich folgendes Makro in einer Vorlage:
Sub FilternKopierenTGA() Dim rngAct As Range With Worksheets("TGA") .Cells.Clear Range("N1").AutoFilter _ Field:=14, Criteria1:="TGA" 'Filtern Spalte N nach TGA Set rngAct = Range("A2"...
08.07.2009 13:38:12
Thread-ID: 1087178
5 Beiträge
Makroschaltfläche
Hübner

Hallo liebe Helfer,
ich habe gleich 2 Probleme, sicherlich könnt Ihr mir wieder helfen.
Thema: Dateienumstellung von 2003 auf 2007
1.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt...
14.07.2009 21:02:25
Thread-ID: 1088359
2 Beiträge
Schaltfläche auszeichnen
Hübner

Hallo liebe Helfer,
ich habe ein Probleme, sicherlich könnt Ihr mir wieder helfen.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt mit 2003)mit aufgezeichnet wird?
In 2003 ging dies prob...
14.07.2009 14:31:23
Thread-ID: 1088468
7 Beiträge
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
Anzeige
ListFilRange bei Befehlsschaltflächen
Pfannen-Meister

Guten Tag,
nachdem mir hier heute Vormittag schon geholfen wurde, müßte ich nochmals Hilfe in Anspruch nehmen:
Wenn ich mit Befehlsschaltflächen arbeite, so kann ich im Feld "ListFilRange" eine bestimmte Menge an Excel-Feldern auswählen, deren Inhalt mit Hilfe der Befehlsschaltfläche s...
06.08.2009 15:23:31
Thread-ID: 1094074
3 Beiträge
Schaltflächen verschwinden
Fritz

Hallo,
ich habe das Problem, dass nachdem eine Excel-Tabelle Monatelang in einer Firmenumgebung einwandfrei funktioniert hat (als Freigegebenes Dokument mit einigen Makros) nun plötzlich beim anwenden des Autofilters wahllos Schaltflächen "verschwinden" lässt.
Das Dokument wird von ver...
17.08.2009 13:06:59
Thread-ID: 1096418
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige