Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
204to208
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Caption aus 2 For Next Schleifen

Caption aus 2 For Next Schleifen
21.01.2003 22:33:46
H:- Udo
Hallo,

es sollen die "OptionButton(11 bis 20).Caption" mit aus dem Ergebnis zweier Variablen beschrieben werden.
Bei meinem bisherigen Code(Versuch) füllen sich die Caption´s immer nur mit einer Variablen.
Mein Code:

For LoD = i To i3
If .Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
UserForm3.Controls("OptionButton" & CStr(s)).Caption = Cells(LoD, 3).Value
Next s
End If
Next LoD

Ich bin für jeden Tipp dankbar.
Gruß
H.- Udo


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

Betreff
Datum
Anwender
Anzeige
kompl. Code zum besseren Verständnis
21.01.2003 22:36:37
H.- Udo
Zum besseren Verständnis hab ich Euch hier meinen kompletten Code kopiert.

Private Sub OptionButton1_Click()
Dim Suchwort As String
Dim Suchwort2 As String
Dim i, i2, i3, LoD As Long
Suchwort = OptionButton1.Caption

For i = 1 To 1000
If Cells(i, 2).Value = Suchwort Then Exit For
Next i

For i2 = i To 1000
If Cells(i, 11).Value = OptionButton1.Caption Then
i2 = i2 + 1
Suchwort2 = Cells(i2, 11).Value
Exit For
End If
Next i2

For i3 = i To 1000
If Cells(i3, 2).Value = Suchwort2 Then Exit For
Next i3
With Worksheets("Werte")

For LoD = i To i3
If .Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
UserForm3.Controls("OptionButton" & CStr(s)).Caption = Cells(LoD, 3).Value
Next s
End If
Next LoD
End With

ComboBox1.Visible = True

For t = 1 To 10
UserForm3.Controls("OptionButton" & CStr(t)).Visible = False
Next t
For u = 11 To 20
UserForm3.Controls("OptionButton" & CStr(u)).Visible = True
Next u
End Sub

Gruß
H.- Udo

Anzeige
versteh nicht, warum
21.01.2003 23:11:52
L.Vira
er gar nicht meckert, der Punkt vor cells gehört da nicht hin:
For LoD = i To i3
If .Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
Me.Controls("OptionButton" & s).Caption = Cells(LoD, 3)
Next s
End If
Next LoD
Noch ein wenig gestrafft.


Re: versteh nicht, warum
21.01.2003 23:38:03
H.- Udo
Hallo,

leider bleibt dein Code stehen (ohne jede weitere reaktion oder Fehlermeldung).

Nach ablauf meines Code´s müssten 2 verschiedene OptionButton.Caption gefüllt werden.
Doch wie ich es auch mache, werden alle 10 (11 bis 20) Caption´s mit ein und dem selben Wert gefüllt.


Gruß
H.- Udo

Anzeige
Re: versteh nicht, warum
21.01.2003 23:49:44
L.Vira
Hast du den Punkt vor Cells entfernt, der ist dort falsch!
For LoD = i To i3
If Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
Me.Controls("OptionButton" & s).Caption = Cells(LoD, 3)
Next s
End If
Next LoD
Re: versteh nicht, warum
21.01.2003 23:55:26
H.- Udo
Hallo,

ja natürlch. (grins)
Nun funktioniert Dein Code genauso wie meiner.

OptionButton11.Caption = Mauer
OptionButton12.Caption = Mauer
OptionButton13.Caption = Mauer
....
OptionButton20.Caption = Mauer

Es sollte aber so aussehen:
OptionButton11.Caption = Mauer
OptionButton12.Caption = Estrich
OptionButton11.Caption = ""
....
OptionButton20.Caption = ""


Gruß
H.- Udo

Anzeige

300 Forumthreads zu ähnlichen 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
Anzeige
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
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
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
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7