Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

schaltfläche erstellen

Forumthread: 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
Anzeige

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