Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrer OptionButton mit For/Next Schleife ansprech

Forumthread: Mehrer OptionButton mit For/Next Schleife ansprech

Mehrer OptionButton mit For/Next Schleife ansprech
23.05.2014 17:29:05
Nicolai
Hallo,
Ich habe auf meinem Tabellenblatt mehrere OptionButton, von denen einige mit einem CommandButton angesprochen werden sollen.
Nach mehreren Versuchen bin ich am verzweifeln, da kein Quelltext funktioniert!!!
Hier mein Code: 

Private Sub CB_Abwesend_Click()
Dim i As Integer
For i = 2 To 198 Step 3
Me.Shaps("OptionButton" & i).Value = True
Next i
End Sub

Vielen Dank...

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrer OptionButton mit For/Next Schleife ansprech
23.05.2014 18:22:02
Oberschlumpf
Hi Nicolai,
leider schreibst du nur "es geht nicht", aber du verrätst nicht, was denn genau beim Codeausführen passiert....
a) bin nich sicher, glaube aber, dass ME. nur in einem Userform verwendet werden kann
anstelle dessen schreib nicht Me. sondern Sheets("xxx").
(für "xxx" muss der Blattname stehen, um den es geht)
b) in deinem Code steht Shaps, richtig heißt es aber Shapes
wenn es nur hier im Beitrag falsch steht, dann lies deine Texte vorm Absenden mal richtig durch + korrigiere sie vor dem Absenden
Hilfts denn?
Ciao
Thorsten

Anzeige
AW: Mehrer OptionButton mit For/Next Schleife ansprech
24.05.2014 16:18:14
Nicolai
Hey,
Es funktioniert auch nicht mit Shapes und/oder Sheets("xxx"),
es kommt immer die Meldung: " Objekt unterstützt diese Eigenschaft oder Methode nicht"

AW: Mehrer OptionButton mit For/Next Schleife ansprech
24.05.2014 18:09:02
Oberschlumpf
Hi
dann zeig mal deine oder eine Bsp-Datei.
Ciao
Thorsten

AW: Mehrer OptionButton mit For/Next Schleife ansprech
25.05.2014 13:48:46
Tino
Hallo,
versuch es so.
Me.Shapes("OptionButton1").DrawingObject.Object.Value = True
Me kannst du verwenden wenn der Code in der Tabelle steht wo auch die OptionButton sind.
Sonst verwende Sheets("Tabelle1").Shapes... oder besser den Objektnamen der Tabelle Tabelle1.Shapes...
Gruß Tino

Anzeige
AW: Mehrer OptionButton mit For/Next Schleife ansprech
26.05.2014 14:39:59
Nicolai
Hey vielen, vielen Dank für die Antworten!!!
Mit: 

Me.Shapes("OptionButton1").DrawingObject.Object.Value = True
Funktioniert es!!!
Danke...
Gruß Nico
;

Forumthreads zu verwandten Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Anzeige
For-Next Schleife
Micha

Hey,
hat einer von Euch ne Ahnung, warum mir in der folgenden Prozedur eine 3,3,5,5 ausgegeben wird ? - sollte m.E. nach eine 3,4,5,6 sein.
Sub Test5() Repetition = 0 For i = 0.03 To 0.05 Step 0.01 Repetition = Repetition + 1 Next Cells(3, 14) = Repetition Repetition = 0 For i = 0.03 To...
12.11.2009 11:29:23
Thread-ID: 1116427
7 Beiträge
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge
For Next Schleife umschreiben
Alex

Hallo zusammen,
ich habe hier eine ForNext-Schleife, die ich so nicht lassen kann.
Wenn die Bedingung nicht erfüllt ist soll ein Parameter gesetzt werden.
Wenn die Bedingung erfüllt ist , wird eine Abfrage gemacht, ob die Datei überschrieben werden soll. Wird diese Abfrage n...
06.05.2010 13:15:30
Thread-ID: 1155800
9 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
For Next Schleife
Alex

Hallo zusammen,
in einer Zelle "zB. A5" habe ich eine Nummer.
Diese Nummer soll untereinander so oft wie in einer anderen zelle angegeben um eins erhöht werden.
Ich habe versucht dies über eine for next schleife zu lösen, aber ich bekomme den Verweis von 1 to Zelle nicht hin und in...
02.09.2010 07:56:31
Thread-ID: 1175352
7 Beiträge
Anzeige
for next schleifen problem
carstenas

Hallo Forum
Ich bastel zur Zeit an einer Datei für meine Kollegen bin aber an einem Punkt angekommen wo ich nicht mehr weiter komme.Mein Problem sind For Next schleifen.
Dass Problem sind 2 Tabellen zu vergleichen.Es gibt 8 Tabellen Mo-So und eine Übersicht wo die werte aus den Tabellen...
14.11.2010 17:00:29
Thread-ID: 1186723
20 Beiträge
For Next Schleife für Fomel ausfüllen
Karsten

Hallo
Ich möchte eine Tabelle mit Formeln füllen:
=SUMME(alle_Spiele!O4:O12)
=SUMME(alle_Spiele!R4:R12)
=SUMME(alle_Spiele!U4:U12)
usw...
Spalte erhöht sich immer um 3 Spalten
In der nächsten Spalte erhöhen sich die Zahlen um jeweils 9.
=SUMME(alle_Spiele!O13:O21...
28.12.2010 10:13:18
Thread-ID: 1193013
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige