Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optionsfelder im Kreis anordnen (UHR)

Forumthread: Optionsfelder im Kreis anordnen (UHR)

Optionsfelder im Kreis anordnen (UHR)
16.04.2021 07:38:47
Jürgen
Hallo Zusammen,
ich stelle mich gerade sowas von dämlich an :-/
Ich möchte 12 Optionsfelder im Kreis anordnen, weil ich dort eine Uhrzeit abfragen möchte. Das ganze Programm drum herum ist schon fertig. Jetzt wollte ich Kosmetik betreiben und die 12 Felder schön im Kreis anordnen.
Ich habe eine Berechnung über http://wer-ist-ulli.de/cgi-bin/cnc/kreispunkte.cgi
durchgeführt und versucht, die Koordinaten auf Top und Left umzurechnen und zu übertragen. Aber irgendwie scheine ich einen Wurm drin zu haben.
Hier das Formular.
https://www.herber.de/bbs/user/145566.xlsm
Vielleicht habt Ihre eine Idee.
Vorab schon besten Dank und viele Grüße
Jürgen
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 08:36:01
Hans
sorry, test
hans
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 09:07:59
Daniel
Hi
hast du beachtet, dass die TOP und LEFT-Werte sich die linke obere Ecke des umhüllenden Rechtecks beziehen und du dementsprechend noch einen Versatzwert hinzufügen musst, damit der Mittelpunkt des Buttons auf der Kreislinie liegt?
Gruß Daniel
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 09:08:03
Werner
Hallo,
der Link zu deiner Beispielmappe funktioniert nicht.
Gruß Werner
Anzeige
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 09:20:41
Hans
... Die Links zu der Beispielarbeitsmappe funktionieren wieder ...
Gruss hans
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 09:44:32
Daniel
"Wurm drin" ist jetzt natürlich als Fehlerbeschreibung nicht besonders geeignet, um eine mögliche Fehlerursache und die darauf basierende Lösung zu ermitteln.
wenn du die Buttons von Hand ausrichten willst, solltest du ggf den Haken bei EXTRAS - OPTIONEN - ALLGEMEIN - AM RASTER AUSRICHTEN entfernen.
dann kannst du feiner und näher am Kreisbogen platzieren.
wenn du nicht rechnen willst, kannst du dir auch ein Bild mit einem Kreis einfügen, an welchem du die Buttons ausrichtest.
hierbei über das Kontextmenü Ebene nach vorn/hinten festlegen, dass die Buttons vor dem Bild liegen und nicht dahinter.
Gruß Daniel
Anzeige
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 10:52:09
Jürgen
Hallo Daniel,
den Versatz habe ich berücksichtigt. Trotzdem stimmen die umgerechneten Angaben nicht so, dass die Punkte aus dem Berechnunsprogramm stimmen.
Das Problem liegt vermutlich daran, dass das Berechnungsprogramm mit einem Mittelpunkt bei X/Y bei 0 rechnet und um diesen Punkt herum die Koordinaten auf dem Kreis berechnet.
Das mit der mauellen Ausrichtung auf einem Bild von einem Kreis ist schon eine Idee.
Ich wollte nur nachfragen, ob vielleicht noch jemande eine Lösung , oder eine Berechnung hat.
Meine Berechnungen stimmen jedenfalls nicht.
Vielleicht hat noch jemand eine Lösung.
Viele Grüße
Jürgen.
Anzeige
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 11:28:45
Daniel
Hi
wie sieht denn dein bisheriger versuch aus?
Gruß Daniel
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 15:27:10
Jürgen
Mein Entwurf ist in der Excel-Datei.
Meine Koordinaten sind:
0 50
25 43,301
43,301 25
50 0
43,301 -25
25 -43,301
0 -50
-25 -43,301
-43,301 -25
50 0
-43,301 25
-25 43,301
Umgerechnet auf die die Mitte aber mit Bezug auf Left und Top:
72 6
97 12,699
115,301 21
122 56
115,301 81
97 99,301
72 106
47 99,301
28,699 81
22 56
28,699 21
47 12,699
Anzeige
AW: Optionsfelder im Kreis anordnen (UHR)
16.04.2021 17:01:36
Daniel
ja und wo ist das problem?
warum rechnest du nicht selber die Kreiskoordinaten aus?
geht nach folgenden Prinzip:
ML und MT sind Top und Left des Kreismittelpunkts
R ist der Radius
W ist der Winkel im Bogenmaß (das braucht Excel)
die Werte musst du als Variablen festlegen und ggf ein bisschen experimentieren für passende Werte
L und T sind die Koordinaten für den jeweiligen Button

for i = 1 to 12
W = 3.14 * (i + 3) * 30 /180
L = ML + R * Sin(W)
T = MT + R * Cos(W) + MT
with me.Controls("Optionbuttonname" & Format(i, "00")
.Top = T
.Left = L
end with
next
so nach dem Prinzip sollte das funktionieren.
den Optionbuttonnamen musst du noch anpassen
wenn die Anordnung noch nicht richtig passt, kannst du noch Sin und Cos tauschen und auch ausprobieren ob es ML/MT + R oder ML/MT - R sein muss.
dafür dass die 12 an der richtigen Stelle sitzt, sorgt das + 3 bei der Winkelberechnung.
außerdem könnte es hilfreich sein, den Hintergrund der Buttons auf transparent zu stellen, wenn sie eng bei einander stehen, bzw über das Kontextmenü die Ebene verändern, damit der "richtige" Button oben liegt.
Gruß Daniel
Anzeige
AW: Optionsfelder im Kreis anordnen (UHR)
17.04.2021 10:32:16
Jürgen
Lieber Daniel,
wenn ich es gekonnt hätte, hätte ich ja nicht gefragt ;-)
Aber vielen Dank für deine Info. Ich werde mir das ansehen und versuchen umzusetzten.
Viele Grüße und ein schönes Wochenende
Jürgen
AW: Optionsfelder im Kreis anordnen (UHR)
17.04.2021 11:11:47
Jürgen
Nochmal Danke fürs "auf die Spur bringen" Daniel.
So sieht der fertige Code für beide Uhren aus:

Sub OptButtonverteilen()
ML = 72
MT = 30
R = 57
For i = 1 To 12
W = 3.14 * (i + 9) * 30 / 180
l = ML + R * Cos(W)
t = MT + R * Sin(W) + MT
With frmUhrzeiten.Controls("optVonStunden" & Format(i, "00"))
'with frmUhrzeiten.Controls("optVonStunden01
.Top = t
.Left = l
End With
Debug.Print "OptionButtonVon " & i & " Top " & Format(t, "0.000") & " Left " & Format(l, "0.000" _
)
Next
ML = 72
MT = 105
R = 57
For i = 1 To 12
W = 3.14 * (i + 9) * 30 / 180
l = ML + R * Cos(W)
t = MT + R * Sin(W) + MT
With frmUhrzeiten.Controls("optBisStunden" & Format(i, "00"))
'with frmUhrzeiten.Controls("optVonStunden01
.Top = t
.Left = l
End With
Debug.Print "OptionButtonBis " & i & " Top " & Format(t, "0.000") & " Left " & Format(l, "0.000" _
)
Next
End Sub
Viele Grüße und ein schönes Wochenende
Anzeige
;

Forumthreads zu verwandten Themen

Optionsfelder Wertzuweisung
X-Cell-Learner

Hallo liebes Forum,
ich habe ein für mich riesengroßes Problem:
Ich habe mithilfe der Steuerelemente-Toolbox jeweils fünf Optionsfelder in ein Worksheet(Tabelle1) eingefügt und diese mithilfe: Umschalt und alle fünf Optionsfelder anklicken - Entwurfsmodus beenden - Eigenschaften - Gro...
06.01.2009 18:54:00
Thread-ID: 1037320
3 Beiträge
Optionsfelder
Fredy

Hallo alle
Ich möchte gerne Optionsfelder verwenden komme aber mit dem Code nicht klar
Wen ich einer von der Optionsfelder an klicke sollte es mir eigentlich eins von den 3
Früh", "Mittag", "Nacht auf dem Tabellenballt TM2Rapport Eingabe ein fügen
Leiter geht das noch nicht wir...
03.12.2009 15:21:33
Thread-ID: 1121599
5 Beiträge
Optionsfelder
GraFri
HalloAnnahme:
Optionsfelder in Tabelle1, Zellverknüpfung auf Zelle 'A1' gesetztAusgabe (in beliebiger Zelle einer anderen Tabelle)
=WENN(Tabelle1!A1=1;"Text 1";WENN(Tabelle1!A1=2;"Text 2";WENN(Tabelle1!A1=3;"Text 3";"Text 4")))
wobei für Text 1 bis Text 4 dein Text eingefügt werden muß.mfg...
13.04.2002 16:42:20
Thread-ID: 113055
3 Beiträge
Optionsfelder in Abhängigheit ausgrauen
Ingrid

Hallo Optionsfeldspezialisten,
ich habe ein Formular erstellt mit mehreren Optionsschaltflächen
Pro Bereich (z.B. Option1 A+B+C) (Unteroption 1 A+B+C) habe ich jeweils einen Gruppennamen vergeben.
o Option1A o Unteroption1A o Unterunteroption1A
o Opt...
23.02.2010 12:26:44
Thread-ID: 1140609
8 Beiträge
Anzeige
Schatten bei Optionsfelder ausschalten???
mirko

Hallo,
ich suche Rat zur Betaversion 2010. Bisher habe ich mit 2003 gearbeitet und 2007 übersprungen somit kenne daher die Navigation von 2010 noch nicht.
Was mich bei 2010 stört ist, dass die Ojekte wie Kontrollkästchen und Buttons, die in 2003 ohne Schatten waren, nun rechtsseitig un...
24.03.2010 08:01:51
Thread-ID: 1147829
2 Beiträge
Optionsfelder (ActiveX) verschwunden
Veit

Hallo Excel Kenner,
mit einem Makro, das über ein Optionsfeld (ActiveX) aufgerufen wird, schalte ich in einem anderen Tabelleblatt Spalten mit dem Befehl Worksheets("XX").Columns("X").EntireColumn.Hidden = True weg und wieder hinzu. In zweien dieser Spalten befinden sich viele Optionsfelder...
30.04.2010 20:05:31
Thread-ID: 1154691
4 Beiträge
Farbe Optionsfelder
Kathi

Hallo zusammen,
gibt es eine Möglichkeit, bei Excel 2002 ohne Makro/VBA Optionsfelder aus der Steuerelemente-Toolbox farbig anders zu gestalten (den schwarzen Kreis bei aktiviertem Feld nicht schwarz sondern rot). Finde nur Möglichkeiten, die Hintergrundfarbe bzw. die Schriftfarbe zu ändern...
04.06.2010 13:30:40
Thread-ID: 1160332
3 Beiträge
Anzeige
Optionsfelder
Peter

Hallo!
Ich habe zum ersten Mal Optionsfelder in ein Tabellenblatt eingebaut, jetzt weiß ich nicht genau, wie ich damit umgehe.
Ich möchte, dass beim Anklicken des Optionsfeldes 1 etwas passiert. Daher habe ich diesen mit einem Makro (Modul) verbunden, das so lautet:
Sub Optionen() I...
21.07.2010 10:01:47
Thread-ID: 1168021
6 Beiträge
Hilfe zu Optionsfeldern
charlie33

Hallo zusammen.
Habe folgende zwei Fragen:
1. eine Excelmappe mit einem Tabellenblatt. Eine Userform, welche über einen Button aufgerufen wird. Innerhalb dieser Userform befinden sich mehrere Optionsfelder.
Wenn ein Optionsfeld angeklickt wird, so soll Excel in eine zuvor definiert...
21.07.2010 15:19:48
Thread-ID: 1168130
7 Beiträge
Optionsfelder in Verbindung mit "case"
Otmar

Guten Tag liebe Excelfreunde,
da meine VBA-Kenntnisse getrost als nicht vorhanden eingestuft werden können, bitte ich um Hilfestellung bei folgendem Problem:
Über 4 Optionsfelder in einem Tabellenblatt mit dem Namen „Eingabe“ möchte ich auswählen können, dass die Zahlen der Zellen E5 bi...
02.10.2010 16:12:23
Thread-ID: 1180396
3 Beiträge
Musikliste mit Userform & Optionsfelder
Stephan

Hallo und guten Tag,
Ich habe eine Musikliste erstellt und möchte wahlweise nach Interpret oder Titel suchen mithilfe einer Userform und Optionsfelder.
Die Interpreten sind alle in der Spalte A und die Titel in Spalte B.
Wenn nun das Optionsfeld für den Interpreten angeklickt und ge...
19.01.2011 14:47:36
Thread-ID: 1196426
10 Beiträge
Anzeige
Optionsfelder
Harry

Hallo NG,
ich möchte Optionsfelder in einer UserForm auswerten. Diese Optionsfelder befinden sich in einer MultiPage in der UserForm.
Mein Versuch:
Select Case MultiPage.Page1:
Case OptionsButton1 = true
...Anweisung
Case OptionsButton2 = true
...anweisung
End Select
...
13.05.2002 14:38:07
Thread-ID: 120484
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige