Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
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
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

for schleife mit zwei variablen

for schleife mit zwei variablen
17.08.2017 14:18:34
Ahmet
Hallo zusammen,
ich bin gerade dabei eine Tabelle zu erstellen in der eine For schleife sinnvoll wäre.
Allerdings kriege ich diese nicht wirklich zum laufen:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("P5:P14").Interior.ColorIndex = 15
Range("P5:P14").Value = "Urlaub"
Range("P5:P14").Locked = True
Range("P16:P25").Interior.ColorIndex = 15
Range("P16:P25").Value = "Urlaub"
Range("P16:P25").Locked = True
Range("P27:P36").Interior.ColorIndex = 15
Range("P27:P36").Value = "Urlaub"
Range("P27:P36").Locked = True
..... der Code würde hier ewig weiter laufen (inkls. else Anweisung)
Mein Vorschlag sieht so aus:


Private Sub CheckBox1_Click()
dim x as integer
dim y as integer
If CheckBox1.Value = True Then
For x = 5 to 577 step 11
for y = 14 to 586 step 11
Range(Cells(16,x), Cells(16,y)).Interior.ColorIndex = 15
Range(Cells(16,x), Cells(16,y)).Value = "Urlaub"
Range(Cells(16,x), Cells(16,y)).Locked = True
next y
next x
end if
End Sub


ist bei Excel solch eine Schleife überhaupt möglich? Bei c++ kriege ich so etwas hin - nicht aber bei excel

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: for schleife mit zwei variablen
17.08.2017 14:46:10
Werner
Hallo Ahmet,
so? 
Private Sub CheckBox1_Click()
dim x as long
dim y as long
y = 14
If CheckBox1.Value = True Then
For x = 5 to 577 step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
next x
end if End Sub
Bei der Cells Schreibweise ist der erste Wert in der Klammer die Zeile und der zweite wert die Spalte.
Gruß Werner
Eine verschachtelte Schleife ist aber unnötig...
17.08.2017 14:50:06
Michael
Ahmet,
...aus meiner Sicht. Wenn ich Dich richtig interpretiert habe, sollte Dir auch das reichen (mit nur einer Schleife, und einer Laufvariablen):
Private Sub CheckBox1_Click()
Dim i&
If CheckBox1.Value = True Then
For i = 5 To 577 Step 11
With Range("P" & i & ":" & "P" & i + 9)
.Interior.Color.Index = 15
.Value = "Urlaub"
.Locked = True
End With
Next i
End If
End Sub
LG
Michael
Anzeige
AW: for schleife mit zwei variablen
17.08.2017 15:15:54
Ahmet
Hi,
klasse Vorschläge von euch beiden. Simpel aber gut.
Bei Michael seinem Code kommt leider ein Fehler:
.Interior.Color.Index = 15 --> Objekt erforderlich
Werner sein Code funktioniert soweit. Nur wenn ich mein Else Part mit einfüge bekomme ich den Fehler "Else ohne If Block" obwohl dieser Code vorher funktionierte.
Probiert habe ich das auf einer leeren Mappe.
Private Sub CheckBox3_Click()
Dim x As Long
Dim y As Long
y = 14
If CheckBox1.Value = True Then
For x = 5 To 577 Step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
Else
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 40
Range(Cells(x, 16), Cells(y, 16)).ClearContents
Range(Cells(x, 16), Cells(y, 16)).Locked = False
Next x
End If
End Sub

Anzeige
Bei mir ist nur der Punkt in Color.Index zuviel oT
17.08.2017 15:45:02
Michael
AW: for schleife mit zwei variablen
17.08.2017 16:09:48
Werner
Hallo Ahmet,
Next x muss vor Else 
Private Sub CheckBox3_Click()
Dim x As Long
Dim y As Long
y = 14
If CheckBox1.Value = True Then
For x = 5 To 577 Step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
Next x
Else
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 40
Range(Cells(x, 16), Cells(y, 16)).ClearContents
Range(Cells(x, 16), Cells(y, 16)).Locked = False
End IfEnd Sub
Gruß Werner
AW: for schleife mit zwei variablen
17.08.2017 15:35:59
Ahmet
Nachtrag: so hat es nun funktioniert:
Private Sub CheckBox1_Click()
Dim x As Long
Dim y As Long
y = 14
For x = 5 To 577 Step 11
If CheckBox1.Value = True Then
Range(Cells(x, 6), Cells(y, 6)).Interior.ColorIndex = 15
Range(Cells(x, 6), Cells(y, 6)).Value = "Urlaub"
Range(Cells(x, 6), Cells(y, 6)).Locked = True
Else
Range(Cells(x, 6), Cells(y, 6)).Interior.ColorIndex = 40
Range(Cells(x, 6), Cells(y, 6)).ClearContents
Range(Cells(x, 6), Cells(y, 6)).Locked = False
End If
y = y + 11
Next x
End Sub

vielen dank euch beiden
Anzeige
Bitte, aber...
17.08.2017 16:02:06
Michael
Ahmet,
...so wie Du es jetzt hast, prüfst Du bei jedem Schleifendurchlauf ob die CheckBox1 WAHR ist:
For x = 5 To 577 Step 11
If CheckBox1.Value = True Then
Aber das musst Du doch nur einmal prüfen. Und die doppelte Zählvariable ist aus meiner Sicht immer noch nicht erforderlich. Ich würde so tun...
Sub CheckBox1_Click()
Dim x&, c&, v$, l As Boolean
With CheckBox1
c = IIf(.Value = True, 15, 40)
v = IIf(.Value = True, "Urlaub", vbNullString)
l = IIf(.Value = True, True, False)
End With
For x = 5 To 577 Step 11
With Range(Cells(x, 6), Cells(x + 9, 6))
.Interior.ColorIndex = c
.Value = v
.Locked = l
End With
Next x
End Sub
LG
Michael
Anzeige
AW: Bitte, aber...
17.08.2017 16:18:22
Werner
Hallo Ahmet,
sehe gerade, dass du im Else Zweig ja ebenfalls eine Schleife brauchst. 
Private Sub CheckBox3_Click()
Dim x As Long
Dim y As Long
y = 14
If CheckBox1.Value = True Then
For x = 5 To 577 Step 11
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 15
Range(Cells(x, 16), Cells(y, 16)).Value = "Urlaub"
Range(Cells(x, 16), Cells(y, 16)).Locked = True
y = y + 11
Next x
Else
Range(Cells(x, 16), Cells(y, 16)).Interior.ColorIndex = 40
Range(Cells(x, 16), Cells(y, 16)).ClearContents
Range(Cells(x, 16), Cells(y, 16)).Locked = False
End IfEnd Sub
Wobei der Code von Michael natürlich eleganter ist und auf die zweite Zählvariable verzichtet.
Gruß Werner
Anzeige
Sry Michael, im falschen Zweig. o.w.T.
17.08.2017 16:19:14
Werner
Kein Problem! LG und owT
17.08.2017 16:25:18
Michael

138 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
Anzeige

Links zu Excel-Dialogen

CheckBox

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