Zeilenanwahl mit Drehfeld (SpinButton)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub SpinButton1_SpinDown() If ActiveCell.Row < Rows.Count Then ActiveCell.Offset(1, 0).Select End If End Sub Private Sub SpinButton1_SpinUp() If ActiveCell.Row > 1 Then ActiveCell.Offset(-1, 0).Select End If End Sub

Hallo Leute,
vielen Dank für Eure Vorschläge; ich habe sie beide getestet und finde den Vorschlag von Matthias brauchbarer da hier der Cursor nicht weiter als bis zur Zeile 1 zurückspringen kann.
Beim Vorschlag von Christian versucht der Cursor noch weiter zurück zu springen was natürlich nicht geht und somit eine Fehlermeldung hervorruft.
In einem weiteren Schritt möchte ich den UP- und DOWN-Bereich des Drehfeldes auf die Datumsangaben eines zuvor gewählten Jahrgangs beschränken. D.h. mit den beiden Schaltflächen des Drehfelds sollen nur Datumsangaben des gewählten Jahrgangs angesprungen werden können. Das jeweilige Jahr ist in der Variablen Jahr gespeichert.
(Ist 2004 angewählt darf der Cursor nicht auf Datumsangaben wir z. B. 31.12.2004 oder 01.01.2005 springen, es sollte evtl. eine Fehlermeldung erfolgen)
Lässt sich die Variable Jahr im folgenden Code integrieren um meine Idee zu realisieren?


Private Sub SpinButton1_SpinDown()
If ActiveCell.Row < Rows.Count Then
ActiveCell.Offset(1, 0).Select
End If
End Sub


Private Sub SpinButton1_SpinUp()
If ActiveCell.Row > 1 Then
ActiveCell.Offset(-1, 0).Select
End If
End Sub

Gruß Reiner

Private Sub SpinButton1_SpinDown() If ActiveCell.Row < Rows.Count Then With ActiveCell.Offset(1, 0) If Year(.Value) = Jahr Then .Select Else Beep End If End With End If End Sub Private Sub SpinButton1_SpinUp() If ActiveCell.Row > 1 Then With ActiveCell.Offset(-1, 0) If Year(.Value) = Jahr Then .Select Else Beep End If End With End If End Sub

Private Sub SpinButton1_SpinDown() If ActiveCell.Row < Rows.Count Then With ActiveCell.Offset(1, 0) If Year(Cells(.Row, 4)) = jahr Then .Select Else Beep End If End With End If End Sub Private Sub SpinButton1_SpinUp() If ActiveCell.Row > 1 Then With ActiveCell.Offset(-1, 0) If Year(Cells(.Row, 4)) = jahr Then .Select Else Beep End If End With End If End Sub

Beliebteste Forumthreads (12 Monate)

Zeilenanwahl mit Drehfeld (SpinButton)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilenanwahl mit Drehfeld (SpinButton)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread