Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
18.04.2024 15:00:48
Datum als Datum sehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button's ausblenden

Button's ausblenden
Rainer
Hallo,
habe ich in meiner Tabelle in zu kopierenden Sheets nicht alle Button's gleichlautend umbenannt, so dass ich zur Verwendung des Codes von Sepp ( https://www.herber.de/forum/archiv/1120to1124/t1121291.htm ) noch einiges nachzuarbeiten hätte, um bei einem neuen Blatt alle per Makro auf .Visible=False zu stellen.
Wollte eigentlich im Code von Sepp im neuen Sheet einfach alle Button's mit
Gruppe.visible=False
Gruppe1.visible=False
Gruppe2.visible=False
Ansicht.visible=False
Druckmenu.visible=False
Erfassung.visible=False
A3-Plan.visiblible=False
ausblenden.
Dank Ransi habe ich nun superschnell festgestellt, dass etliche Sheets noch mit
OptionButton1...
OptionButton2...
CommandButton1...
...
stehen.
Deshalb habe ich weiter recherchiert und hier http://www.digital-inn.de/excel-und-vba/38405-schaltflaechen-commandbuttons-loeschen-per-vba.html einen Code gefunden, der allerdings nicht komplett funktionert.
Sprich genau das Ausblenden hat bei mir nicht funktionert.
Bevor ich nun alle Button's umbenenne, Frage zu meiner Variante:
Könnte es ein Problem geben, wenn Button's angesprochen werden, welche nicht vorhanden sind?
(nicht in jedem Sheet ist der Option-Button)
Zum Code von digital-inn:
Kann es sein, dass es für Excel2007 einen anderen Befehl gibt?
Gruß Rainer

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Button's ausblenden
03.12.2009 20:20:12
Josef
Hallo Rainer,
vielleicht so?
Dim objOle As OLEObject

For Each objOle In ActiveSheet.OLEObjects
  objOle.Visible = False
Next

Gruß Sepp

Anzeige
AW: Button's ausblenden
03.12.2009 20:31:01
Rainer
Hallo Sepp,
danke, klappt natürlich einwandfrei.
Gruß Rainer
AW: Button's ausblenden
05.12.2009 12:28:41
Rainer
Hallo,
wollte nun in der durch Sepp's Code erstellten neuen Arbeitsmappe ( https://www.herber.de/forum/archiv/1120to1124/t1121291.htm ) eine Gültigkeitsliste einfügen.
Alternativ dachte ich, die vorhandene ComboBox zu verwenden, welche im neuen Sheet ja nur durch "... objOle.Visible = False ..." ausgeblendet ist.
Füge ich nach dem Code "... objOle.Visible = False ..." jedoch wieder "ComboBox1.Visible = True" ein kommt eine Fehlermeldung - Objekt erforderlich.
Im Ablauf des Makro's ist das neue Arbeitsblatt erstellt und manuell ist die ComboBox1 auch auf Visible änderbar.
Verstehe nicht, warum das Makro anhält.
Gruß Rainer
Anzeige
AW: Button's ausblenden
05.12.2009 12:42:11
Josef
Hallo Rainer,
du musst das Blatt mit angeben, also z.B.: "ActiveSheet.ComboBox1.Visible = True"
Gruß Sepp

AW: Button's ausblenden
05.12.2009 13:10:23
Rainer
Hallo Sepp,
vielen Dank; hätte mir eigentlich auch mit meinen bescheidenen VBA-Kenntnissen fast klar sein müssen.
Dachte ...
Andere Frage: Da ich nicht immer die exakt selbe Position der Zellen habe, ist es Möglich, die Position einer Zelle zu bestimmen, so dass ich den Wert für ComboBox1.Left und ...Top an dieser Zelle ausmachen kann?
Gruß Rainer
AW: Button's ausblenden
05.12.2009 13:23:27
Josef
Hallo Rainer,
klar geht das. (Zelladresse entsprechend anpassen!)

With ActiveSheet
.ComboBox1.Visible = True
.ComboBox1.Top = .Range("B5").Top
.ComboBox1.Left = .Range("B5").Left
End With

Gruß Sepp

Anzeige
AW: Button's ausblenden
05.12.2009 13:30:13
Rainer
Klasse und Danke.
Gruß Rainer

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige