Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1700to1704
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
Inhaltsverzeichnis

Spinbutton

Spinbutton
24.07.2019 10:16:53
Alex
Hallo Leute,
ich wollte ein Spinbutton programmieren das immer den Wert der Zelle links von ihm um 5 erhöht bzw veringert. Dazu habe ich folgendes geschrieben was leider nicht funktioniert.
Private Sub SpinButton1_SpinDown()
SpinButton1.Offset(-1, 0).Value = (SpinButton1.Offset(-1, 0).Value) - 5
End Sub

Private Sub SpinButton1_SpinUp()
SpinButton1.Offset(-1, 0).Value = (SpinButton1.Offset(-1, 0).Value) + 5
End Sub

Danke & Gruß

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spinbutton
24.07.2019 10:58:37
Luschi
Hallo Alex,
was hält Dich eigentlich ab, eine Demodatei bereitzustellen - Philosophie-Seminare mit theoretischen 'BlaBla' gibt es schon genug, so daß man sich theoretisch wunderbar austauschen kann - aber das Ergebnis ist dann eben auch 'blabla'.
Gruß von Luschi
aus klein-Paris
Also den Wert der Zelle...
24.07.2019 11:11:05
Case
Hallo, :-)
... links vom SpinButton: ;-)
Option Explicit
Private Sub SpinButton1_SpinDown()
Cells(SpinButton1.TopLeftCell.Row, SpinButton1.TopLeftCell.Column - 1).Value = _
Cells(SpinButton1.TopLeftCell.Row, SpinButton1.TopLeftCell.Column - 1).Value - 5
End Sub
Private Sub SpinButton1_SpinUp()
Cells(SpinButton1.TopLeftCell.Row, SpinButton1.TopLeftCell.Column - 1).Value = _
Cells(SpinButton1.TopLeftCell.Row, SpinButton1.TopLeftCell.Column - 1).Value + 5
End Sub
Servus
Case

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige