Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

command button next sheet

Forumthread: command button next sheet

command button next sheet
09.11.2005 10:42:54
maennle
Haollo zusammen,
ich würde gerne einen command button mit dem Befehl: auf das nächste Sheet wechseln belegen.
Weiß jemand den code?
Danke im voraus
Maennle
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: command button next sheet
09.11.2005 11:05:31
Heiko
Hallo Maennle,
z.B. so, das kannst du dann einfach dem CommandButton zuordnen.

Sub NaechstesSheet()
Dim bytN As Byte
bytN = ActiveSheet.Index + 1
If bytN > ActiveWorkbook.Sheets.Count Then bytN = 1
Sheets(bytN).Select
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: command button next sheet
09.11.2005 11:39:46
maennle
Brutal!
Gleich drei funktionierende Antworten, genial......
Danke an euch alle......
noch ne Kleinigkeit: wie kann ich zu einem bestimmten Blatt springen, z.B. ich bin auf Blatt 1 und möchte nen Knopf für blatt 4 von 22?
Danke nochmals.......
maennle
AW: command button next sheet
09.11.2005 12:00:16
Heiko
Hallo Maennle,
z.B. so:

Sub SheetSpringen()
Dim bytN As Byte
bytN = 12 ' Für 4. Blatt;  6 für 6. Blatt ...
If bytN <= ActiveWorkbook.Sheets.Count Then Sheets(bytN).Select
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: command button next sheet
09.11.2005 12:09:55
maennle
hi
Der bytN wert, für was genau steht der?
Gruß Tobi
AW: command button next sheet
09.11.2005 12:35:21
maennle
äh, noch was:
ich würde gerne durch den Knopf ein bestimmtes Sheet aktivieren, die Verknüpfung soll auch noch funktionieren, wenn später neue sheets eingefügt werden.....
Danke noch,mal und Gruß
Tobi
AW: command button next sheet
09.11.2005 12:43:34
Heiko
Hallo
dann sprich sie über den Tabellennamen an:
Sub SheetSpringen()
On Error Resume Next
Sheets("Tabelle4").Select ' Für Tabelle4
' Und wenn deine Tabelle z.B. Kostenaufstellung heist dann
' Sheets("Kostenaufstellung").Select
End Sub
kannst auch direkt "hinter" den Button machen. 

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Tabelle4").Select ' Für Tabelle4
' Und wenn deine Tabelle z.B. Kostenaufstellung heist dann
' Sheets("Kostenaufstellung").Select
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: command button next sheet
09.11.2005 13:30:10
maennle
Genau das meinte ich.............
Optimal, danke vielmals für Deine Infos.........
grüße tobi
AW: command button next sheet
09.11.2005 12:39:20
Heiko
Hallo Maennle,
das ist eine Variable vom Type Byte die ich definiert habe um den Zahlenwert aufzunehmen.
Außerdem sehe ich gerade das noch ein Fehler drin ist.
bytN = 4 ' Für 4. Blatt; 6 für 6. Blatt; 12 für Blatt 12 ...
Es geht aber auch ohne die Variable.

Sub SheetSpringen()
On Error Resume Next
Sheets(4).Select ' für Blatt 4 ...
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: command button next sheet
09.11.2005 12:49:40
maennle
Ok, jetzt hab ich verstanden.......
Danke schön.
Dieser Befehl funktioniert aber nur so lange die Sheet-Struktur bleibt, wird ein neues eingefügt, stimmt die verlinkung nicht mehr.........oder?
Gruß Tobi
AW: command button next sheet
09.11.2005 11:07:38
u_
Hallo,
etwa so:

Private Sub CommandButton1_Click()
If ActiveSheet.Index < Sheets.Count Then
Sheets(ActiveSheet.Index + 1).Activate
End If
End Sub

Gruß
Geist ist geil!
Anzeige
AW: command button next sheet
09.11.2005 11:25:11
Korl
Hollo,
ich habs hiermit gemacht.

Sub Vorsteppen()
On Error Resume Next
ActiveSheet.Next.Select
End Sub



Sub Zurücksteppen()
On Error Resume Next
ActiveSheet.Previous.Select
End Sub

Auf jedenm Tabellenblatt ein jeweiligen Blockpfeil gesetzt.
Gruß Korl
Anzeige
;

Forumthreads zu verwandten Themen

aufbau vieler command buttons, verzögerung?
marc

guten abend zusammen
ich habe eine etwas "unschöne" erscheinung in meiner anwendung:
ich wechse von den ca. 20 arbeitsblättern jeweils mittels folgendem code auf das hauptarbeitsblatt:
Public Sub Hauptmenü() Application.ScreenUpdating = False Worksheets("tabelle1").Activate Range(...
09.10.2008 19:10:08
Thread-ID: 1015438
7 Beiträge
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Command Button & Variablenübergabe
Jacques

Hallo,
ich erzeuge aus jeder beschriebenen Zeile in einer Mappe einen Command Button. wird dieser gedrückt soll eine Userform aufgehen, und in derenn Feldern die Einträge aus der Zeile stehen, die zum Erzeugen des Buttons führte. Beim Erzeugen der CommandButton stelle ich mir vor, dass ich...
06.11.2008 15:31:39
Thread-ID: 1022322
2 Beiträge
Auswahl von Command Buttons
Command

Hallo,
Ich möchte einen CommandButton auf einem Acces Form aus Excel heraus mit VBA aktivieren. Konkret weiß ich nicht, wie man einen CommandButton ansteuert und diesen per Makro klickt.
Vielen Dank für Eure Hilfe!
Gruß
Lars
24.11.2008 18:49:40
Thread-ID: 1027439
3 Beiträge
Anzeige
Command Button
eric1

Hallo zusammen und einen schönen Abend,
ich möchte die Ansicht der UserForm verschönern, die CommandButton werden wie folgt erstellt :
....
Set ctlOK1 = Controls("frm2").Controls.Add("forms.commandbutton.1", _
"cmdOK1", True)
With ctlOK1
.Left = 320
.Top = 40
.Wi...
17.02.2009 19:53:00
Thread-ID: 1051607
3 Beiträge
Command Button wie Schaltfläche benützen
Andre

Hi Leute,
ich habe keine Ahnung, warum diese zwei Makro codes bei einer Schaltfläche funktionieren, aber wenn ich es einem Command Button zuweise nicht.
Bei Range flippt er jedes mal aus und macht nicht weiter. Kann man einen Command Button mit diesen Codes füttern?
Sub back() Ac...
18.02.2009 18:03:00
Thread-ID: 1051885
6 Beiträge
Anzeige
Werte löschen mit Command Button
Thomas

Hi Profis,
trotz Google Recherche komm ich nicht so richtig weiter. Mist.
Mein Problem besteht darin, das ich hier einen Code aus diesem Forum nach Anpassung an meine Bedürfnisse benutze, welcher Leere Zellen mit einer Ziffer ausfüllt. Klappt soweit sehr gut.
Nun aber macht dieser...
04.03.2009 17:53:38
Thread-ID: 1056535
5 Beiträge
Anzeige
Command Button
Frank

Hei,
muss noch mal stören!! :-)
Kann mir jemand veraten wie ich meine Buttons in meiner Exelmappe wieder zum Leben erwecke.
In Tabelle 1 und 2 sind sie anklickbar in Tabelle 3 und 4 seit 2h nicht mehr. Gehe ich auf Eigenschaften wird mir da nur die Hälfte der Eigenschaftsvariablen a...
06.06.2009 15:28:08
Thread-ID: 1079604
7 Beiträge
Command Button verruscht
merlin

Hallo,
wer kann mir bei diesem Problem helfen?
Eine Tabelle von A bis J und von 1 bis ca. 2000.In diese Tabelle sortiert ich alle Spalten mit dem AutoFilter. Das klappt sehr gut, jetzt möchte ich den gefilterten Bereich über einen Command Button ausdrucken. Aber der Button verruscht manch...
29.04.2002 12:52:26
Thread-ID: 117135
3 Beiträge
Command Button
Ralf

Hallo Excel - Experten,
ich habe eine Excel - Datei mit 11 Tabellen. In
jeder Tabelle habe ich einen CommandButton ( mit VBA Code ).
Jeder CommandButton für sich funktioniert ganz
super.
Nun zu meinem Problem: ich möchte gerne aus der
Tabelle 1 heraus alle 11 gleichzei...
30.08.2010 10:38:58
Thread-ID: 1174739
9 Beiträge
Command Buttons
Peter

Hallo zusammen,
ich habe eine Userform. Es soll eine Abfrage über 30 ToggleButton (TB) erfolgen.
(Name= TB1, TB2,...; Caption=1, 2, ...)
Wird ein TB gedrückt (Value=true) soll sich die Hintergrundfarbe ändern und der Wert (Caption) in Spalte A schreiben. Und umgekehrt (Value=false)<...
21.02.2011 22:40:49
Thread-ID: 1202211
3 Beiträge
Command Button als Grafik ausblenden
EarnyToLearny

Hallo zusammen,
um eine Schaltfläche auszublenden könnte man das doch verwenden?
If ActiveSheet.Cells(17, 3) = 1 Then CommandButton?.Visible = True
Else
CommandButton?.Visible = False
End If

Jedoch verwende ich selbst erstellte Grafik-Buttons in denen dann das M...
11.06.2011 20:15:48
Thread-ID: 1218168
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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