Formularsteuerelement Drehfeld

Forumthread: Formularsteuerelement Drehfeld
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Formularsteuerelement Drehfeld

22.05.2022 13:19:39

Siegfried

Hallo zusammen,
ich habe in meinem Tabellenblatt ein Drehfeld eingefügt
Min = 1
Max = 64
Schrittweite = 1
In Abhängigkeit von dem Drehfeld werden Berechnungen ausgeführt.
Wenn das Ergebnis der Berechnung einen bestimmten Wert überschreitet, soll die das Drehfeld nicht weiter voran gehen, sondern nur wieder zurück.


Sub Drehfeld3_BeiÄnderung()
Dim n1 As Integer
Dim RngWerte1 As Range
Set RngWerte1 = Range("AO7:AO62")
If WorksheetFunction.Max(RngWerte1) > Range("AO3").Value Then
End If
End 

Sub
Wie muss der Code aussehen?
Danke und Gruß
Siegfried

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formularsteuerelement Drehfeld

22.05.2022 13:41:24

Herbert_Grom
AW: Formularsteuerelement Drehfeld

22.05.2022 13:45:24

Herbert_Grom
AW: Formularsteuerelement Drehfeld

22.05.2022 17:01:19

Siegfried
AW: Formularsteuerelement Drehfeld

22.05.2022 13:41:28

GerdL
AW: Formularsteuerelement Drehfeld

22.05.2022 17:07:35

Siegfried

AW: Formularsteuerelement Drehfeld

22.05.2022 13:41:24

Herbert_Grom

Hallo Siegfried,
evtl. so:


Sub Drehfeld3_BeiÄnderung()
Dim RngWerte1 As Range
Set RngWerte1 = Range("AO7:AO62")
If WorksheetFunction.Max(RngWerte1) > Range("AO3").Value Then
MsgBox "Zu groß"
Else
MsgBox "OK"
End If
End Sub

Servus

AW: Formularsteuerelement Drehfeld

22.05.2022 13:45:24

Herbert_Grom

Oder evtl. andersherum:


Sub Drehfeld3_BeiÄnderung()
Dim RngWerte1 As Range
Set RngWerte1 = Range("AO7:AO62")
If WorksheetFunction.Max(RngWerte1) > Range("AO3").Value Then
MsgBox "OK"
Else
MsgBox "Zu groß"
End If
End Sub

Servus

AW: Formularsteuerelement Drehfeld

22.05.2022 17:01:19

Siegfried

Hi,
bei Deinem Code bekomme ich zwar die Meldung, das Drehfeld dreht aber dennoch weiter nach vorne.
Mein Ziel ist es aber, dass das Drehfeld nur noch zurück geht.

AW: Formularsteuerelement Drehfeld

22.05.2022 13:41:28

GerdL

Hallo Siegfried,
eine Möglichkeit.


Sub Drehfeld3_BeiÄnderung()
With ActiveSheet
If WorksheetFunction.Max(.Range("AO7:AO62")) > .Range("AO3").Value Then
.Shapes(Application.Caller).ControlFormat.Max = .Range("AO3").Value
Else
.Shapes(Application.Caller).ControlFormat.Max = 64
End If
End With
End Sub

Gruß Gerd