Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige