Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1884to1888
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

Formularsteuerelement Drehfeld

Formularsteuerelement Drehfeld
22.05.2022 11: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
Anzeige
AW: Formularsteuerelement Drehfeld
22.05.2022 11: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 11: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 15: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.
Anzeige
AW: Formularsteuerelement Drehfeld
22.05.2022 11: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
AW: Formularsteuerelement Drehfeld
22.05.2022 15:07:35
Siegfried
Hi Gerd,
Danke, so funktioniert.
Gruß
Siegfried

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige