Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 11:26:24
Drucker auslesen unter Office 2024
23.10.2025 10:01:30
Benannte Bereiche durchsuchen
23.10.2025 09:36:17
Manuelle Formelberechnung vba
23.10.2025 09:29:52
Markiertes Shape "Ellipse" ändern, ohne Namenangabe
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unterschied schaltfläche und commandbutton

Forumthread: Unterschied schaltfläche und commandbutton

Unterschied schaltfläche und commandbutton
samsplanet
salut zusammen
warum funktioniert folgendes als makro zugewiesen zu einer schalfläche einwandfrei, nicht aber als code einer befehlsschaltfläche (commandbutton)? bleibt bei Columns("L:L").Select hängen.
Sheets("HT_FuTa").Select
ActiveSheet.Unprotect Password:="xxx"
Columns("L:L").Select
Selection.autofilter
Selection.autofilter Field:=1, Criteria1:=""
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Protect Password:="xxx"
Sheets("HT_FuTa").Visible = False
ratschläge? danke und gruss
samsplanet
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Unterschied schaltfläche und commandbutton
06.02.2007 22:49:03
daniel
Hallo
weil der Commandbutton und seine Makros explizit zu einem Sheet gehören. (der code steht ja auch im Modul des jeweiligen Sheets)
Deswegen muß jede referenzierung auf ein anderes Sheet immer mit angegeben werden, auch wenn das Sheet gerade aktiv ist, Range-Angaben ohne Sheet-Objekt können sich nur auf eigene Sheet beziehen.
Der Code einer Schaltfläche steht normalerweise im allgemeinen Modul, damit bezieht sich eine Range-Angabe ohne Sheet-Objekt immer auf das Aktive Sheet.
Sheets("HT_FuTa").columns("L:L").select
müsste daher mit einem commandbutton funktionieren.
Besser wärs allerdings, du lässt die ganze selektiererei ganz weg (ist sowieso überflüssig und bremst nur den Code)
und addressierts immer direkt, also
Sheets("HT_FuTa").Unprotect Password:="xxx"
Sheets("HT_FuTa").Columns("L:L").autofilter Field:=1, Criteria1:="<>"
Sheets("HT_FuTa").PrintPreview
Sheets("HT_FuTa").Protect Password:="xxx"
Sheets("HT_FuTa").Visible = False

oder noch besser
with Sheets("HT_FuTa")
.Unprotect Password:="xxx"
.Columns("L:L").autofilter Field:=1, Criteria1:="<>"
.PrintPreview
.Protect Password:="xxx"
.Visible = False
end with

was in der With-Klammer definiert ist, kann im Folgenden durch einen Punkt . ersetzt werden.
Gruß, Daniel
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