Habe eine andere Frage, SpinButton

Forumthread: Habe eine andere Frage, SpinButton
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Habe eine andere Frage, SpinButton

01.08.2021 21:56:06

philipp

Guten Abend.
habe folgende Makro für die UF.


Private Sub SpinButton1_SpinUp()
Dim i
If Sheets.Count > ActiveSheet.Index Then
i = ActiveSheet.Index
Sheets(i + 1).Activate
End If
End Sub


Private Sub SpinButton1_SpinDown()
Dim i
If Sheets.Count > ActiveSheet.Index Then
i = ActiveSheet.Index
Sheets(i - 1).Activate
End If
End Sub

Das Problem:
habe ich die letzte Tabelle ausgewählt, kann ich nicht zurück auswählen, steht fest.
Es klappt nur bis zur vorletzten Tabelle, dann kann ich zurück auswählen.
Und wenn ich an der 1. Tabelle bin kommt Fehlermeldung bricht ab.
mfg philipp b

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Habe eine andere Frage, SpinButton

01.08.2021 21:58:43

Hajo_Zi
AW: Habe eine andere Frage, SpinButton

01.08.2021 23:01:32

onur
AW: Habe eine andere Frage, SpinButton

01.08.2021 23:11:41

GerdL
SUPER, danke Onur und Gerd !!! -)

02.08.2021 11:39:47

philipp

AW: Habe eine andere Frage, SpinButton

01.08.2021 21:58:43

Hajo_Zi

Halllo Philipp,
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest, beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Grußformel

AW: Habe eine andere Frage, SpinButton

01.08.2021 23:01:32

onur


Private Sub SpinButton1_SpinUp()
Dim i
i = ActiveSheet.Index
if i = sheets.count then i=0
Sheets(i + 1).Activate
End Sub
Private Sub SpinButton1_SpinDown()
Dim i
i = ActiveSheet.Index
if i=1 then i=sheets.count+1
Sheets(i - 1).Activate
End Sub

AW: Habe eine andere Frage, SpinButton

01.08.2021 23:11:41

GerdL

Moin


Private Sub SpinButton1_SpinUp()
If Sheets.Count > ActiveSheet.Index Then ActiveSheet.Next.Activate
End Sub
Private Sub SpinButton1_SpinDown()
If ActiveSheet.Index > 1 Then ActiveSheet.Previous.Activate
End Sub

Gruß Gerd

SUPER, danke Onur und Gerd !!! -)

02.08.2021 11:39:47

philipp