Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button da ist, dann

Forumthread: Button da ist, dann

Button da ist, dann
10.07.2006 09:33:15
Walter
Guten Morgen,
habe folgendes Makro:
If ActiveSheet.Shapes.Range(Array("Button 32", "Button 34", "Button 35", _
"Button 33", "Button 31", "Button 36", "Button 30", "Button 23", _
"Button 24")).Select Then
Selection.Delete
Else
Sheets("Muster").Select
End If
funktioniert leider nicht, kann mir jemand helfen,
DANKE im voraus,
gruß Walli
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button da ist, dann
10.07.2006 10:12:37
Mag
Hi,
analog für Zellen würde das so aussehen:

Sub ttt()
Dim rng As Range
For Each rng In ActiveSheet.Range("A1,A2,A3")
If Not Intersect(rng, Selection) Is Nothing Then
MsgBox rng.Address
'Selection.Delete
Else
'Sheets("Tabelle2").Select
End If
Next rng
End Sub

Gruss
Anzeige
Danke für den Tip -)
10.07.2006 10:39:55
Walter
Hallo mac,
Danke für den Tip.
Gerade hatte ich dies durchgeführt und es funktioniert, habe nur noch dies eingefügt:
On Error Resume Next
sonst kam die Fehlermeldung.

Sub Button_Löschen()
On Error Resume Next
Sheets("Muster").Select
If ActiveSheet.Shapes.Range("Button 23").Enabled = True Then
ActiveSheet.Shapes.Range(Array("Button 32", "Button 34", "Button 35", _
"Button 33", "Button 31", "Button 36", "Button 30", "Button 23", _
"Button 24")).Select
Selection.Delete
Else
Sheets("Muster").Select
MsgBox "Button 23  nicht da"
End Sub

mfg Walli
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