Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
456to460
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
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

schaltfläche erstellen

schaltfläche erstellen
20.07.2004 14:09:49
Hans
moin, moin,
diese vba-hilfe ist mir einfach zu unverständlich. wie zur hölle kann ich eine neue befehlschaltfläche erstellen, und vor allem : wo genau muss der code hin?
eigentlich soll diese schaltfläche nur folgenden code ausführen
worksheets(activesheet.index + 1)
eine zweite sollte dann gerade das gegenteil tun.
grüße
der hans

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: schaltfläche erstellen
20.07.2004 15:17:07
Michael
Selber Moin,
zunächst einmal mach die Symbolleiste "Formular" sichtbar, indem Du über "Extras - Anpassen - Symbolleisten" "Formular" aktivierst.
Eine "Schaltfläche" kannst Du danach mit dem entsprechenden Symbol auf dieser Symbolleiste erstellen, indem Du das entsprechende Symbol anklickst (bei meiner Reihenfolge in der Symbolleiste ist es das 4. Symbol). Der Cursor wird nunmehr zum Fadenkreuz zum "Zeichnen" des Buttons in Deinem Sheet.
Direkt nach Zeichnen des Buttons wirst Du dazu aufgefordert, ein Makro zuzuweisen. Benutze den Button "Neu", wenn Du ein neues Makro zuweisen willst, und Du bekommst den Code-Editor direkt angezeigt.
An die Cursorposition kannst Du den folgenden Code kopieren:
If Not ThisWorkbook.ActiveSheet.Index = ThisWorkbook.Sheets.Count Then _
ThisWorkbook.Sheets(ThisWorkbook.ActiveSheet.Index + 1).Activate
Dieser prüft, ob das gewählte das letzte Sheet des Workbooks ist und blättert dann NICHT weiter (sonst gibt's einen Fehler). Gleiches kannst Du mit dem ersten Worksheet prüfen, um Dein Makro zum Zurückblättern zu erstellen:
If Not ThisWorkbook.ActiveSheet.Index = 1 Then _
ThisWorkbook.Sheets(ThisWorkbook.ActiveSheet.Index - 1).Activate
... und fertig ist die Laube.
CIAO
Michael
Anzeige
habt dank
Hans
danke leute,
werd das sofort checken
tschö

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige